3D Painter for Objects - Paint right on 'em -Good!

Blitz3D Forums/Blitz3D Beginners Area/3D Painter for Objects - Paint right on 'em -Good!

Mikorians

(Posted 2014) [#1]

[LATEST UPDATE - With Copy & Paste]
I wrote this thing- with credit to the brilliant 'Noobody'
for his help with the find uv function.
You can have it, improve it, post it to library, etc.
I've been making a paint program out of it.
Interested parties may post for it.

Here's the latest revision of this program as of 18 Jan 2014

;By Mikorians - 2014 - A Public Domain Tool - Now actually USEFUL with Blur (Try it near those rotton polygon borders)
;Doesn't work well with max running on the same scene - bitmap hogger!
;If you LACK them, you'll need at least these .decls files:

;Userlibs/kernel32.decls:
;.lib "kernel32.dll"
;apiRtlMoveMemory(Destination*,Source,Length) : "RtlMoveMemory"
;api_RtlCopyMemory(Destination,Source*,Length):"RtlMoveMemory" ;AKA apiRtlMoveMemory2
;api_GlobalAlloc%(wFlags,dwBytes):"GlobalAlloc"
;api_GlobalLock%(hMem%):"GlobalLock"
;api_GlobalUnlock%(hMem%):"GlobalUnlock"

;Userlibs/comdlg32.decls:
;.lib "comdlg32.dll"
;api_ChooseColor%(pChoosecolor*) : "ChooseColorA"

;Userlibs/user32.decls:
;.lib "User32.dll"
;api_CloseClipboard%():"CloseClipboard"
;api_EmptyClipboard%():"EmptyClipboard"
;api_GetClipboardData%(wFormat%):"GetClipboardData"
;api_IsClipboardFormatAvailable%(wFormat%):"IsClipboardFormatAvailable"
;api_OpenClipboard%(hwnd%):"OpenClipboard"
;api_SetClipboardData%(wFormat%,hMem%):"SetClipboardData" ;(was api_SetClipboardData%(wFormat%,hMem%):"SetClipboardDataA" incorrectly)

;************************************************************************************
;Still need: Resize area (Copy and Paste work), slight single-pixel bug noted somewhere.
;Modify the floodfill to accept colors from clipboard
;************************************************************************************

;MUCH Kudos to Noobody for the CalculatePickedUV Function !  Yes!!!
;Thanks also to Adam Novagen and Grey Alien
;ColorPicker Procedure was "for free MPZ (@) from Berlin"
;So now we can just paint an object - here ya go!!
;Clipboard functions courtesy of markcw and John Simmons

Include "D:\Program Files\Blitz3d\Include\FastExt.bb" ;Only used for SQUARE PIXELS

Global Cord=CreateBank(20) ;All because Globals weren't passed outside my functions
;Allocated thus:
;0  Float X#
;4  Float Y#
;8  Int   LX1%
;10 Int   LY1%
;12 Int   LX2%
;14 Int   LY2%
;16 Int   CapW%
;18 Int   CapH%

Global lpCustColors_=CreateBank(64)								;This is for the colorpicker API
Type Pixel					;This is used for the clever floodfill function by Adam NovaGen
	Field X,Y
End Type
Global Ctrls,Cam,Scn,O													;Entities
Global TTxt,Txt,Pic,W,H													;Texture Maps (Temp. Txt, Current Txt, Bmp pic stuff, Width, Height)
Dim Undo(10)																		;Undo Texturebuffer array
Dim UPix1#(1000,1)															;Unique pixel holder for Blur
Dim UPix2#(1000,1)															;Unique pixel holder for Blur
Global Fnt1,Fnt2,Fnt3,Tx$,Hlp										;Font stuff
Global PickedU#,PickedV#,Rd,Gn,Bl,Rd2,Gn2,Bl2,Brs#=1,Mde=0 ;PickedU/V# is for CalculatePickedUV(), Colors 1 + 2, Brush size, Tool Selected
Global OBX#,OBY#,OBZ#														;Current Object Coordinates
Global X#,Y#,OCX,OCY,OCCol											;Cursor Coords, Color Under It (on texture map)
Global LX1,LY1,LX2,LY2													;For Line Values (Mouse Position only)
Global CapW%,CapH%,BMPValid%										;Holds BMP capture size
Global MOUD, MOUH, MnuPick=0										;MouseDown, MouseHit, If we clicked, did we pick a tool?
Global CurFlg=0, LF=0, ContinueLine=0						;Flag to draw Cursor (0=Draw), Line Mode, Polyline continues
Global Windowed=1																;Windowed Mode

;Initialization
Graphics3D 800,600,0,1-Windowed
Color 0,0,0
ORD=ColorRed():OGN=ColorGreen():OBL=ColorBlue()	;Store our original colors (Just in case)
InitExt																					;Only used for SQUARE PIXELS
ClearTextureFilters															;Only used for SQUARE PIXELS
TextureAnisotropy -2,0													;Only used for SQUARE PIXELS
Cam=CreateCamera()
CameraRange Cam,.1,5000
CameraZoom Cam,1
PositionEntity Cam,28,-13,-85
Light=CreateLight()
Ctrls=LoadTexture("Ctrls.bmp")
LoadObjects "SkyBox.b3d","Sphere01"							;Scene to load, Child Object Name
TTxt=CreateTexture(W,H,1)
For t=0 To 10:Undo(t)=CreateTexture(W,H,1):CopyRect 0,0,W,H,0,0,TextureBuffer(Txt),TextureBuffer(Undo(t)):Next
Pic=CreateTexture(256,256,1)
Color ORD,OGN,OBL																;Restore the color (Just in case)

;Primary Render Loop
While Not KeyHit(1)
	UpdateInput
	UpdateWorld
	RenderWorld
	Update2D
	FlushKeys
	FlushMouse
	Flip
Wend
Unload

Function UpdateInput()
Shft=0:Ctrl=0:Alt=0
If KeyDown(42) Or KeyDown(54) Then Shft=1
If KeyDown(29) Or KeyDown(157) Then Ctrl=1
If KeyDown(56) Or KeyDown(154) Then Alt=1
MOUD=MouseDown(1)+(MouseDown(2)*2)+(MouseDown(3)*4):MOUH=MouseHit(1)+(MouseHit(2)*2)+(MouseHit(3)*4)
x1=MouseX():y1=MouseY()

If MnuPick=1 Then Goto Skp

If KeyHit(59) Then Hlp=1-Hlp:RemoveCursor:Goto Skp	;F1  = Help

If Ctrl=1 Then
If KeyHit(44) And Ctrl=1 Then												;Ctrl-Z = Undo
	RemoveCursor ;Good Idea
	CopyRect 0,0,W,H,0,0,TextureBuffer(Undo(10)),TextureBuffer(txt)
	For t=10 To 1 Step -1:CopyRect 0,0,W,H,0,0,TextureBuffer(Undo(t-1)),TextureBuffer(Undo(t)):Next
	Goto Skp
End If
End If

If KeyDown(13) Then																	;= (+) = Brush Larger
	Brs#=Brs#+0.1:If Brs#>30.0 Then Brs#=30.0
	Goto Skp
End If
If KeyDown(12) Then																	;-)    = Brush Smaller
	Brs#=Brs#-0.1:If Brs#<0.1 Then Brs#=0.1
	Goto Skp
End If

;Turn
mxs=0:mys=0:mzs=0 ;KP PU,PD,U,D,R,L
If KeyDown(73) Then mzs=3
If KeyDown(81) Then mzs=-3
If KeyDown(72) Then mxs=3
If KeyDown(80) Then mxs=-3
If KeyDown(77) Then mys=3
If KeyDown(75) Then mys=-3
;Absolute Rotation
PositionEntity O,0,0,0,True
TurnEntity O,mxs,mys,mzs,True
;Move
mxs1=0:mys1=0:mzs1=0 ;PU,PD,U,D,R,L  (Duplicates so we can do both at once :)
If KeyDown(200) Then mys1=3
If KeyDown(208) Then mys1=-3
If KeyDown(205) Then mxs1=3
If KeyDown(203) Then mxs1=-3
If KeyDown(201)	Then mzs1=3
If KeyDown(209) Then mzs1=-3
OBX#=OBX#+mxs1:OBY#=OBY#+mys1:OBZ#=OBZ#+mzs1
PositionEntity O,OBX#,OBY#,OBZ#,True

;MouseHit combined with MouseDown seems to be giving us woe

If MOUH<>0 Then													;UNDO. I hope MOUH catches everything
	RemoveCursor													;Bye bye cursor
	For t=0 To 9:CopyRect 0,0,W,H,0,0,TextureBuffer(Undo(t+1)),TextureBuffer(Undo(t)):Next
	CopyRect 0,0,W,H,0,0,TextureBuffer(Txt),TextureBuffer(Undo(10))
End If

SetBuffer TextureBuffer(Txt)

If Ctrl=1 Then
If KeyHit(47) Then																	;Ctrl-V = Paste
	RemoveCursor
	For t=0 To 9:CopyRect 0,0,W,H,0,0,TextureBuffer(Undo(t+1)),TextureBuffer(Undo(t)):Next
	CopyRect 0,0,W,H,0,0,TextureBuffer(Txt),TextureBuffer(Undo(10))
	CopyRect 0,0,W,H,0,0,TextureBuffer(Txt),TextureBuffer(TTxt) ;Throwout last draw frame
	Pic=PasteImageFromClipboard()
	CapW%=PeekShort(Cord,16)
	CapH%=PeekShort(Cord,18)
	If BMPValid%=1 Then
		Mde=10
		LF=2
	End If
	Goto Skp
End If
If KeyHit(46) Then																	;Ctrl-C = Copy
	If Mde=10 And LF<>0 Then
	RemoveCursor
	CopyImageToClipboard(Pic,CapW%,CapH%)
	End If
End If
End If

If MOUD+MOUH=0 Then							;Buttons released
	If LF<>0 Then									;Line is done
	If Mde=10 Then								;Bitmap Manipulation
		If LF=1 Then
			RemoveCursor
			SetBuffer BackBuffer()
			CopyRect 0,0,W,H,0,0,TextureBuffer(TTxt),TextureBuffer(Txt) ;Throwout last draw frame
			GrabBMP(Int(LX1),Int(LY1),Int(LX2),Int(LY2))
			LF=2:Goto Skp ;Area grabbed, ready to drag
		End If
		If LF=3 Then LF=0 ;We finished dragging, let 'er go
	Else													;Finish Line, Continue PolyLine
		If IsLineTool() Then DrawLineShapes(LX1,LY1,LX2,LY2)
		If Mde=7 Then LX1=LX2:LY1=LY2 ;On PolyLines, we will next start where we ended
		LF=0
	End If
	End If
End If

Select MOUH	;JUST 1 SHOT mouse hit
	Case 1	;Left Mouse Button
		If Shft Then				;Pick 1st Paintpot
			ORD=ColorRed():OGN=ColorGreen():OBL=ColorBlue()
			GetColor X#,Y#:Rd=ColorRed():Gn=ColorGreen():Bl=ColorBlue()
			Color ORD,OGN,OBL
			Goto Skp
		End If
		If x1>720 And x1<740 And y1>10 And y1<30 Then
			If ColorPick() Then rd=ColorRed():gn=ColorGreen():bl=ColorBlue()
		End If
		If x1>740 And x1<760 And y1>10 And y1<30 Then
			If ColorPick() Then rd2=ColorRed():gn2=ColorGreen():bl2=ColorBlue()
		End If
		If Shft+Ctrl+Alt=0 Then
			If Mde=8 Then
				ORD=ColorRed():OGN=ColorGreen():OBL=ColorBlue()
				RGBA% = ReadPixel(X#,Y#) ;Necessary to obtain ALPHA value to avoid floodfill lockup
				FloodFill Txt,X#,Y#,((RGBA% Shr 24) Shl 24) + Bl + Gn Shl 8 + Rd Shl 16
				Color ORD,OGN,OBL
				Goto Skp
			End If
			If Mde=10 Then
				If LF=2 Then LF=3
			End If
		End If
	Case 2	;Right Mouse Button Stuff
		If Shft And MnuPick=0 Then					;Pick 2nd Paintpot
			ORD=ColorRed():OGN=ColorGreen():OBL=ColorBlue()
			GetColor X#,Y#:Rd2=ColorRed():Gn2=ColorGreen():Bl2=ColorBlue()
			Color ORD,OGN,OBL
		End If
		If Shft+Ctrl+Alt=0 Then
			If Mde=8 Then
				ORD=ColorRed():OGN=ColorGreen():OBL=ColorBlue()
				RGBA% = ReadPixel(X#,Y#) ;Necessary to obtain ALPHA value to avoid floodfill lockup
				FloodFill Txt,X#,Y#,((RGBA% Shr 24) Shl 24) + Bl2 + Gn2 Shl 8 + Rd2 Shl 16
				Color ORD,OGN,OBL
				Goto Skp
			End If
			If Mde=10 Then
				If LF=2 Then LF=3
			End If
		End If
	Case 4	;Middle Mouse Button
			If Mde=7 Then LF=0:ContinueLine=0			;Stops a Polyline
End Select

If MOUD<>0 And MOUD<>4 Then ;HELD mousebutton
		If Shft+Ctrl+Alt=0 Then
		If MOUD=1 Then Color Rd,Gn,Bl
		If MOUD=2 Then Color Rd2,Gn2,Bl2
		If MOUD=3 Then Color Rnd(0,255),Rnd(0,255),Rnd(0,255)
			Select Mde
				Case 0
					Plot X#,Y#
				Case 1
					Oval X#-(Brs#*.5),Y#-(Brs#*.5),Brs#,Brs#,True
				Case 2
					Rect X#-(Brs#*.5),Y#-(Brs#*.5),Brs#,Brs#,True
				Case 3
					PixelAirbrush(x1,y1)
				Case 11
					PixelBlur(x1,y1)
				End Select
			If IsLineTool() Then ;Standard 2 point drawing tools
				If LF=0 Then
					If Mde=7 And ContinueLine<>0 Then LX1=LX2:LY1=LY2			;Continuing a polyline
					If Mde<>7 Or (Mde=7 And ContinueLine=0) Then LX1=x1:LY1=y1:ContinueLine=1 ;Start of Line/Polyline
					CopyRect 0,0,W,H,0,0,TextureBuffer(Txt),TextureBuffer(TTxt)
					LF=1
				Else
					LX2=x1:LY2=y1		;New point
					DrawLineShapes(LX1,LY1,LX2,LY2)
				End If
			End If
		End If
End If

.Skp
UpdateCursor(x1,y1)
SetBuffer BackBuffer()
End Function

Function DrawLineShapes(LX1,LY1,LX2,LY2)
CopyRect 0,0,W,H,0,0,TextureBuffer(TTxt),TextureBuffer(Txt)
If Mde=9 Then PixelText(LX2,LY2)
If Mde=4 Or Mde=7 Then PixelLine(LX1,LY1,LX2,LY2)
If Mde=5 Then PixelCircle(LX1,LY1,LX2,LY2)
If Mde=6 Or (Mde=10 And LF=1) Then PixelBox(LX1,LY1,LX2,LY2) ;Make Box/Select area
If Mde=10 And LF>1 Then PixelBMP(LX1,LY1,LX2,LY2) ;Dragging a bitmap area around
End Function

Function IsLineTool()
If (Mde>3 And Mde<8) Or (Mde>8 And Mde<11) Then Return 1
End Function

Function Dist#(x1,y1,x2,y2)
Return Sqr(((x1-x2)^2)+((y1-y2)^2))
End Function

Function Rec2Pol#(X1#,Y1#,X2#,Y2#)
Local C#
C# = 3.141592654 / 180
OX# = X2# - X1#: OY# = Y2# - Y1#:R# = Sqr((OX# ^ 2) + (OY# ^ 2))
If Sgn(OX#)=0 And Sgn(OY#)=0 Then Ret#=0:Goto XitR
If OX<0 And OY<0 Then QT=180
If OX<0 And OY>0 Then QT=180
If OX=0 And OY>0 Then Ret#=0:Goto XitR
If OX>0 And OY=0 Then Ret#=90:Goto XitR
If OX=0 And OY<0 Then Ret#=180:Goto XitR
If OX<0 And OY=0 Then Ret#=270:Goto XitR
Ret# = 90-ATan((OY / R#) / (OX# / R#))+QT
.XitR
Return Ret#
End Function

Function PixelAirbrush(x1,y1)
For t=1 To 20
	ax#=x1+Rnd(-Brs#*3,Brs#*3):ay#=y1+Rnd(-Brs#*3,Brs#*3)
	CameraPick(Cam,ax,ay)
	If SetSafeCoord(ax,ay,x1,y1)<>0 Then
		X#=PeekFloat(Cord,0)
		Y#=PeekFloat(Cord,4)
		Plot X#,Y#
	End If
Next
End Function

Function PixelBlur(x1,y1)
AppTitle "DRAW- WAIT IF NEEDED. FOR UVW BORDERS- HOLD W,A,S,D"
CameraPick(Cam,x1,y1)
km=SetSafeCoord(x1,y1,x1,y1)
CX=PeekFloat(Cord,0)
CY=PeekFloat(Cord,4)
If km=2 Then								;Attempt to Blur in 3D
	;Try to calculate pixel scale to target triangle
	xt=PickedX():yt=PickedY():zt=PickedZ()
	tmp=CreatePivot()
	PositionEntity tmp,xt,yt,zt,True
	d#=EntityDistance#(cam,tmp)
	If d#=0 Then d#=1
	Brs#=100/d#
	If Brs#>10 Then Brs#=10 ;Too close!
	If Brs#<2 Then Brs#=2   ;Too far!
	FreeEntity tmp 
	If KeyDown(17) Then OFY=-2;UP
	If KeyDown(31) Then OFY=+2;DN
	If KeyDown(30) Then OFX=-2;LT
	If KeyDown(32) Then OFX=+2;RT
	CX=x1
	CY=y1
	For qy = -Brs# To Brs# ;Area to blur
	For qx = -Brs# To Brs#
		r = 0:g = 0:b = 0:a = 0:UPC1 = 0
		;Gaussian Average of brush-sized area
  	For yy = -Brs# To Brs# 
	  For xx = -Brs# To Brs#
			x1=(CX+qx)+xx:y1=(CY+qy)+yy:y2=y1:y2=y1
			CameraPick(Cam,x1,y1)
			If SetSafeCoord(x1,y1,x1,y1)=2 Then
				X#=PeekFloat(Cord,0)
				Y#=PeekFloat(Cord,4)
				Fnd=0:For q=0 To UPC ;This routine requires only unique integer pixels
				If Int(UPix1#(q,0))=Int(X#) And Int(UPix1#(q,1))=Int(Y#) Then Fnd=1:Exit
				Next
				If Fnd=0 Then ;It's OK to add it to the tally to be averaged
					UPix1#(UPC,0)=Int(X#):UPix1#(UPC,1)=Int(Y#)
					p = ReadPixel(Int(X#),Int(Y#),TextureBuffer(txt))
					a = a + ((p Shr 24) And 255)
					r = r + ((p Shr 16) And 255)
					g = g + ((p Shr 8) And 255)
	  			b = b + (p And 255)
					UPC1=UPC1+1
				End If
			End If
		Next
		Next
		If UPC1=0 Then UPC1=1
		x1=(CX+qx):y1=(CY+qy):y2=y1:y2=y1
		CameraPick(Cam,x1,y1)
		If SetSafeCoord(x1,y1,x1,y1)=2 Then
			;IMPORTANT: The offset factor on the UVW bumps pixels across edge triangles borders
			X#=PeekFloat(Cord,0)
			Y#=PeekFloat(Cord,4)
			X#=Int(X#+OFX):Y#=Int(Y#+OFY)
			If X#<0 Then X#=W+(X# Mod W)
			If X#>W-1 Then X#=(X# Mod W)
			If Y#<0 Then Y#=H+(Y# Mod H)
			If Y#>H-1 Then Y#=(Y# Mod H)
			WritePixel X#, Y#, Int(b / UPC1) + Int(g / UPC1) Shl 8 + Int(r / UPC1) Shl 16 + Int(a / UPC1) Shl 24,TextureBuffer(Txt)
		End If
	Next
	Next
End If
If km=1 Then								;Blur the 2D texture (easy)
CX=x1
CY=y1
	;If Brs#>3 Then Brs#=3
	For qy = -Brs# To Brs# ;Area to blur
	For qx = -Brs# To Brs#
		r = 0:g = 0:b = 0:a = 0:UPC1 = 0
		;Gaussian Average of brush-sized area
  	For yy = -Brs# To Brs# 
	  For xx = -Brs# To Brs#
			LX2=(CX+qx)+xx:LY2=(CY+qy)+yy:LX1=CX:LY1=CY
			If SetSafe2D()<>0 Then
				LX2=PeekShort(Cord,12)
				LY2=PeekShort(Cord,14)
	  		p = ReadPixel(LX2,LY2,TextureBuffer(txt))
				a = a + ((p Shr 24) And 255)
			  r = r + ((p Shr 16) And 255)
			  g = g + ((p Shr 8) And 255)
	  		b = b + (p And 255)
				UPC1=UPC1+1
			End If
	  Next
  	Next
		LX1=CX:LY1=CY:LX2=LX1+qx:LY2=LY1+qy
		If SetSafe2D()<>0 Then
			LX1=PeekShort(Cord,8)
			LY1=PeekShort(Cord,10)
			LX2=PeekShort(Cord,12)
			LY2=PeekShort(Cord,14)
			WritePixel LX2, LY2,Int(b / UPC1) + Int(g / UPC1) Shl 8 + Int(r / UPC1) Shl 16 + Int(a / UPC1) Shl 24,TextureBuffer(Txt)
		End If
	Next
	Next
End If
End Function

Function PixelLine(x1,y1,x2,y2)
Local t#
ax#=x1:ay#=y1
q#=Dist#(x1,y1,x2,y2)
an#=Rec2Pol#(x1,y1,x2,y2)
For t#=0 To q# Step .2
	ax#=x1+Sin(an#)*t#
	ay#=y1+Cos(an#)*t#
	CameraPick(Cam,ax,ay)
	If SetSafeCoord(ax,ay,x1,y1)<>0 Then
		X#=PeekFloat(Cord,0)
		Y#=PeekFloat(Cord,4)
		Plot X#,Y#
	End If
Next
End Function

Function PixelBox(x1,y1,x2,y2)
PixelLine(x1,y1,x2,y1)
PixelLine(x2,y1,x2,y2)
PixelLine(x2,y2,x1,y2)
PixelLine(x1,y2,x1,y1)
End Function

Function PixelCircle(x1,y1,x2,y2)
Local t#,u#,v
q#=Dist#(x1,y1,x2,y2)
For t#=0 To 360.0 Step .05
	ax#=x1+Sin(t#)*q#
	ay#=y1+Cos(t#)*q#
	CameraPick(Cam,ax#,ay#)
	If SetSafeCoord(ax,ay,x1,y1)<>0 Then
		X#=PeekFloat(Cord,0)
		Y#=PeekFloat(Cord,4)
		Plot X#,Y#
	End If
Next
End Function

Function PixelText(x1,y1)
		ORD=ColorRed():OGN=ColorGreen():OBL=ColorBlue()		;Store our original colors
		FW=FontWidth()*Len(Tx$)*.25:FH=FontHeight()				;I'm at a loss... BEST GUESS.
		For u=0 To FH
		For t=0 To FW
			SetBuffer TextureBuffer(Pic)
			GetColor t,u
			Trd=ColorRed():Tgn=ColorGreen():Tbl=ColorBlue()
			If Trd<>255 And Tgn<>255 And Tbl<>255 Then
				Color ORD,OGN,OBL
				SetBuffer TextureBuffer(Txt)
				ax#=x1+((t-Int(FW*.5)) * Brs#)
				ay#=y1+((u-Int(FH*.5)) * Brs#)
				CameraPick(Cam,ax#,ay#)
				If SetSafeCoord(ax,ay,x1,y1)<>0 Then
					X#=PeekFloat(Cord,0)
					Y#=PeekFloat(Cord,4)
					Plot X#,Y#
				End If
			End If
		Next
		Next
		Color ORD,OGN,OBL																	;Restore the color
End Function

;Comment: Crappy, but PLANAR CORRECT PROJECTION of the bits, Ha! Someone fix the math.
;This is for WHILE we are dragging and once we have DROPPED
Function PixelBMP(x1,y1,x2,y2)
ORD=ColorRed():OGN=ColorGreen():OBL=ColorBlue()		;Store our original colors
LX1=x2:LY1=y2	;Line continuance values...
LX2=x2:LY2=y2
AppTitle "PLEASE WAIT..."
CameraPick(Cam,LX1,LY1)
If SetSafeCoord(LX1,LY1,LX2,LY2)=2 Then ;3D planar functions are HARD
	For u=-CapH%*.5 To (CapH%*.5)-1
	For t=-CapW%*.5 To (CapW%*.5)-1
		CameraPick(Cam,(t*3)+LX1,(u*3)+LY1)
		If SetSafeCoord((t*3)+LX1,(u*3)+LY1,(t*3)+LX1,(u*3)+LY1)<>0 Then
			X#=PeekFloat(Cord,0)
			Y#=PeekFloat(Cord,4)
			Tco=ReadPixel(t+CapW%*.5,u+CapH%*.5,TextureBuffer(Pic))
			WritePixel X#,Y#,Tco,TextureBuffer(Txt)
		End If
	Next
	Next
Else	;2D functions are EASY
	LX1=LX1-(CapW%*.5) ;Center the bitmap
	LY1=LY1-(CapW%*.5)
	If SetSafe2d()=1 Then
		LX1=PeekShort(Cord,8)
		LY1=PeekShort(Cord,10)
		LX2=PeekShort(Cord,12)
		LY2=PeekShort(Cord,14)
		xp%=lx1:yp%=ly1
		CopyRect 0,0,CapW%,CapH%,xp%,yp%,TextureBuffer(Pic),TextureBuffer(Txt) ;Capture Area
	End If
	LX1=LX1+(CapW%*.5) ;Restore the mouse coordinates to normal
	LY1=LY1+(CapW%*.5)
End If
Color ORD,OGN,OBL
End Function

;This is for first-click to store the bitmap to be dragged/copied
Function GrabBMP(LX1,LY1,LX2,LY2)
ORD=ColorRed():OGN=ColorGreen():OBL=ColorBlue()		;Store our original colors
If LX1>LX2 Then q=LX2:LX2=LX1:LX1=q ;Swap if greater
If LY1>LY2 Then q=LY2:LY2=LY1:LY1=q
AppTitle "PLEASE WAIT..."
CameraPick(Cam,LX1,LY1)
If SetSafeCoord(LX1,LY1,LX1,LY1)=2 Then ;3D planar functions are HARD
	X#=PeekFloat(Cord,0)
	Y#=PeekFloat(Cord,4)
	;Mouse 'Texels' just aren't the same size...  A bit foggy here
	For u=LY1 To LY2 Step 1 ;Step size is a mere guess, has to be a constant.
	For t=LX1 To LX2 Step 1
		CameraPick(Cam,t,u)
		If SetSafeCoord(t,u,t,u)<>0 Then
			X#=PeekFloat(Cord,0)
			Y#=PeekFloat(Cord,4)
			Tco=ReadPixel(Int(X#),Int(Y#),TextureBuffer(Txt))
			WritePixel Int((t-LX1)/3),Int((u-LY1)/3),Tco,TextureBuffer(Pic) ;Guess Work
		End If
	Next
	Next
	CapW%=((LX2-LX1)/3)+1:CapH%=((LY2-LY1)/3)+1									;MORE Guess Work
	;CopyRect 0,0,CapW%,CapH%,0,0,TextureBuffer(Pic),TextureBuffer(Txt) ;TEST IT
Else
	If SetSafe2d()=1 Then ;2D functions are pretty EASY
		LX1=PeekShort(Cord,8)
		LY1=PeekShort(Cord,10)
		LX2=PeekShort(Cord,12)
		LY2=PeekShort(Cord,14)
		xp%=lx1:yp%=ly1:CapW%=(LX2-LX1)-1:CapH%=(LY2-LY1)-1
		CopyRect xp%,yp%,CapW%,CapH%,0,0,TextureBuffer(Txt),TextureBuffer(Pic) ;Capture Area
		;CopyRect 0,0,CapW%,CapH%,0,0,TextureBuffer(Pic),TextureBuffer(Txt) ;TEST IT
	End If
End If
Color ORD,OGN,OBL
End Function

Function UpdateCursor(x1,y1)
If MOUD+MOUH=0 And MnuPick=1 Then MnuPick=0 ;(And only then)
CameraPick(Cam,x1,y1)
If SetSafeCoord(x1,y1,x1,y1)<>0 And MOUD+MOUH=0 Then
	DrawCursor
Else
	RemoveCursor
	If MOUH<>0 And x1>719 And x1<801 And y1>34 And y1<291 Then ;Tool select
		MX=x1-719:If MX>31 Then MX=1 Else MX=0
		MY=y1-36
		If MY<36 Then MY=0
		If MY>221 Then MY=7
		If MY>190 Then MY=6
		If MY>160 Then MY=5
		If MY>127 Then MY=4
		If MY>96 Then MY=3
		If MY>65 Then MY=2
		If MY>35 Then MY=1
		Mde=MY+(MX*8)
		MnuPick=1:LF=0:ContinueLine=0 ;Cancel out mid-line for a mode change
		If Mde=9 Then
			ORD=ColorRed():OGN=ColorGreen():OBL=ColorBlue()		;Store our original colors
			Brs#=4
			Color 255,255,255
			SetFont Fnt1
			Tx$=Input$("Text:")
			SetBuffer TextureBuffer(Pic)
			Rect 0,0,256,256,True
			Color rd,gn,bl
			SetFont Fnt2
			Text 0,0,Tx$
			SetFont Fnt1
			SetBuffer BackBuffer()
			Color ORD,OGN,OBL																	;Restore the color
		End If
	End If
End If
End Function

Function SetSafe2D()
If LX1=>543 And LX1<=543+(W-1) And LY1=>343 And LY1<=343+(H-1) Then
	LX1=LX1-543:LY1=LY1-343
	If LX1<0 Then LX1=W+(LX1 Mod W)
	If LX1>W-1 Then LX1=(LX1 Mod W)
	If LY1<0 Then LY1=H+(LY1 Mod H)
	If LY1>H-1 Then LY1=(LY1 Mod H)
	If LX1<0 Then LX1=0:Sf=1
	If LX1>W-1 Then LX1=W-1:Sf=1
	If LY1<0 Then LY1=0:Sf=1
	If LY1>H-1 Then LY1=H-1:Sf=1
	LX2=LX2-543:LY2=LY2-343
	If LX2<0 Then LX2=W+(LX2 Mod W)
	If LX2>W-1 Then LX2=(LX2 Mod W)
	If LY2<0 Then LY2=H+(LY2 Mod H)
	If LY2>H-1 Then LY2=(LY2 Mod H)
	If LX2<0 Then LX2=0:Sf=1
	If LX2>W-1 Then LX2=W-1:Sf=1
	If LY2<0 Then LY2=0:Sf=1
	If LY2>H-1 Then LY2=H-1:Sf=1
Else
	Sf=1
End If
Sf=1-Sf
;(Visual Basic actually WORKS when you affect global variables, hmph!)
PokeShort Cord,8,LX1
PokeShort Cord,10,LY1
PokeShort Cord,12,LX2
PokeShort Cord,14,LY2
Return Int(Sf)
End Function

Function SetSafeCoord(x1,y1,cx,cy)
;Where x1,y1 can be anything and
;cx,cy must be on a drawing surface (center of effect)
Sf=0
If cx=>543 And cx<=543+(W-1) And cy=>343 And cy<=343+(H-1) Then
	X#=x1-543:Y#=y1-343
	If X#<0 Then X#=W+(X# Mod W)
	If X#>W-1 Then X#=(X# Mod W)
	If Y#<0 Then Y#=H+(Y# Mod H)
	If Y#>H-1 Then Y#=(Y# Mod H)
	If X#<0 Then X#=0:Sf=1
	If X#>W-1 Then X#=W-1:Sf=1
	If Y#<0 Then Y#=0:Sf=1
	If Y#>H-1 Then Y#=H-1:Sf=1
	Sf=1-Sf ;Return 0 if bad, 1 if good
	Goto SSCS
End If
If PickedEntity()<>0 Then
	CalculatePickedUV
	;So now we have a UV coordinate, convert it to pixel coordinates...
	X#=W*PickedU#:Y#=H*PickedV#
	If X#<0 Then X#=W+(X# Mod W)
	If X#>W-1 Then X#=(X# Mod W)
	If Y#<0 Then Y#=H+(Y# Mod H)
	If Y#>H-1 Then Y#=(Y# Mod H)
	If X#<0 Then X#=0:Sf=1
	If X#>W-1 Then X#=W-1:Sf=1
	If Y#<0 Then Y#=0:Sf=1
	If Y#>H-1 Then Y#=H-1:Sf=1
	If Sf=0 Then Sf=2 Else Sf=0 ;Return 0 if bad, 2 if good
End If
.SSCS
;(Visual Basic actually WORKS when you affect global variables, hmph!)
PokeFloat Cord,0,X#
PokeFloat Cord,4,Y#
Return Int(Sf)
End Function

Function DrawCursor()
If MnuPick=0 Then
ORD=ColorRed():OGN=ColorGreen():OBL=ColorBlue()		;Store our original colors
If CurFlg=0 Then
	RemoveCursor:CurFlg=0														;Remove the old cursor pixel
	OCCol=ReadPixel(X#,Y#,TextureBuffer(Txt))				;Read new color first
	WritePixel X#,Y#,Rnd($1,$FFFFFFFF),TextureBuffer(Txt) ;Draw new cursor
Else
	If MOUD+MOUH=0 Then CurFlg=0										;Allow cursor pixel to be drawn
	OCX=X#:OCY=Y#:OCCol=ReadPixel(X#,Y#,TextureBuffer(Txt))
End If
Color ORD,OGN,OBL																	;Restore the color
End If
End Function

Function RemoveCursor()
If MnuPick=0 Then
If CurFlg=0 Then
ORD=ColorRed():OGN=ColorGreen():OBL=ColorBlue()		;Store our original colors
WritePixel OCX,OCY,OCCol,TextureBuffer(Txt)				;Write old color (erase old)
OCX=X#:OCY=Y#
CurFlg=1																					;DIS-Allow Cursor drawing
Color ORD,OGN,OBL																	;Restore the color
End If
End If
End Function

Function Update2D()																;Draw paintpots, toolbar, coords, help menu
Local D1$,D2$,D3$,D4$,D5$,D6$
ORD=ColorRed():OGN=ColorGreen():OBL=ColorBlue()		;Store our original colors
Color 255,255,255
Rect 720,10,20,20,False
Rect 740,10,20,20,False
Color Rd,Gn,Bl
Rect 721,11,18,18,True
Color Rd2,Gn2,Bl2
Rect 741,11,18,18,True
CopyRect 0,0,W,H,543,343,TextureBuffer(Txt),BackBuffer()
CopyRect 0,0,58,255,720,35,TextureBuffer(Ctrls),BackBuffer()
MX=0:If Mde>7 Then MX=27
MY#=((Mde-(8*(MX>0)))*31.2)
Color 255,0,255
Oval MX+724,MY#+41,24,24,False
Oval MX+725,MY#+41,24,24,False
Oval MX+724,MY#+40,24,24,False
Oval MX+725,MY#+40,24,24,False
r%=OCCol
a%=OCCol Shr 24:r%=(r% Shl 8) Shr 8
b%=Int(r%/(Int(65536))):r%=r%-(b%*(Int(65536)))
g%=Int(r%/(Int(256))):r%=r%-(g%*(Int(256)))
D1$=Str(OCX):While Len(D1$)<4:D1$="0"+D1$:Wend
D2$=Str(OCY):While Len(D2$)<4:D2$="0"+D2$:Wend
D3$=Str(r%):While Len(D3$)<3:D3$="0"+D3$:Wend
D4$=Str(g%):While Len(D4$)<3:D4$="0"+D4$:Wend
D5$=Str(b%):While Len(D5$)<3:D5$="0"+D5$:Wend
D6$=Str(a%):While Len(D6$)<3:D6$="0"+D6$:Wend
AppTitle D1$+","+D2$+" Col: $"+Hex$(OCCol)+" "+D3$+","+D4$+","+D5$+","+D6$
If Hlp Then
	SetBuffer BackBuffer()
	Color 128,128,128
	Rect 50,50,500,500
	Color 0,0,0
	SetFont Fnt3
	Text 70,80+(40*0),"Keys"
	Text 70,80+(40*1),"===="
	Text 70,80+(40*2),"Use either mouse button to"
	Text 70,80+(40*3),"Draw ON object AND TextureMap"
	Text 70,80+(40*4),"Move Object:Arrow,PgU/PgD"
	Text 70,80+(40*5),"Rotate Object:NumPad"
	Text 70,80+(40*6),"Brush/Text Size: -/="
	Text 70,80+(40*7),"Grab Color:Shift-Mouse Button"
	Text 70,80+(40*8),"Color Picker:Click on PaintPot"
	Text 70,80+(40*9),"Paste: Ctrl-V, then click-drag"
	Text 70,80+(40*10),"Copy (Use Area Tool): Ctrl-C"
	Text 70,80+(40*11),"Undo: Ctrl-Z"
	SetFont Fnt1
End If
Color ORD,OGN,OBL																	;Restore the color
End Function

Function LoadObjects(Nm$,Ob$)
ORD=ColorRed():OGN=ColorGreen():OBL=ColorBlue()		;Store our original colors
Scn=LoadAnimMesh(Nm$)
O=FindChild(Scn,Ob$)
EntityPickMode O,2,2
RotateEntity O,30,30,0
s=GetSurface(O,1)
b=GetSurfaceBrush(s)				;Get surface brush
Txt=GetBrushTexture(b,0)		;Get brush texture
W=TextureWidth(Txt):H=TextureHeight(Txt)
Fnt1=LoadFont("Arial",20,True,False,False)
Fnt2=LoadFont("Arial",24,True,False,False)
Fnt3=LoadFont("Arial",32,True,False,False)
SetFont Fnt1
Color ORD,OGN,OBL																	;Restore the color
End Function

Function Unload()
SaveBuffer(TextureBuffer(Txt),"Skybox2.bmp")				;Might as well write over it!  Ha!
FreeEntity Scn
FreeFont Fnt1
FreeFont Fnt2
FreeFont Fnt3
FreeTexture Txt
FreeTexture TTxt
FreeEntity Light
FreeBank lpCustColors_
FreeBank Coord
End
End Function

;Courtesy of Noobody
Function CalculatePickedUV()
	Local Surface = PickedSurface()
	If Surface Then
		Local Mesh = PickedEntity()
		TFormPoint PickedX(), PickedY(), PickedZ(), 0, Mesh
		
		Local Triangle = PickedTriangle()
		
		Local V1 = TriangleVertex(Surface, Triangle, 0)
		Local V2 = TriangleVertex(Surface, Triangle, 1)
		Local V3 = TriangleVertex(Surface, Triangle, 2)
		
		Local DX1# = VertexX(Surface, V2) - VertexX(Surface, V1)
		Local DY1# = VertexY(Surface, V2) - VertexY(Surface, V1)
		Local DZ1# = VertexZ(Surface, V2) - VertexZ(Surface, V1)
		Local DX2# = VertexX(Surface, V3) - VertexX(Surface, V1)
		Local DY2# = VertexY(Surface, V3) - VertexY(Surface, V1)
		Local DZ2# = VertexZ(Surface, V3) - VertexZ(Surface, V1)
		
		Local NX# = DY1#*DZ2# - DY2#*DZ1#
		Local NY# = DX2#*DZ1# - DX1#*DZ2#
		Local NZ# = DX1#*DY2# - DY1#*DX2#
		Local UX# = NY #*DZ2# - DY2#*NZ #
		Local UY# = DX2#*NZ # - NX #*DZ2#
		Local UZ# = NX #*DY2# - NY #*DX2#
		
		Local InvLength1# = 1.0/Sqr(UX#*UX# + UY#*UY# + UZ#*UZ#)
		Local Length2# = Sqr(DX2#*DX2# + DY2#*DY2# + DZ2#*DZ2#)
		Local InvLength2# = 1.0/Length2#
		
		UX# = UX#*InvLength1#
		UY# = UY#*InvLength1#
		UZ# = UZ#*InvLength1#
		DX2# = DX2#*InvLength2#
		DY2# = DY2#*InvLength2#
		DZ2# = DZ2#*InvLength2#
		
		Local T1# = 0.0
		Local S1# = 0.0
		Local T2# = DX1#*UX # + DY1#*UY # + DZ1#*UZ #
		Local S2# = DX1#*DX2# + DY1#*DY2# + DZ1#*DZ2#
		Local T3# = 0.0

		Local S3# = Length2#
		Local T4# = (TFormedX() - VertexX(Surface, V1))*UX # + (TFormedY() - VertexY(Surface, V1))*UY # + (TFormedZ() - VertexZ(Surface, V1))*UZ #
		Local S4# = (TFormedX() - VertexX(Surface, V1))*DX2# + (TFormedY() - VertexY(Surface, V1))*DY2# + (TFormedZ() - VertexZ(Surface, V1))*DZ2#

		
		Local Denominator# = 1.0/((S2# - S3#)*(T1# - T3#) + (T3# - T2#)*(S1# - S3#))
		Local Lambda1# = ((S2# - S3#)*(T4# - T3#) + (T3# - T2#)*(S4# - S3#))*Denominator#
		Local Lambda2# = ((S3# - S1#)*(T4# - T3#) + (T1# - T3#)*(S4# - S3#))*Denominator#
		Local Lambda3# = 1.0 - Lambda1# - Lambda2#
		
		PickedU# = VertexU(Surface, V1)*Lambda1# + VertexU(Surface, V2)*Lambda2# + VertexU(Surface, V3)*Lambda3#
		PickedV# = VertexV(Surface, V1)*Lambda1# + VertexV(Surface, V2)*Lambda2# + VertexV(Surface, V3)*Lambda3#
	EndIf
End Function

;FloodFill By Adam NovaGen - Modified for gradient handling
Function FloodFill(FillImage, Fill_X, Fill_Y, RGB%)

Local width% = TextureWidth(FillImage)
Local height% = TextureHeight(FillImage)

If Fill_X < 0 Or Fill_X > width - 1 Or Fill_Y < 0 Or Fill_Y > height - 1
	Return ; Coords ouside image boundaries
EndIf

Local CurrentBuffer = BackBuffer()
SetBuffer TextureBuffer(FillImage)
Local Current_RGB% = ReadPixel(Fill_X, Fill_Y)
LockBuffer
	
If RGB%<>Current_RGB% Then 
	Pixel.Pixel = New Pixel
	Pixel\X = Fill_X
	Pixel\Y = Fill_Y
	WritePixelFast Pixel\X,Pixel\Y,RGB

	Repeat
		Local PixelsRemaining = False
		For Pixel.Pixel = Each Pixel
			PixelX = Pixel\X
			PixelY = Pixel\Y
			PixelLeft = False
			PixelAbove = False
			PixelRight = False
			PixelBelow = False
			If Pixel\X > 0;check left
				If Current_RGB = ReadPixelFast(Pixel\X - 1,Pixel\Y) Then
					PixelLeft = True
					PixelsRemaining = True
				EndIf
			EndIf
			If Pixel\Y > 0;check above
				If Current_RGB = ReadPixelFast(Pixel\X,Pixel\Y - 1) Then
					PixelAbove = True
					PixelsRemaining = True
				EndIf
			EndIf
			If Pixel\X < width - 1;check right
				If Current_RGB = ReadPixelFast(Pixel\X + 1,Pixel\Y) Then
					PixelRight = True
					PixelsRemaining = True
				EndIf
			EndIf
			If Pixel\Y < height - 1;check below
				If Current_RGB = ReadPixelFast(Pixel\X,Pixel\Y + 1) Then
					PixelBelow = True
					PixelsRemaining = True
				EndIf
			EndIf
			Delete Pixel
			If PixelLeft = True
				Pixel.Pixel = New Pixel
				Pixel\X = PixelX - 1
				Pixel\Y = PixelY
				PixelLeft = False
				WritePixelFast Pixel\X,Pixel\Y,RGB
			EndIf
			If PixelAbove = True
				Pixel.Pixel = New Pixel
				Pixel\X = PixelX
				Pixel\Y = PixelY - 1
				PixelAbove = False
				WritePixelFast Pixel\X,Pixel\Y,RGB
			EndIf
			If PixelRight = True
				Pixel.Pixel = New Pixel
				Pixel\X = PixelX + 1
				Pixel\Y = PixelY
				PixelRight = False
				WritePixelFast Pixel\X,Pixel\Y,RGB
			EndIf
			If PixelBelow = True
				Pixel.Pixel = New Pixel
				Pixel\X = PixelX
				Pixel\Y = PixelY + 1
				PixelBelow = False
				WritePixelFast Pixel\X,Pixel\Y,RGB
			EndIf
		Next
	Until PixelsRemaining = False
End If
UnlockBuffer
SetBuffer CurrentBuffer
End Function

; This Procedure is for free MPZ (@) from Berlin
Function ColorPick()
	Local r%,g%,b%
	CC_ANYCOLOR = $100 
	CC_FULLOPEN = $2   
	CC_RGBINIT  = $1   
	nextOffset%=0:theBank=CreateBank(36)
	lStructSize=36:PokeInt theBank,nextOffset%,lStructSize:	nextOffset%=nextOffset%+4 
	hwndOwner=0:PokeInt theBank,nextOffset%,hwndOwner:			nextOffset%=nextOffset%+4 
	hInstance=0:PokeInt theBank,nextOffset%,hInstance:			nextOffset%=nextOffset%+4 
	rgbResult=0:PokeInt theBank,nextOffset%,rgbResult:			nextOffset%=nextOffset%+4 
	PokeInt theBank,nextOffset%,AddressOf(lpCustColors_):		nextOffset%=nextOffset%+4 
	flags=CC_ANYCOLOR Or CC_FULLOPEN Or CC_RGBINIT
	PokeInt theBank,nextOffset%,flags:											nextOffset%=nextOffset%+4 
	lCustData=0:PokeInt theBank,nextOffset%,lCustData:			nextOffset%=nextOffset%+4 
	lpfnHook=0:PokeInt theBank,nextOffset%,lpfnHook:				nextOffset%=nextOffset%+4 
	lpTemplateName$=""+Chr$(0)
	lpTemplateName_ = CreateBank(Len(lpTemplateName$)) 
	string_in_bank(lpTemplateName$,lpTemplateName_)
	PokeInt theBank,nextOffset%,AddressOf(lpTemplateName_):	nextOffset%=nextOffset%+4 
	If api_ChooseColor%(thebank) Then
		r%=PeekInt (thebank,12) 
		b%=Int(r%/(Int(65536))):r%=r%-(b%*(Int(65536)))
		g%=Int(r%/(Int(256))):r%=r%-(g%*(Int(256)))
		Color r%,g%,b%
		Return 1 
	Else 
		Return 0
	EndIf 	
	FreeBank theBank
	FreeBank lpTemplateName_
End Function

Function AddressOf(Bank) ; Find the correct Adress of a Bank (for C *Pointer)
	Local Address = CreateBank(4) 
	apiRtlMoveMemory(Address,Bank+4,4) 
	Return PeekInt(Address,0) 
End Function

Function string_in_bank(s$,bankhandle) ; Put a String in a Bank
	Local pos=1
	Local pos2=0
	Repeat
		PokeByte(bankhandle,pos2,Asc(Mid(s$,pos,Len(s$))))
		pos=pos+1
		pos2=pos2+1
	Until pos=Len(s$)+1
End Function

Function bank_in_string$(bankhandle) ; Get a String from a Bank
	Local s$=""
	Local pos=0
	Repeat
		s$=s$+Chr(PeekByte(bankhandle,pos))
		pos=pos+1
	Until pos=BankSize(bankhandle)
	s$=Replace$(s$,Chr(0)," ")
	Return s$
End Function

Function CopyImageToClipboard(himage,Wid,Hei)
 ;Copy a given Blitz3D image to the clipboard
 ;From "Copying a DIB to the clipboard", by John Simmons
 ;(http://www.codeproject.com)
 Local width,height,sizeBits,sizeInfo,sizeDIB,btmp,x,y,offset,hDIB%,pbmi
 width=Wid ;TextureWidth(himage)
 height=Hei ;TextureHeight(himage)
 ;calculate bits, DWORD-aligned scanline (Width * BitCount) * Height
 sizeBits=((width*24+31)/32*4)*height
 sizeInfo=40 ;sizeof(BITMAPINFOHEADER)
 sizeDIB=sizeInfo+sizeBits ;total size
 btmp=CreateBank(sizeDIB) ;bank to store DIB
 ;calculate DWORD-aligned offset of bits for proper alignment
 ;we'll use biSize to store each pixel, we can fill it in after
 LockBuffer(TextureBuffer(himage))
 For y=0 To height-1
  offset=((width*24+31)/32*4)*y+sizeInfo ;start of next scanline
  For x=0 To width-1
   PokeInt btmp,0,ReadPixelFast(x,height-1-y,TextureBuffer(himage)) ;biSize
   PokeByte btmp,offset+(x*3),PeekByte(btmp,0) ;blue
   PokeByte btmp,offset+(x*3)+1,PeekByte(btmp,1) ;green
   PokeByte btmp,offset+(x*3)+2,PeekByte(btmp,2) ;red
  Next
 Next
 UnlockBuffer(TextureBuffer(himage))
 ;fill in the info header for our 24-bit DIB
 PokeInt btmp,0,sizeInfo ;biSize
 PokeInt btmp,4,width ;biWidth
 PokeInt btmp,8,height ;biHeight
 PokeShort btmp,12,1 ;biPlanes, must be 1
 PokeShort btmp,14,24 ;biBitCount
 PokeInt btmp,16,0 ;biCompression, RGB=0/RLE8=1/RLE4=2/BITFIELDS=3
 PokeInt btmp,20,sizeBits ;biSizeImage, zeros here mean "default"
 PokeInt btmp,24,0 ;biXPelsPerMeter
 PokeInt btmp,28,0 ;biYPelsPerMeter
 PokeInt btmp,32,0 ;biClrUsed
 PokeInt btmp,36,0 ;biClrImportant
 ;alloc memory block to store our DIB
 hDIB%=api_GlobalAlloc%(66,sizeDIB) ;GHND=66, MOVEABLE=2|ZEROINIT=64
 If Not hDIB% ;major bummer if we couldn't get memory block
  FreeBank btmp
  Return False ;fail code
 EndIf
 pbmi=api_GlobalLock%(hDIB%) ;lock memory and get pointer to it
 Api_RtlCopyMemory(pbmi,btmp,sizeDIB) ;copy DIB to memory
 api_GlobalUnlock%(hDIB%) ;unlock the DIB
 ;send the DIB to the clipboard
 If api_OpenClipboard%(0) ;hwnd
  api_EmptyClipboard%() ;free last data
  api_SetClipboardData%(8,hDIB%) ;CF_DIB=8, hdata[bitmap]
  api_CloseClipboard%()
 EndIf
 FreeBank btmp
 Return True ;success code
End Function

Function PasteImageFromClipboard()
 ;Paste the clipboard to a new Blitz3D image
 ;From "Copying a DIB to the clipboard", by John Simmons
 ;(http://www.codeproject.com)
 Local hDIB%,himage,pbmi,btmp,sizeInfo,sizePal,width,height,bpp
 Local sizeBits,sizeDIB,x,y,offset,index,bytespp
 ;receive the bitmap from the clipboard as a DIB
 CapW%=1:PokeShort Cord,16,CapW%
 CapH%=1:PokeShort Cord,18,CapH%
 BMPValid%=0
 If api_OpenClipboard%(0) ;hwnd
  hDIB%=api_GetClipboardData%(8) ;CF_DIB=8
  api_CloseClipboard%()
 EndIf
 If Not hDIB% ;if we didn't get a DIB, return a dummy image
  himage=CreateTexture(1,1,1)
  Return himage
 EndIf
 pbmi=api_GlobalLock%(hDIB%) ;lock memory and get pointer to it
 btmp=CreateBank(40) ;initialize bank, we will resize it later
 apiRtlMoveMemory(btmp,pbmi,40) ;move info header to bank
 sizeInfo=PeekInt(btmp,0) ;biSize
 ;calculate palette, Clipboard DIBs use the BITMAPINFO struct
 sizePal=PeekInt(btmp,32) ;biClrUsed
 If Not sizePal
  If PeekShort(btmp,14)<16 ;no color table for 16/24/32
   sizePal=1 Shl PeekShort(btmp,14) ;biBitCount, colors=2/16/256
  Else
   sizePal=PeekInt(btmp,16) ;biCompression, 16/32 use BI_BITFIELDS=3
  EndIf
 EndIf
 sizePal=sizePal*4 ;sizeof(RGBQUAD)
 width=PeekInt(btmp,4) ;biWidth
 height=PeekInt(btmp,8) ;biHeight
 CapW%=width:PokeShort Cord,16,CapW%
 CapH%=height:PokeShort Cord,18,CapH%
 BMPValid%=1
 bpp=PeekShort(btmp,14) ;biBitCount
 bytespp=bpp/8 ;bytes per pixel
 ;calculate bits, DWORD-aligned scanline (Width * BitCount) * Height
 sizeBits=((width*bpp+31)/32*4)*height
 sizeDIB=sizeInfo+sizePal+sizeBits ;total size
 ResizeBank btmp,sizeDIB ;resize bank to store DIB
 apiRtlMoveMemory(btmp,pbmi,sizeDIB) ;move DIB to bank
 api_GlobalUnlock%(hDIB%) ;unlock the DIB
 himage=CreateTexture(width,height,1) ;new image to write
 ;calculate DWORD-aligned offset of bits for proper alignment
 ;we'll use biSize to store each pixel, we don't need it any more
 LockBuffer(TextureBuffer(himage))
 For y=0 To height-1
  offset=((width*bpp+31)/32*4)*y+sizeInfo+sizePal ;start of next scanline
  For x=0 To width-1
   If bpp=1
    index=PeekByte(btmp,offset+(x/8)) ;1-bit, looks nasty but it works
    ;work out the bit, invert it, bitmask the byte and convert to 0/1
    index=(index And (1 Shl (7-(x Mod 8)))) Shr (7-(x Mod 8))
   EndIf
   If bpp=4
    index=PeekByte(btmp,offset+(x/2)) ;4-bit, work out the nibble
    If x Mod 2 Then index=index And 15 ;get bits 0-3
    If Not x Mod 2 Then index=index Shr 4 ;get bits 4-7
   EndIf
   If bpp=8
    index=PeekByte(btmp,offset+x) ;8-bit, we have our index
   EndIf
   If bpp=24 Or bpp=32 ;get rgb offset
    PokeByte btmp,0,PeekByte(btmp,offset+(x*bytespp)) ;blue
    PokeByte btmp,1,PeekByte(btmp,offset+(x*bytespp)+1) ;green
    PokeByte btmp,2,PeekByte(btmp,offset+(x*bytespp)+2) ;red
   ElseIf bpp=16 ;rgb=565
    PokeByte btmp,0,(PeekShort(btmp,offset+(x*bytespp)) And 31) Shl 3 ;blue
    PokeByte btmp,1,((PeekShort(btmp,offset+(x*bytespp)) And 2016) Shr 5) Shl 2 ;green
    PokeByte btmp,2,((PeekShort(btmp,offset+(x*bytespp)) And 63488) Shr 11) Shl 3 ;red
   Else ;get palette index, 1/4/8-bit
    PokeByte btmp,0,PeekInt(btmp,sizeInfo+(index*4))
    PokeByte btmp,1,PeekInt(btmp,sizeInfo+(index*4)+1)
    PokeByte btmp,2,PeekInt(btmp,sizeInfo+(index*4)+2)
   EndIf
   WritePixelFast x,height-1-y,PeekInt(btmp,0),TextureBuffer(himage) ;biSize
  Next
 Next
 UnlockBuffer(TextureBuffer(himage))
 FreeBank btmp
 Return himage ;image handle
End Function

-----Here is the HexRead program to decode the hex .zip file below it-----

;HEXREAD
o=0:fl=0:ck%=0:pre_ck%=0:mck%=0
MyPath$=".\"
NM$="PasteMe.Hex"
FileIn=ReadFile(NM$)
NM$=ReadLine(FileIn)
FileOut=WriteFile(MyPath$+NM$)
ck%=ReadLine(FileIn)
While Not Eof(FileIn)
ReadIn$=ReadLine(FileIn)
If ReadIn$<>"" Then
o=0:For t=1 To Len(ReadIn$) Step 2
Nib1$=Mid$(ReadIn$,t+0,1)
Nib2$=Mid$(ReadIn$,t+1,1)
N1=Instr("0123456789ABCDEF",Nib1$)-1
N2=Instr("0123456789ABCDEF",Nib2$)-1
Byt=(N1*16)+N2
pre_ck%=pre_ck%+(Byt*(256^o)) ;Build 8 byte value
o=o+1:If o>3 Then o=0:mck%=mck%+pre_ck%:pre_ck%=0 ;Checksumming
WriteByte(FileOut,Byt)
Next
End If
Wend
CloseFile(FileOut)
CloseFile(FileIn)
If mck%<>ck% Then RuntimeError "Warning: Checksums did not match!"
End

RemiD

(Posted 2014) [#2]

Take a look at :
http://www.blitzbasic.com/codearcs/codearcs.php?code=2895
http://www.blitzbasic.com/codearcs/codearcs.php?code=369
http://www.blitzbasic.com/codearcs/codearcs.php?code=515

Mikorians

(Posted 2014) [#3]

Thank You RemiD!

And-

Thank You Noobody!
Please state your name if you want to for credit in this painter app!

Rick Nasher

(Posted 2014) [#4]

@Mikorians: forgive me for being utterly clueless, but what is the whole Hex-file thing supposed to do? Extract media I assume? Cos it's not working for me if I do what you describe above:

1) save top file as "3D Painter for Objects.bb"
2) save bottom file as "PasteMe.Hex"

Run: 3D Painter for Objects.bb

Results:
Error for not putting a ";" in front of the text "and for the .zip file in hex below..." in "3D Painter for Objects.bb".

Now that would make sense if the HEXREAD bit is supposed to be in a separate program called "HEXREAD.bb"?
Either way it's giving me a "File does not exists"error on the line "CloseFile(FileOut)", even when I put my full path into MyPath$= ".\"

Nogo even if I do this straight from the root of my D: drive.
Anyway, hope you can shed a light on this? (or just dump the media files on MediaFire.com?)

Mikorians

(Posted 2014) [#5]

Copy just the hex data (include the 'object painter.zip' line) into notepad and save it in the same folder as the hexread.bb program as "pasteme.hex", Run hexread.bb, and it should create the zip file (which already includes the paint.bb program)
I had tried to put the two source listings into separate code windows, but the forum had a bug I think.
I would like to see if we can make it work together.
Inside the zip?
Object Painter.bb
SkyBox.B3D (just a quad)
SkyBox.bmp (just a white 256x256 bitmap)
It should handle any simple 100% scaled, non-hierarchy, single object b3d.
Be sure the object in the b3d file has a brush texture "skybox.b3d" when you save it.

Mikorians

(Posted 2014) [#6]

Sometimes bb requires you to double-click the bb program rather than open it from the menu bar since it contains the path when you click the icon.

Rick Nasher

(Posted 2014) [#7]

Ok worked now, dunno why didn't before, while I did exactly the same thing. Weird. Anyway it works.

Where are you planning to go with this? 3D game character painting or something?

RemiD

(Posted 2014) [#8]

wrong topic

Mikorians

(Posted 2014) [#9]

Oh, I've been writing this 3d texturemap editor for the purpose of tidying up the paintjobs on existing objects such as a real nasty skysphere (not a skybox).

The poles on skyspheres are especially pernicious.

But I've done a whole lot more work on this thing and now it has a lot of the same tools paint does (and some it doesn't)

I will be re-releasing the new version soon I think.
I'm just working on the palette selector api thing...

Rick Nasher

(Posted 2014) [#10]

That would be great. Indeed the poles on skysphere's are nasty to do properly. Such a tool would be really helpful, especially if it also does customizable gradient fills.

Mikorians

(Posted 2014) [#11]

Hm. Gradients. I will work on it, Rick!
I'm almost finished.

Ya know what's most wonderful about it is that basically you have obtained a planar projector for whatever faces are towards the camera.
I've been working hard and now have non-curved lines when you draw across the object in the window- darn cool stuff!
I think people might like this a lot!
I just have double-line-edge blur (toughy) and two other features before I'll consider this an alpha.

Rick Nasher

(Posted 2014) [#12]

Sounds really really good.

Btw(offtopic), the HEXREAD.bb thingy has one very positive aspect to it:
The code published on this site will keep having the media available with it, contrary to some previously published stuff that relied on the media to be hosted externally.

Therefore I think it's good practice to include media like this, which brings me to the next part:
Do you also have an HEXSAVE.bb to create the hexfiles?

Mikorians

(Posted 2014) [#13]

It IS kind of a neat way to gain persistence, isn't it?
Here's the ap, but hex files take up about 2x the space in text form.
I don't upload ANYTHING above 4K since I don't want to offend the forum operators.
Use it WISELY.

;HEXWRITE
fl=0:mck%=0:pre_ck%=0
NM$="BlitzLevel.Zip":pc=0
FZ=FileSize(NM$)
FileIn=ReadFile(NM$)
While Not Eof(FileIn)
ReadIn=ReadInt(FileIn)
pk=pk+1:If pk<4 Then Print Hex(ck%)
A$=Hex(ReadIn)
o=0:For t=Len(A$)-1 To 1 Step -2
Nib1$=Mid$(A$,t+0,1)
Nib2$=Mid$(A$,t+1,1)
N1=Instr("0123456789ABCDEF",Nib1$)-1
N2=Instr("0123456789ABCDEF",Nib2$)-1
Byt=(N1*16)+N2
pre_ck%=pre_ck%+(Byt*(256^o)) ;Build 8 byte value
o=o+1:If o>3 Then o=0:mck%=mck%+pre_ck%:pre_ck%=0:pc=pc+1 ;Checksumming
Next
Wend
CloseFile(FileIn)
o=1
FileIn=ReadFile(NM$)
FileOut=WriteFile("PasteMe.Hex")
WriteLine(FileOut,NM$)
WriteLine(FileOut,mck%)
While Not Eof(FileIn)
ReadIn=ReadInt(FileIn)
A$=Hex(ReadIn)
b=Asc(Mid$(A$,7,1)):WriteByte(FileOut,b)
b=Asc(Mid$(A$,8,1)):WriteByte(FileOut,b):fl=fl+1:If fl=FZ Then Exit
b=Asc(Mid$(A$,5,1)):WriteByte(FileOut,b)
b=Asc(Mid$(A$,6,1)):WriteByte(FileOut,b):fl=fl+1:If fl=FZ Then Exit
b=Asc(Mid$(A$,3,1)):WriteByte(FileOut,b)
b=Asc(Mid$(A$,4,1)):WriteByte(FileOut,b):fl=fl+1:If fl=FZ Then Exit
b=Asc(Mid$(A$,1,1)):WriteByte(FileOut,b)
b=Asc(Mid$(A$,2,1)):WriteByte(FileOut,b):fl=fl+1:If fl=FZ Then Exit
o=o+8:If o>80 Then o=1:WriteByte(FileOut,13):WriteByte(FileOut,10)
Wend
CloseFile(FileIn)
CloseFile(FileOut)
End

Rick Nasher

(Posted 2014) [#14]

Nice one. Thanks a million.

Guy Fawkes

(Posted 2014) [#15]

Here's a small update which now includes the ability to delete all the painted parts of the texture simply by holding right mouse button and dragging. I also changed the color of the paint brush to dark green so that we can establish after painting the entire quad, where the quad is instead of a black quad with a black background. I also changed the paint brush from point brush to rectangle brush, this makes it much easier to paint a solid color on to a surface.

PasteMe.hex:

https://www.mediafire.com/?u922sm915345c22

If someone could please modify this and "Hex" me the example, that would be great! Thank You all, and kudos to the creators of this WONDERFUL program! :)

Mikorians

(Posted 2014) [#16]

Thank you, but there's a HUGE update coming which includes that very thing and a whole lot more, so please stand by.
My problem is that the PickedUVW function is very slow for even a small array of points because mouse pixels are much smaller than the 'texels' are, but I still have to cover them carefully...
I will post soon... Any fixes to THAT routine would be helpful.
I've been hammering on a masked texture map applicator thingimagigger.
Rick has given me a real headache.
I also have blur and emboss functions that are part of the problem.
It's already become quite a tangled thicket that works sorta good, and if someone wants to help clean it up, PLEASE let me know.

Guy Fawkes

(Posted 2014) [#17]

Nice job, Rick XD

Rick Nasher

(Posted 2014) [#18]

As always..

Guy Fawkes

(Posted 2014) [#19]

It's ALL YOUR fault, Rick XD

Mikorians

(Posted 2014) [#20]

The latest version at the top. We're all untangled now, but I've been forced to knock out a few erroneous functions, and instead have left the puzzling function alone, by itself for anyone willing to have a look.

I'm not going to run an executable, Mr. Fawkes.

Rick Nasher

(Posted 2014) [#21]

Better safe than sorry ;-)
I'm very curious about this but I'm getting a "Function 'api_choosecolor' not found", even though I've included the latest FastExt.bb from V1.17.

Is there perhaps some other dependency that needs to be installed?

Mikorians

(Posted 2014) [#22]

Yes, the comments at the start indicate you need the two .delcs files typed in.
Incidentally, Mr. Fawkes, if you had hosting, why post the .hex file instead of the .zip?
8/

Guy Fawkes

(Posted 2014) [#23]

Because I also included the compiled EXE in the hex, and it was too big to paste anywhere else.

Guy Fawkes

(Posted 2014) [#24]

@Rick Nasher, the api_choosecolor function is part of the win32 api DECLs file.

Rick Nasher

(Posted 2014) [#25]

Pretty cool, can start it now but when tryin to select color then "User lib function not found"
But I'm probably doing something wrong(too tired after work) I'll check later.

Guy Fawkes

(Posted 2014) [#26]

You'll need to make sure you have user32.decls (all of it) in your DECLs folder, and make sure your user32.dll system32 DLL file is NOT corrupt.

Mikorians

(Posted 2014) [#27]

Wow. Yeah. Be careful folks.
The API is for a color palette selector built into windows xp. I hope it still exists in newer windows.
I had just grabbed it from the codearc. Credit to "MPZ" ? from Berlin.

Rick Nasher

(Posted 2014) [#28]

Ok, well I'm on win7, but I'll checkout GF's suggestions..

Kryzon

(Posted 2014) [#29]

You should encapsulate the code in {codebox} {/codebox} tags, replacing the braces with brackets.
It generates a text-area box with scrollbars that contains your code and makes it easier to copy and paste it.

Guy Fawkes

(Posted 2014) [#30]

Sorry, @Rick Nasher. This one function apparently came from "comdlg32.decls", not "user32.decls". After I made this change, it worked fine for me :)

Mikorians

(Posted 2014) [#31]

Thank you Kryzon, Done.
Latest update again. Now blur works - MOST IMPORTANT FUNCTION.
Mr. Fawkes, you found my oopsie. Fixed the comment in the .bb

Guy Fawkes

(Posted 2014) [#32]

Hehe, glad I could help, buddy :)

Guy Fawkes

(Posted 2014) [#33]

So Mr. Mikorians, when will there be a way to texture splat onto a 3d mesh? :)

Mikorians

(Posted 2014) [#34]

Do you mean 'paste' ?

That much seems eminent along with a bitmap floodfill maybe.

If you mean something more complex... Dunno.
I want to help the community. This thing's a lot different from just a paint program!
If you have reasonable ideas... But I will need to return to my engine soon. (Don't we all)
I'd trade a feature (if I can do it) for a really good set of 256x256 skysphere bmps.
I rotate my sky to simulate wind. I already have sun and moon.
Just different skies. Ah well... It's why I wrote this thing.
This program really needs a good mathematician and 2d gfx man.
Text tool sucks right now. Needs a file requester, bla, bla, bla...
A project like this is never really finished.
It will be updated here as I get to it in the months and years ahead.
Over time, I'll need features, and get sick of the lack thereof.

Guy Fawkes

(Posted 2014) [#35]

Yea, I mean paste :P

Mikorians

(Posted 2014) [#36]

-----Copy the below text, and paste it into notepad, then save it as PasteMe.Hex-----

Object Painter.zip
-1878181617
504B03040A0000000000FB7132440000000000000000000000000F0000004F626A65637420506169
6E7465722F504B0304140000000800536031442B190F602F040000D68D0000180000004F626A6563
74205061696E7465722F4374726C732E626D70EDDD4196DA300C06607A8B1EA127E8A22B5EF7BD13
17E81D7A13BAECAAAF8BBEB90E236230C126D12F5B194B203DC11B6070BEC9388EA36498EF3FDE7E
EEA6F84AB72F74FB46B7BF74FBB4FB3C3DFF8B5E2FE3CFBFFF2EF27038ECF7FBF06E959577673296
BDA7D3E9A011B410C5A656BDEC2F85CDB410C5A6306FF3D031C2DB33DA8DF64AC923BCF3FE20550F
F2CE53A4B6E1C5D596BC88DA9EB7DE263D780BB2792FB5E4C15B180DF707647030E095EEE80679A5
CCA15E6FF30764B66FC9FB70C35FB1A78743BDF8A8360FABDE797AF37AE80FEC42149B5AF12AC5D9
AB14D454D44BA25E02F75FB60D36C31BDEF0B6787792B0E1659B4C19DEF08637BCE17D712F1E06BC
6D19DEF08617F5AA44D44BA25E32A8FFB26DB019DEF086B7D78B9F8B1BED4D34F6348B0D2F728861
E67A02046BEC78886D32BCAFE305C966B63787E399C3FD8534C31BDEF03EAB5725A25E12F59241FD
976D83CDF0BEB8D7D5F921C3D7DB2358C3DE8475D27F5D1D5F24AC93F181BDEADE9297C55AF22258
335E106BC38B630D7845D8D15E2976B4B721C31BDEF0A25E95887A49D44B06F55FB60D369D7B7F37
8531EFC3AE6AD5BB5B087A6387F7289C9681DEA5D1B9DBDB4C5EF7A69736F0B258B05E82ACDC39B9
D59BC8C8E959DC9B9EDFC64B587A1FDDAF604FC0E7AD802BB7DB4B89604F2498BEC4BD4817967BF3
FA65B16DDEE2BEDB3B27E358647BABA54AE36FB17E2F6DDF6345DB1B456DA47BA5FD5B414ECB29C8
A2F1ACF0DE197BE70F57EC8D7C614E81D77F6BEC36DE9A3C25FF41260FBD79F29D5F3D7F7D0D256F
22A77B760FB2E2AD3B293DBCFC1CD750F23664ED5DDAAEACCE276F3D612132B96FFC6D4BE7C7433D
09785522EA25512F19D47FD936D874EECDDDB0E1A19297DAC03F9F4B7ABA8652DB4B99B7A8CBFD14
4FE1EDC957F7E6F0D01FBC6D6FEEBCFB439143FB2F3B0129C8A33FBF8FF5CEC9F9C971FD21BC700E
F5F6647879AFA5FE805C4FFB51DEE6B4375F17797BF209BD2A11F592A8970CEABF6C1B6C86B7D72B
AA97F4A492D7EDF13CEE9DFF0EF0BF191FE7CDEF12FD5B0D6D2F522F29DE855FF7A1ED6DDBDED89D
589F97BE1DEF7AA0175CB972AFA0F800D74BE825A4E7CABDEC04A4B95E42AF222B57DB0B1EBFB15E
A5F1773B2FB8724D7AF5F66FDEBCC8FEB2D90B1EE70BBDEC3F22EAF12229F7B2C9D64B7A7203AF87
F93AB210C5A69ECAAB12512F897AC9A0FECBB6C16678C55E645F6FCC8B93D342DA3E0A50D50B2E30
7B919F58EF78A8E17040EAA5678E474AADE3E3BBA54D06845C7B574E845DC9BAF5927CDD3A5D99AB
E24D0F5972ABF746065631EB4D4084DCE73D6381550C7A1172873793D95EBCE4A51F34BB16C8EA5E
A417AF782751919BD67F131929D2155E90ACB7BDDD2FF948DF897B6B723DB3571DCFAA251FD985AC
9406F2A600FE698F8637A5C8FB70EB45869A3E2F3B9D00BDECE441CF2BDDBF356778C32BF4AAC447
D54B8C6778B7CDABF71D504B0304140000000800B4723244215F78BB682C00007294000020000000
4F626A656374205061696E7465722F4F626A656374205061696E7465722E6262E55D6B57DB3C12FE
4CCFE97FD04239EB10076227509A34EC722DEC5260B914D2BD1D273190AD13A7B653C89EFDF1FBCC
48F23D40BBDD7BDF9758966646D268341A8D2E6EEFCCC4C7E1173F183AE350D4845DB79A786C8BB3
69CF1BF6C59E3F72866371E9FB1EA24FFC07E1F4A3A9E379337175B17F70752C1E86D1BDD8F1A681
302E8399184662EC3A8188EEFDD015811F45FE584C7C6F768767CF0F066E10565EBF6AEFF96E38FE
65241EFCE08B78703D4F121A398F22988EC7C3F19D004274EF8AD019E1A7EF8E5D94A0378C46CE44
DCFB77776EF00BD039BA15337F2A8EB7777F4BD023935E7F097263D71D0827129EEB841125A138AB
03B7EF85E276E8B961EBF52BA05F856EE00D7BE1DA173718BB5EC396202D24AD225E2C26F19EB788
5867323C8FBC8FFE37F7A33BF28399B1E786D170EC44437FBC625EF8D3A0EF9AC7EEF82EBAAF8896
58CC002B027F46E4AE3F99152928022B9A422B872FDADBBFDD16F932D88AEC07CFEF39DEB6E7F9FD
65E3E1C073EE4273F0B0338BDC109452A98B198463BFFF65D9B807AD6580257159A8ABB197834B62
17B3BCECFBA3817757E4651C9FF0F2CFBBF73E0465D7F7FC60D998C8B73EBDAD30FB52C9DBB95CA6
0814F3A0E45C0E1E51F086939EEF0483650365CF4669C0FDD1249A6501B3513143DC288EDB732287
98ED07232722BEE41335D25118474BE0ED6FCED0737A9E9B419F0FA6099D4EDC71AA94F70FE30121
66A235ECC5DC929ABA1DF3209031E3C109C50FA26F2F8AE1B8EF0781DB8FBC59859B6CE59FF00F64
2FA2A1EAE72D71EE86C3BFBAC2095C4718D4B784331E8833747D97554CC514A137BCBB8F4408D5E2
B9B5C9F0D1F5446F7A27C67E044D11FA23F7E1DE0DDC5550FEE80F86B733D63EB79EEF0F6E29A3C8
87EEEBBB9348B07C428D04FE48F475E5FF69F5A4F25CED1E8ADF4E077E48A538F1FD9E3F98895B3F
E022EE3A5E7FEA39917B36EC7F7107579FC4C174DC2775227E2144D70D7FF10BD29497F7CEF80BDA
D50B7DA2B23D704620F5CDB973C7CCAC0F813B13DBDED01D03987B1CD30BC459E0F7DDC1347005C9
C522B245D55D577C3CFB2C8C5F57241F76A8578E17A9597CB0F4013A5DF49DB1F8CB14DA77823124
1278F37B7F815C408F13A7C5CC11773E972D162171AB8A1E82CBD3009A6B26FC5B0C0BC197FE0317
F337FEFD585C0C4723C010738EC67D6F3A70C5E25EEB0F28E95D806A1D9082FFC38E378CFEDA18FC
4141FCE100D2B0FF18ADF67A90F1D3318630A89001B3F1E27757DBE7FBE2ECE866FFF882A84AED26
76316075760317CCDD01F70CBB5E810AF620386EDF01B69070A178407DC6BFA49A8644D39F46E110
851ACD920AA19AAC7C416B80769BB2D2AA0B71E0F918A66E96F0D6D46F5D7ADB14E2086C13E2F8C6
5AC6BB55D7EF5DF96EC7E936BF37E374F9BEA1DE779DC935476C261187CBA96A7A935D3413B779F8
E7747D379A9505F50FF2330C05FE5762277BC1448AC8F6D9D1EB5797B3892BCEA85F651098CB0996
E77E0342DCAD62FE88DE2C91C90F24840B0743D71B881BB3FBFAD53E5A9EE8272D13055E68EE3A23
F3A23F364F17D2FFDAFBE368180DDD3086BEBC7C8C4CFA83489BD7E66116FCD27D8C48BC3F3A9310
568C3B9AAC0A0216BBD300CD1AC9979DD144A0BA228CA6B7B7A6B81E0EA27B531CBAA455A0E7F686
2371351EF88655973CCBE641494265D40301F0C0090267A610C1366B09A8F5BA69558AB8C3AF5357
489575EF7BB0A1889F6C7525F8F60FE22B161D8C23CBC48F4D3F0D30EB8D79E84D52540EFC71242B
1FE32885B364CAC0A725F37C607E189B3B1E0236423682F80BC2A58E657E1CB89DBA682BA4B54F4B
4A9A8A0ACCA880F752C95AA22A6C303F9886F78274BC298DD10BD773FBE84971594E776E96CCD39D
2EFD7C5ECA714037E429EB1FD046BF26932B2522C026DCDD1BFC75F187FC7314423F9098A12A1DDA
9B58791409836C552545B04F2B9A2A755DF3B88BBF1B1B4F3B5BAA0390381EC2AEFDE4785317A2F7
D1279D72E68743EE113E74544C4AF66293BBAEB9F3F10C38C3C1728ADA211A36144881DE9D504998
5D31FAC7D3AB3D937E0FF13B9E12AB3BF5143AE7BDE73F8C914CC1C32164FEE896F5B8C7ED628AC1
7040EFD4E9852322B4C3AF62FA60D08177D7A99BE2F8807E777D74C2F1D4A50AEA8CDA6493D2E033
089C07A1586AD43B7B78AD989217187BD1C667983178F4DA57649286BA1EA22B3DB8838E55E8643A
8989F0C87934062BC1A9BFB2790D1A8133B91FF6C3C69ED8445FD9C01F7A4C4D23BE7E251B9662EB
AF5F9D9EEF7538E2DC1DC01C3CFD70225F3F60F81B53C4CEB18CD841FB19950598243EF88E814B60
46750709F3B4B160FC8606C2E1188D13BA6854148C06A385B27F4F0F4EBB1EE6574A9360A08B30A1
FA2E7C85BA3D1E867E1490A954B3CDFA771080D2556304426EE018A88E0C9D3BE33B5790525EB5CC
7528239DF0D9F7471C6FBD7EA5C59B95F48C63ED4DB36635CCDAE6FAEB57C7A44F157D0E1379D6F6
9D63DF19A8D21B8B1CB5DA1B4D16914E29B26FC340B9F832DBF11F577B8DC1A2B978312153A36E2D
EAAA5DD04C9264D0030EC4F47EE80DB45E384161C1A0CB475D009D1B860CD3423ED463A34E1D2A48
58F516ABFBA8520ADB2223F41C445996288E9E0A6687070003F95472518A64A5758268F06AD8CF51
B7D7374CFC21072DAB105213926942180B8204B398243219AF7372C87DE42C18C2BE9AC186667576
ECFB93D7AFAEC117176371247EEBCEA00B0CCA70E16A3240598EC6936914BF5DFB8137C09B44E7B7
38CDDEA361DC83EE0695508759BFF0CB907272C740B81A537B507962E335C98C65E0E2FE16AC6F51
BBE3B1EDE105DDE896CA476ACB68DA15711AC4AFEBCD8AB8BC876DCB785606D47E9701B5D6DF2A58
229E835DDFC8C2C67451020225BDDA899527D854359237BBB26267221A959566A5455AB8A3B52CA3
E8178991BC33022AFF6849F81B689D990A77892B54D6589F5BB2641F7C88F7C597894CD50DB8FE4E
151CC37AC7AAE1B775EE8EE044907AB8A5B1A0A52D213AB06C3C4541B185B1D3149B60C5F678904E
CE481FC5D73E83144935DA3B9D9D687F8005288E06AE83941774166D5BE57B4C844E040AB2675AB2
6B8A8BC89D889AF5924E287B5CCDAA3CD31517347FA4317A749B3C33F26235249B8B5ABD238C6A45
74942D73EC047061812E5B47F453ADAF5A2D50A2F056A3BE5A97CDC5E9F45A52866CCEF6BC9C6B15
817F3AE78B11FC77D9AC6BA9ACDF239CCA196FA519D38C721A401E468F21FAE368C6BF7FC5AF68FF
F64C9C5D99677BE695B9679E9BC79962BE550C1204DCC8246D5AA9A45A36EDADADD31E0B68F538A9
88A6BB36153097B41E2749B4F6762FF4BD295C06E77EC4064361B43A35EB528682298D14D3204940
E626289928BB4A6E938B8E19643187E4E3AFF410ED0C838430F6A61398596492C217A167CF9833F4
FCE89EFC98FEB8EF8A5625ABC7EABAE64CBC914BDC4C27D6F2A971ED1F4B501B7162192AA618BA99
8AA8EFE23654A8649977E8A74AD45A64A377F083D719BF7EC62B7EAA8450C2F0AC61AF580BE66A15
89816DD483A938901EE458D78AD07547EC30E9B9E26EF88D5CCA53CCD47D57F558D2C2EFB7642FCB
4D984EF64E57C511E64A1397C1041AA67F8FA6A1C9EB2CBA07AD9C3ECB12D899B9A287BF3EA70134
6538BC7BB956AA3EAF955E402B31338ACA34DD9FE1CA93C9A288FFCC40F036A5798A43C027D191AE
B88467FFF97CF9410A971427E0FB08FC077F8AE507D45B4E776E03B62E17C8A6636E1C8DE07B3B80
F32CF67E19942FCFF33A67AEFBE5E2DE0F22837C50A6B5A1920E8B499B9484C6882785710B2D2CD0
9CDBAA5308B3321B4FD5DC458D9E69CF8D27DB7317ED49DC91D9CA2CD810383ED0FDA9D8D284C035
BEF493FA923B2635AFADA40A987D265D76AFCAD693CC26EE6FD328229F61E0D2728F3B90254B8A93
5480E798C3109A75ECA6CAAFC0627A7299E9A3331E4EA69E1A0A1624CD14773375E488A40FED38FD
2F32C8ADBAF022792A11A867E569610193DA1E1ADF8073CF80C3A16272A0AB0337B68EB159B0A52C
C4F61E1C9AE435BF03911E4DF2F13298A9493A6939D52249FD1B5C7F846818BB76B19C86A9E4BD3B
60843BA846138B6E91F8259870E7538B7AA19B737C3006CFF7134701CFF9294AE57414D20B397B0C
35A2909B80E22EEE9D891B1A39DF0A554DB7E75B8900880E525B80EA0082BCBE712EA14983EC835C
427824CF9613448297002881263303D56FEAE97E53944BE98AE27162A1FD9BAB8B4B32400F4F2FC5
88DD39F7C388BB2E8216E4CFBD05282748A195A5E6594A2C83EC2313165AFA8C3CE7133FE266FB4E
7784940D57FA75A57FAB753E4853F830CE12D8F10AF8853926C76AD92988C7A3B5F5D6666580E0FB
B74D199C595B960EBD6FC41A8231E29506DDCA41A68877B922F6F2452CE6DF4CF2DFF8A1FCED6C01
EC7C09EC3945485AB24A7AB24A33C438B358363775CC0FB6E8C2F9879DED65A8E073745476B71BDC
B6D012276EDF0D4327E0EEEBF7225ABADF3E3E3BDC16DFC8C3C84B58DFFCE120E57EA7E5DBE94412
3EA0D803C4B2C35B3A440D83B343AD0261372B787AFCACC27B8C9F0F638ED944F07CC0416B03C4E6
084E5672D27CCB29628AD2EAC68ED54D2383A443BA73D97077C05F94ED5D98094E6FD32D4352A0E7
CB7A1049BA9C3D1EFC13BA9C9DED7376BED3D92FEB75FFA75266B398D92939B3FFBD82D684B37C38
18786E5E8F27C34F3242B6F27E7076124FB00E1BFBB8E558224791949DF37E8B55960A3725C9F6E1
FEF19E1C587A9CED33E2A06869CF90E4955EA44903D8198064F1260DD3C8C08C07461DAEC8F58A59
1A647EC84A114FF855F2AF2EC30B679E1FC93E924AB454E2E9375E93A919E484585905E96EFA8502
F4A3E68309BEADF0C9D2FA11FC86C26791DF1E063D7299188F9639B32AE9625A69385A48CBC0A41B
74618E350339C07A36AD79DBD820351C4BB30EE6132FAC8469C94CDA3325632C1C69E982C0949A3D
24730A8EA83BC84D0B5E4210D86FC9CF6994D3EED42B09ED478B49CFACAC705B5CA520A2057B8A58
3B4BE5F3420378CE844A5120E39B836C53AA48D45496C8468950D513F741F253A5BFC06A4C7A7826
5834F55659A1B0635A5AFD49B3975BFE1259BBB453EEED1758B32FE15709C324BF9494BC93ADC652
4A6086229F4034A9D565A327A054AEB8440594F514E4EE30E87B4FC06E68A14AE6881DAB922280A5
9A02B6687F74BEB802496BB217F1C61E4D33A1B465A5097D3C2B21B4A7E624C2517B0799147EFCE9
7830BF7532FD9532E63A6C352863EE2D9B155DB1ADCD38D2D2353B77D12063613DD5FCC3305A92D2
633EDAE68C78A6D02EBE068681A4DAA35DF913AD061833AB36E3F053020559B1D1E5968C1B0B4A15
7F37369EF612AF8FF56989760942B58431BDB16A35ADF577F6C67A53AC096B93963A6F280118D89C
03FC9638ED52449723BA8838C7AB2C1981FE49D8343A1B80E2B0E4D1C5DD98522B1D6E20F9DAA5D7
982BF027CB89E7CD303A679CD39BF70C8D0CDF2BB8DF5D7650A67CEA56596A274E7D3A8F2D0D9729
CBBB026042F07D0A90322C16BB94A4FD36038938E2DBBB7A6DFBD2191B6007187EBE54C12F714ABE
54AABFBB846E8931A68124F6445B970F4F6A1184BC69368DB2CEE31254639506E51A0F7D0D533E2A
2D67B6D4999526014F2EDAF2A40841D379349D99723241CD5D38B72EEF833038C194B9A73C3F0B37
4BECA4A2BD4CCA4955673DDB2DC4D3DA56D61288B52E39F29EE04071E0DD9E4C2E8791475BC1CEB7
AF6BE27AFBE8521C1D8893FDFDBDFDBD5571707A2EAE3E5D8B1DD88AFBE7173571780A5BEADADC36
2FCC3DEC5CCBD55A93FD32EA642ACDF171EAEE4D595577BB858ACA1E026276D6D5B41D452E769992
D54CB5A1A5D906AD9AB62FA581DD579B63F4FE9D10116C6347B480043CDABA7DE7D16888656BB983
865709F54B172F7FD52F9FD9BC8F4613B5AC7C36FCE6471C97F3BB03C484793E8BCCBF46DA461A2C
75642AE92E07EB114B461F8C02A8120E004821A090A51798B02B696D402DABD7B62C05A452E1DDF2
514FDA93FB8B04EABD9D0081674242DD3A01C11C60E69214542026BD0EA6977C4E0FBA9D9ADDBE3A
CBA637AC547AD56EEF9DE4D2EB71FA0DE11F5FE6D2ED249DF0CF297DF7063D8D9E5D742BE5D8FE3A
43D7E7DE453D929ED2D7C66B12686B0DF69807A33E1120B2DEBAE3DF1EFF3AFC7B75B66B518060DA
1FB0093144FB8B6DAC4BC0B74AA617AB841AEDFD19A8615308CE67562C0E880841698FA56558C0B2
B3B17B53FDFA58A93E3EB666F4D6AD7E9D55AAB3596B46F696FC65D8D2EEA3CDDFB93D487507829B
AF37E66A0EFC3B180FA0EF998F721D010C1272EF21C6F888DCBD81FB753A0CB07AE3F3B616B91B0E
06A28B0558D9AB126B9B1CA56A37DE57E45EE950C4CD122F7467132D95D85D52E24025B15AFB8F43
657992028BE9723195E17F14FD3214A7BFE589F2602086D4F9798B4644072BD48A95235B74A0AC58
952D2A67D6E342B552B1565C1A8531C94CDE15862961CA16D1351E89994363BB3151F37159F97852
2765334881581B051012DCBB14C866064208809054F7086492472619EFD04FD59A6B9E4BFE264FE6
32E12836CB30E327529C12E1ACFCCE15DF974B6FFBE8E3D9E9F9E5F6C9650B91D4156F433782C6EA
630B8E3ACCC2E34F6F3A9A844AEEB0A53CF043AC2B0EEEDC589587FAA00CE8CEEB1473FA84C690CD
5D8586AAB4BAF2B54BAFDDB847DE2C690B07E0D75540D3AE39719D02D8BAAE59314811A01B53400E
875564C000872980AD4350D0203980EB6018B92C9C34F403C0E4FED5136BDC74302FF9FD4EBF4B07
908A0D32B1D6868A7632D176B3746A94C8108B4EFC90B17A98B6B2C3348DCDDC82F65EBCD3D3C05A
13D9454AF76BD5DF8EF770A43770FCCF8C0934DF4E06059A77A74705F20FECDE20168F6E4EFBDB7B
46DA4C94B40ACB997A4A0EC285B4A6541E39E5A627B5E54AED453A4D8867759A10CFEBB4529556D4
685A02194B0A1FB0B51ECBB0B0452C424CF5AB643562C16A803DC557C0E759B7290B02F40253499D
3CD116F39AA2D08BA9150435C37F46377E7AE640B3FBF4EC3B9E24D3B44BCE9BD41CE9F5ABAF4B9D
B2D9BA335EEAA8397726494FC496A43DF275496E475BB59319D9C5706C00BDB242B92DA8B9D8AE1F
EAC8FFAA3998FF98AB7D1983AD6CBC5D0ECF315C99221D5B55F289F2241EA9796D6B4E97CC6F718B
3ED56C8D0D6CB9532D575FCF365D8446FA9A6DB938AED8704B26C0FE239B8EBA553C7DFEEE75A285
27F6BB13B983EB0E9D19E183324665E5183470AAA4B2B26AAFB70E0E394D9E9E0129B69F7E39A28D
6E8EF06011ADAEAE8A9D7DACA57FB8DABFB858257AD43A53D93807873A225211D7AC8DE66D61426B
E4D6E62273CA1197D9E5E6CBFC7AF36571C199DA1168EFB7A0DE59CD0329790102BF706B3EB942F5
D47E2B86D02267607F2AA9C5836B5ABBA888151E8C258C144182994A98C3224CB948AAC4174BE57C
53F4C9095A5A3CBFC3987F766F7BC9E6F6A2B863DD6334C2C19F96D8C5C18FC9CC84F18D4D15C7DB
27DBE762F7F4FC7C7FF7529C9D9FFE06CFA3D313984A448D3CC5218E7639BF10173816EA8F698FCB
23A7E0ECEB3D84317318EEFAF0E8785F3CF0E9D3780F0C9D55E43D9B94708FC99CD83B3F3D3BDBDF
2BA8CF8F67192DF4FDA74E9EEC86BC5E63CBF51AAC901FA7CED49007472ED9526F23505B82DA004D
BBD3CE8EF7B72FF6D99F06C0A2A74C79DD51F49C2C15FCF17A99B18DF33713CF193B41723E92D977
B87D0E0EA9AE5EE34D619067EAE1867EA9D4B47F256288EB34C4750C51907A238273B34A2532A61C
EA96CFEF4AE04A7093BEF18393B4CBBEDF492CD8A8AA0B6F4E2978C8C1A2122B185D72FD1CC4BECF
46A22D596D7B2FC77D3433D9EC2433F8AB250C15ED5DF4229767406A1D0570727D3105971DE46C48
6FBC596EAE513ADF269D6F923E65913E4E963BDE2326F6F424EB2DB7F0983E4607581370453E976F
C2DB55E7EA68BE168FB409BFAA297EA59593DA07D64F0E1DD2646F4C07E9BD988B69ECC4862D68C1
BC8ACBA9A2DB611046353EAF4779C822246DC6934CA5A3DC01EE69980CDD414A21A98D84B96EFBD3
75124404396C81BAD4065F3B08EA890ECF20BF6229F901E51DDE8A3BF6530712AB0BAC6E8C85A09E
13E109AC9FADB4F8F962A555AE03E66980B6DC3CF2CB4B97FC40BF9407E51D3E459E5C7B423376B2
84C436B5209AF8EE6EC667E7B58EA4BA93EE031BA4AD8A45787A3226498523506BEC7F87920F4D0C
44A1762FD228405EFC6835D6A6C73792D68DA255A6456137956A4DC453DACFD58A39A765B15316F5
2140C95CA26DB06B0DC624CBE8B82B5F41BEA4B3E32C12B147E0ECDA97793A33DE986D90B741D3AF
5A2DD2241CDB456C57C5A68ED59EE2E464867C7BAE3AC2FB4B55D12599C647975293CFD3BAA2A8E1
27811B453356F4FF3E9DDC929C8C1959D35C8C9958CBEA6DA5A7D3CC7AD9E611F0AFA8B77F720B28
71F92EA51D6BDC92AD24F98DEEE91D8BBA61930D8C6D03C9726123424A65EE32E6536E6CBDD52CC9
557762DE3D238B2765ADB8B15F9DA451347807AEF54E05DF6FD62DBD03B7D154A1F7F63B2D9F7C94
3F8C374A7D24476A0DE82D227AB3D5D0D5BD41C529770AD519927CADB5C686DE9ED67DDFD850B058
8F8F63B76CDB8AA3DF26D1D6BB7A1CBD918ADE48A2D753D1F6DB38BA9944BF4B726C24B11BEB71AC
9DC43692584B9FCBF8D8C539CF9B15D9E1E2066E95EC1A24111EF7A1DDE804C06838A87988A6019F
D4BB3F806D714F27AF5576C9BE9F1FD9C2FADCAC5EAEE936936DAAE4E534D59F9E84D3DC9E6F94E0
08CCFA3B7C8CF78DB1485DA9B55879D96C3DEEA3EAD4B35C884E728686B91B9B3D2F9FADCD11202A
B1917FA160CF9FD6F891F9E742FE9CC00BDC912927AE368D3A5BEB4DDE6A442FEF3B78A91A588BA9
C8A82ED21B3ABD8BF406A51FD6D4B276CA8007624B1BE900E2CECA24938D82B4F483875ADA892168
E92781294274350D0AD2E20F1E72712781A0C59F04260B512C47BD7571DBB1E614002F32B998BBC6
9C93ED6182290D4C5B71C5EEE02FCD153B298D2DB962E7B86253A11298224457D3A0A0E48A9DE38A
4DC54B60B210C57224752B1620E14A31778D599E6DCC9558A7D34B22ABF456BB40A06D7C1A86B8EE
0FFD231CF693BBFFAE4FCF7F7B418765C67CFB9E737B4B3DF54E5ED0F1CD0986746119D99BA3C9FD
2FC893EB7F71D92C10D2C620DBBA106BD5C9DC2E46DB340F294637696AA2F74BB1DD77715B79BE9F
A547BFFEA3D927A77AFB9A8FFD70249DBB6503792CCF7922300004838A118C744A043927DEAE1B4E
032CF26239B0CF73647222B9CC900A73526E55EB3FC69D1AE17C9FEECFB84BAB70BE47CBB9C5A3EC
CF309D67AA373FB38CFBCC22EE334BB84F2EE016F38EE5AD986B2CA7853C13AC626EE99EABE451B4
5563D76962D8A3EB3B2C9E22E240417CA2F162F722B3942BF73DC9CD429965B2C2AD4388539797C5
3E3B070BF6A989BB499326ACAA4672CF865CC34FD2951F6D81AABCA2EF466A5155D4DBA7A5FFA346
432242128B42365B7032AED890B66EC8A4F156A92D7FAE0E92B7ABC999288E9E14229B70A67D874A
498C633976E70E16FD7CB789BA64A9F48C6D4B27E6CC148691560A6E885247D2A5E882025F74D5C9
1DF2299B68332D82C371C9072A9376378148DE1FC9C740DE58E69B03F5AF7C0A45EC93D4B2138C92
83BEA25839BE4DEF21539FC4BFF530E6BADD746E965AA7D8988173582FAEA996C0175CB0536204BE
C0E2932DF294E0246DFDCF11A55483656E3C2BB243B63BC1B3F8E85B8430C30C3902C5CFB0F9F52B
556EABFC6AABBDA38B9A6C38597F3D8AFE0C661FDD3E3BD3262B3B4F56CAE1441DFB0B4D3E7FD373
02536A765221B80A47601D69AA1792F7AC37E69E8DBF06FE9AF85BC7DFC69B9FDC4A25D32B9E11E1
842D194B36FF7FE0A0D3E8846631217BE42BA6609916FEDFC4FF6A525538F915D3CC83160FA6C02E
311BF82BF1C7A4275639CCF54DAE17D5A6915FEBE0DBBDF2D834F96FC909EED6DBD83360BF450A0D
7406E26BC6E60A26D55BD8B959596958AB7625CDC6BA64229D2D0366F52D769600B38A1A2284FF15
CB92F4F5A7D213FCFA53F8C5F460B9C3BD0D5B4854486D4A6A21C50896E516990A476EBE7ED55BA6
FD7B885F33E8B9B1BEDED840F5083858AE19BDE595743C2A7C9745B0D7D3E0770097B11218A2DCB9
880203BDB8D292B77ED14A3DA22BEF9B2D4A5DAC2F56F16CC98BBAF66C0DDFCDC0DB12DE56F0760C
DF6078942603DE0078A38587046FC4E04D097E97056F4AF0A6026FC6E0EB12BC97055F97E0EB0A7C
3D06DF90E04E167C43826F28F00D059EAC26A0FAD54593AA85271D806C89378BD543F7F18DC1ED57
412CD5424135D5739D9E4C90343A5DBCA594F97CCF8314560B37E2A93FC4718F59AF9BFC3FFF2132
735161DAB5818981747DBCAD9B9BF5AAD1ACAFD42BE6225DC0B6584CB290D4C1BF92241B4957D0F2
EE10FA3650AB58F2D429546409420308AC4B4F4FF44DBFDB277BDAB983DB554B709AC0A16B92D415
7CADED00175D986777576B67777B25F0EB80E7DB99628C93E9E8CC1994806E00946FBC5AE3840BAC
88B4446DADACAA6F014A8B5FF26C6BEBE27E781BD5D2A77B4B703681C3E0728A01FB8B97DDFCB13C
417EE6472548EF804497BFA024F26A1C93DDB6F28ACD1A2DCC95B511B51F5F6A6D5C85D28DCD97A0
561491DD321C6A58BACE46C17C5ECC4A89F533AC9CD281367517A371327A639EF6DEFCEC05445CF9
CB9741E20ECBD14737BC473E9C47E700F778F28D8E064054CE72EA476DF4915CA5A7A66D626C9332
145F32D5A8E37FEA4961E703FC0472466F9CF2358BBD5414CB93114AAB08D1F1E4BF4709AF5F61CC
236806D35736F6B0EA25A12594DE3F0C33ACA360788F140F98AD431D27F746A9857C6A31AE32B59F
B1B88DD98DB788519E47641E57D4AF84B54B609B73601B45D8865D069B969E9F2E35F2FE47BEE7D1
F9165B10457B826EF7ECF98FB6BCF9532EB1F1AD0F4EA83E23214D55BA647A18FD42D02E1E64939C
178260C8F7B82ED9573BFBDA90AFAA247465412E42C624F4E9CE5219C3576867EFD64EC5B31F8A19
52B66D29B9FB5C5FF79EE255C173C12387B44C959C621FB24CD4A2AC66FFEA550F430A89FA90C248
5C25947C49D7FD9FF1E1F4F86499A982DD24F899827593E9105A42F9521D6988A9EB08493F01FC44
1BD875E22717B57F345461CD381E99545228F68B50AC344AE3452876AE707B38110B44897093607C
C249B05A49743ACBBD6E0AB75B8EDB9D87FB3985FBB91CF7F33CDC1BBBBCCC8D9794D92E2F73E325
65B6CBCBDC78AACC09FE091D4466AEAD30A91A976685589102EA32D08D4C60A01B899006FA0C2095
D05594287C9306BAA2EC404F64B33BF92CD2402A3B990020945222A481283B4AD0D911D524BB04F0
68FC4D7EDE851BD75AADAFD1B16A1464850A53A5DC56F0871048AEE02FC55D8968EBB3D85C24FC00
58B1A92BC39F11A69F4A49B6B6CE56BE26C593BCA0822445E444597FFCE613649DF19B4F50D28787
4A4A7252C2854731E9B34CFA9C4DCAA914669BBC0F552BBD62D4A5CADF22AE0AC91F0A7765F83385
336D7C1123240CB5520C2D88D76523CE34458523E38227C04D8A37589F92169DD7072BAAB4316837
05DACD837633A09F8D793DAC92AFEB8B4B0356BCB434E0D44B4B231999D3B1EED81F9117DD0FB47C
1A06354A8D985A59312EB99F5F22CCB934F8CDA6940B4B43A57B8A33EA0D1C168C1C9DE65C3ACD98
CE4ABA3879A2B622CAA8C83C4F342EEAF7106DA85A0358173D0E265D408DF88986BDCAB0762546AD
96A4DB3ADD2E4F6F205D9525C9EB5392D7A767F2FAF44C5E9FE6E60503A8CC79D74EEE8ADAC97E1D
04ACE18FF40CE515F5747BE160485F78B8C7729D47FEC4C45C8A8918F4437750A20014FCF38D7A76
4D81FBA7E8FA49EDE07B20839CAEBF4A1BE8097E7CA2E49E8D74059858ED19489AFBABFCC47B2C79
9C06FA6D4BE683CA58716C976192B72D95070181536A6DA2ADBE4481F9117F68664879E1D8E8946E
14E22F9F304BE30AA94F9968A74327E77698B71323A9468ECE9F895F993378598632BCCE01C5661E
10CEFBAD3405E9C4433AD358E55F50A52B7C38AC53FE70835899431CD5D551DDCC0AC4015D90A990
4C056922AFD7AF987B13EC264DBA1EA787E72E7DE40E42038A3CD9D1874BB2A5DA77FAF7BA58FAE6
27944B67964476E3C86E1249173F6AFA49EC760F339562345F64578CDE71E138CF441FDDAA9C4898
EA6DDC51DCC7940359E9B31DE90653ED15B3C950A8245A9A5595786A902B78724FD642816B49A2EE
C93A942D64375548876AFE3DA5D425A4D226A5CC30F2271513DD34E998AAB8015AE4FB985A2D676A
D2C03F8FABEFB58E48CADB2351F99EF2C6ECADE6D89B48DE3F56DE3D6CF38BD407A274054A056CAE
324812FF10F73B16DE744ADCF9A8EFCDED7C2F521879762782F6E3C52D2F6A5289248F9F545E92B4
7F84BDD517B097F2F859FC6549FBF1F2969735A94592C73F565EB527FC0ACE92B9C348E26285772B
190D93D1363B2A97D83F820F77241FE0C3CB539FDF4B8C9EE45ADB946F285836EF96CDDE32AD1EEC
FE79FBA4BB7B7A7C7A8ED2BEC1153D42C6E293AEC7A767FB27148B5B77542CAA7F7482DB941856C6
D2A5C9A77CC5C53256E5A27BF66AA5BF1DD7E02BCB3D2CB74CFB1139DF3B8D8D16EDB7A06FD02978
3345C54C81B632E453E16A93F2A66F5E9E3E8CDD00393F4531866B2D2C3C43F1682CAF347A86620C
F72CC5E0AE07FFE7D48B9EA118C33D4BF1292ADB8341803306A7B746C6DF58693D43F3963E12DB49
4903599E2931A0D7A4FD9F290413438EEADF33597B544EFA64E8330C8AE19E659037B91D1FFAFE97
67086AB0D6F3459CD0C700C9D34A5F86C2EAE06275F73E7863D42B85C43FA36BA4849F961573D895
0A910CA3001AE2CFC3F19F7B80CBC39839A295EF68F62CE2D33D88B46DE1EBBBC880CA940CFE81FC
D60065AE13E9AC87A0B4EF5E945E58F8AE65E9788B77A2B3F4DCC7A202F05EB254645DCF2205CD93
B5975D332D1D95E3D4136B12097777982F6D41EB4B6A392308787D9321C84DEF08A66EF0070DC50A
3BCDDD2056BE9A58564C9ACCCCC237A515AC4930D5A6C950BAA2AA4562983A12E75721276EE11B93
9E3C4976A94267533A707FC150B8124BD5222EF4C40F3B56FA0DFB8AD3D328164EFAC0B491903509
CCDC0EFB066E49468EF44EDFB346B0A29A96C8E24FDE85C254E907AF7A4025008582D8F9D5A35CA9
72B29A6F8C6CE53EB849E57898CC572FA42E9DAE5EAE76480FDF50973788EB25F52C5627293FE584
B12C8D0268A2890C3C7841DE107388382DEF8AC54ADCC628D713752EFD90C6FD90DD1A705398F040
809468CBAF20D3976F30C596DFC2DD937E027DDD585FA313F801F1875799E56DA97B473B05B8459C
9F9FE5BEC08B1348F7513469ADAD3D3C3CACF6B1C43A097C5AFD457844054939544C394D31E970E2
0ECED873E0687CEB7300399A3DBE77D09C99F2F62CF31E91CBE6A4371A8212D3E8A08EA29D76CBA8
CA535E927E072C90208943268169EB1B15F539FFBD6BAC62D61C7C1E7A4C1F82C6FE6F3E5E633071
BA486188E1743A8E2A084B6AA0A2AB806D475CAC15BB596DD0E93F1B5B1A56EE3598AE60A7894DAF
F4E243991C5D7EC407734F0E4E0FF7B7711325154AD5BFA3E1AB9ABE684758A9F6180070C49FB491
A5F020ED2465C9995FC465AA9AABA4E42E1EC4026953A2D526B0481982AE4C20F40797BEA4CFDB3E
8624CA097D17BE10B9E7D2D4DFAAE28BDE87116B915BA83ED9F45FCA9672756B50CDF9162ABEC443
B55ECD42AC2A6139776755CD26F054DF384D435CDC78A020AFB092849986A42BF470CA925637B373
E1475397A13633CB8B2CDA92174C4CAB3F494D96B96A3CD24E985863C88C08CF9B3E8755B5727816
F0EE688BC47388760ED106624087BBF50553FA81A9C80B5AA52D5B932FADC3E3961AC7D1DF0DF6A7
B459AD06D1917296E7A96E1DCDAA3C44D3E406A164EE63F9F44DD50A041077B8E4F887648C6D5A94
7EE639F42D97F8648655024A7BEF085677E47C7ED68659A7745C1632A131155A961DC29DFADAF9F1
FE66C7A247B363AFA1E71E1CE102FE8B4E234FC3AEC75A4D575B799AFFEAE2863FF9C1F3918B7EB2
38706F1DD8FB8B05124D598C9B334C26CFDCE0A38B5E5400DA9440DDA7801AB6AA901760C3D0A090
BC11271F8D26E09323BBBB439F271723B641440FE144A1509BABC66695DC21EB517E90779BB0968D
8D0D3351461F0E4FF63A88C13EEE4FFBDB3BC7FB1DFB6F9FF7CF4F6912D1D96882CA116D6C882431
D11E397FF103BA187144DB36E44787FDA937A0C3F0B8E436532612696DCC717D28420E9C72DA0DE1
753006D35084243563173486A44A4DAA69D9E0EC515EA2AB33C148CD794EA405472C18127BB6810B
338D464865A6114939622535EF23598D9D8A2050936C65EF4B329EF23B7A59ACB243EC3CD4EF6503
B5B2DC4F27EE381EFE970DD22F98ED120027EFE34AE1592A1DC9E434509F8FC2644A03C2171183D1
246BD9D83475E1760FFE4C63D226364013CAEFE525127FD4A8BB74636F3A8F84DBF90652EDC34E1D
5471DAA72F88700B3D61E83CF19134D1E6C42C73F83E553A4F90B576FE05C68DB452940D164B45D6
BA39733C336304F526939840C62002B1B409842987FB68F6A0D943C220B5DE7787DFD2F77AB0719B
638613CA7A02431EB7B75AF913741B26A74888C332884D93520822F9B85CFD454298D21245094BC9
D64B8429AB2BA47A180CB57290D5C477CB58C4F036801A99C56D2F64B3E43EA36C99F8AF92680E09
F553F545DE546B127B86FA7BE42ECF5DE26F90A1F4F2C60EFAC29BD4E88559211194D2C5A4464849
8666CE9869A6AD4E3D599403736CBB644DC38903C73C1D6E8BD94F0C0D61F749194BEC5511B2870E
E84AA2B319D0C5D8C9A813379C064604C5245744A8D1B9F21E173FB6C7BE3A5B12D1B92DB633AC8D
35BB099B8F10E31C2DDE1D5F24921EE04DB553144336D158DF200AE431A06769D9E9038B791300F9
237366C3CED19FB363BF1613FD8C89AAE74A3336F76148E0FBE97B153D81C9E64B054FCC20A91AB2
109B95C40E8A3B33537AB6434B722FEAD564374123759E662C809422EA00786D1369F42A26FA22ED
7FDEFC0AF9152658651327D500F32650E7D4CFF4D0948CDCA2AD3A60611AF5644FD4E8BA3B22A8BB
E1F70DFBA54A2A3D5CF04C00635B3C83971B5DFF9593BC814F1A77ECBA7C65B933C6716840FDD469
5EB69167D57CABFEC07CEFE896E55ABE081E4C3BF154293B8F5ADBA4E99D45131B7CC2121EE2508C
6166CCE8D00355F90117F884924E9BC2741D07B721230CF5C960538ECA21B72FF7171A23F4D16162
6F7D2D531C831F7CF8DB90EACD785B331EF9D82E8A54E19340D938A0C73A28A964F32595B4A9924D
59C94C2DC6C35ECF23564A82322F79F795229994D35A176D0C7A52B2EAB50663297D3F1793ABD14C
21366B6FCB2BB2F96C451E51894DAE843AACCD531489514ED3A62F1D71A861CB3260E9450920E00A
D3EBBA3987832B4A0556E2397D11D97A16B91A4FEDCBF0EDE7F19319BE1CDB5435692C45C53AEB1B
EBE5B53262153FB75EDCC40D75FD72E3A95A1A2FA5868F866F48395E57B73A3F55FB97D3DD683437
D551394B1738CB176E6B6DE44801C1D0BED65C23F199DFF2C9001C2B21D94FA1992AA5CC78068B5A
BCB4B2CFE2D9F9EE9E5BACCE78AD72265FA9172B36047FD43D34677A2721445B3ED8E75D98E0FD1D
504B0304140000000800108A2C4465A0872F9406000048110000190000004F626A65637420506169
6E7465722F536B79426F782E6233648D96598C0C5114866B7AECDBCCD8F7693B63D7B47D7ABA8310
6B4C0F2288AD8761187B8C3D96482412B1C58B1024681E48E1854CA53BDE24F6353C4878C1832541
2C33E5FCF7FEADFAB60437A9BEFF39FDF53DF7D4A95BA72391C098A23CCBCAB22C2B3A7656710F99
8B9757462A36F65BB8629572FB2C3576700AA94B46647A49F16499EBC93579C1BAD89AB205E5FE2E
8386FC86BC0BEB7BC3FDCB983275CCD84BB9B28745B19531FFF48A8A759631FE5C7A47EAC24FD7E3
A7AB96C6D6C4060CFCC70FBD31796CF1F851B97A5F33A6478B7737B074E2EA4A0D7F049FBD6A0E5D
C6EFA79DAB8700C63A9B2E2EBB5A7AA0817027C3D1A767EDCA8FB3428DDFD4453CFB62BCA0505358
DB9F00577A605FB8C99BBD55E04A96BC2B3C1F8F8F4EE7961CD8A738D7CD0FCBF7557ABDBD857161
D23989A7B84D17DF5E95780EB896BBC7D9AEBBDDE04AB99E4FE247B95E8EC48FC7E30657E3E62B0E
F11B727F33852F2979647073B20604996F62F9869D01E6EBC86D34B86CCB1F66BE893CD93FB8A85A
AF4528235FC5554B7C89A738C4977C4319F92A4EEE7710F717DCD37B3B0396556470A55C0FF1A35C
2F47E297949418DC4F375F714B856F28DF335FB9CFCB0C2E39F2D655D73D115E226C6DEB95BDF9F3
97C28AA2F9AC6FFC3727EB24C059D687F0EAA297559B84EB352412D2F58DA73D071F14877D160C89
385B845B59F492F5F538899704971C39F19AC47310B7CE8FC5ACAFC7595CAF4CE24B3CC5AD91F8BA
BE1E17E3FE7CC297737FBD85D7F5F5B8FBE5C782CC37F9E3BE6F30F3657D3D4EE2858593EB7D629D
EC7FAB703DD57A2D42E99CC453DC62892FF14295C2497C55DF8C7C233ADF5B41DC5FC46D57D068B0
AEAFC7493CB5DE3289DF53D6C3FD93F8ACAFC72DE6FEB2257EB97C8FF5105FD7D7E3707E70E1ACF7
9B9D7DE578FE759BEF0B3BFDAC67C9F32E9C3AEBF29E7006DFDF6A3FB1E7AAFA6ACEAB1B38C47E6A
CF7582AF77D835AEABEA6BBE3BFC491D7BD93589E5CC7E7AD5DE75FE36EA6B70A55CCF27F11FCB7A
1D1FDEB47D125FEA6B7035EE09B53FC4AF76DDAA1F6F9FDB121FF535B839599782CC37D9E1E0CB40
FFB52F902FEA6B70D972DE986F325BFC878FEEB125BEAAAF912FDF41D512FF99DC8F73DD2AECEF12
1FF5CDC857717205717F278DBE639F2FAC56E737235FC521FE63596F45C387C83724F535B89F727F
C12D15FE9BEC3D3AEF862DF1515F834BC8F9CDE2BB72EB87D3B63CA755A9F37B41EDD17BEF82C3F3
B54A9E4F70A9F3AB38EFBC292EC6F30B6E05CFAFE6BCBA814BC8F95D29E7679B70E5FB1FA0BE8AF3
EAF65EAD87F7873CCF8AE3F935B8C5DC1FE297737F05FAFC1ADC5D39BFCC37D9A3EC7600EBADD4E7
D7E0F0DE0387F812AF708BCE57D55771DEFB4A718B787E11B78CE73723DF88CA579F5FC52D99DA1F
E7D7E0AADDF76ABD329E5FEC8FE7D7E016717F88BF5CBE0757A0CFAFC1554AFF4DBD2B0F7E3D89FE
EBA4FAEF0C5933EDF94B8043DD1AEBFEE6A4FAAFE2BCFEA1B81AE90F3374BF741AB1FFA673124F71
95F20C36D1FDD709BF5F8AFA1A5C8CEB6579FDD761FF3538E97F8A2BF5FAAF3343F75F839B2DFD97
F9264EE52E0F8063FF35389FF43FE69B40FF0357CCFEAB38EFB957DC4F893F4BF74B27D57F33F255
5CA5D77F9D8A9C87EAFC66E4AB389FD77F9D3CDD7F0DEE879BAF38C46FC0FDA5FAAFC779EF4A7C8E
ABF5E932DE555DCA8F0C1053FDA7FBD7FF30A9C77FF573E1FEAB2F08F75FEF17E1FEEB3915CEC837
3A7D42F199DAA91A7AFFA1B3D3FE97D652B61EB595AD471D65EB5157D97AD453B61EF595AD470365
EBD150D97A3452B61E85CAD6A3895C8DB9271F6CEA1C6A1FF795439D4B9DCD3DE652E751D7E27EF3
A89B52D7E6DE9B5237A3AEC33C9A5137A7AECB9C9A53B7A0AEC7FC5A50B7A4AECF5C5B52B7A26EC0
BC5B51B786A6AF116CEA10347DAA6952B795AB0DEF5113D8D4EDA0E9CB814DDD1E9ABE5CD8D41DA0
E9CB834DDD119ABEA6B0A9F3A1E96B069BDA0F4D5F73D8D49DA0E96B019BBA33347D2D61537781A6
AF156CEAAED0F4B5864D5D044D5F08367577B9BAF11EB5854DDD039ABE76B0A97B42D3D71E36752F
68FA3AC0A62E80A6AF236CEADED0F4E5C3A6EE034D9F1F36755F68FA3AC1A6EE074D5F67D8D4FDA1
E9EB029B7A00347D5D615387A1E92B824D3D48AE81BC47DD615307A0E9EB019B7A30347D3D61530F
81A6AF176CEA20347D05B0A98742D3D71B36F53068FAFAC0A61E0E4D5F5FD8D423A0E9EB079B7A24
347DFD61538F82A66F006CEA08347D61D8D403791F46730E40731E0CCD790834E72034E7A1D09C87
41731E0ECD790434E791D09C4741738E50FF02504B0304140000000800C35E324424E63D6F110100
0036000300190000004F626A656374205061696E7465722F536B79626F782E626D70ECC9310D0020
1003C0279840020A10C08E7F39C033A2E12E6DD2A4738DA891C66DCF51B29916CFFD7F1B00000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000E0B00707020000000040FEAF8DA0AAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAA2AECC181000000000090FF6B23A8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4A7B
70480000000020E8FF6BAB23000000000000000000000000008009504B010214000A0000000000FB
7132440000000000000000000000000F00000000000000000010200000000000004F626A65637420
5061696E7465722F504B01021400140000000800536031442B190F602F040000D68D000018000000
000000000000202000002D0000004F626A656374205061696E7465722F4374726C732E626D70504B
01021400140000000800B4723244215F78BB682C0000729400002000000000000000000020200000
920400004F626A656374205061696E7465722F4F626A656374205061696E7465722E6262504B0102
1400140000000800108A2C4465A0872F940600004811000019000000000000000000202000003831
00004F626A656374205061696E7465722F536B79426F782E623364504B01021400140000000800C3
5E324424E63D6F11010000360003001900000000000000000020200000033800004F626A65637420
5061696E7465722F536B79626F782E626D70504B050600000000050005005F0100004B3900000000

Guy Fawkes

(Posted 2014) [#37]

YAY! =D

Mikorians

(Posted 2014) [#38]

I wish everyone luck in finding the math needed to get the pixel-correct drawing we all so badly need, at least the application is ready for the formula.
I thank all contributors!

Rick Nasher

(Posted 2014) [#39]

Pretty good, missing that gradient fill for Sky Sphere's still though. That would make it a real winner..

Mikorians

(Posted 2014) [#40]

It's just a tool.
I felt pretty lucky to get even the simplest of drawing tools applied to these routines (kindof hammering that finduvw routine real hard - it's of course, very slow)

I was able to correct ALL of my needed skyspheres using this tool to edit the boundaries of the existing bitmaps. I then used another paint program to touch them up (seeing where the errors lay helped).
I wish folks luck.

Anyone who turns this into a new photoshop is an amazing person.

Guy Fawkes

(Posted 2014) [#41]

Does this paint a texure map onto a quad?

Mikorians

(Posted 2014) [#42]

It was meant to load a small b3d file, but if the quad had uv coords, it would.
It also works on default createsphere and cube objects, I noted.

Guy Fawkes

(Posted 2014) [#43]

Is there a way you can edit this to allow painting of textures onto the quad?

Rick Nasher

(Posted 2014) [#44]

"Pretty good, missing that gradient fill for Sky Sphere's still though. That would make it a real winner.. "

Was asking cos I've tried to create a SkySphere gradient with Paint.NET(unofficial MSPaint update) but it never gives me fully satisfying results due to fact that it doesn't give full control over the gradient start/middle/end and which colors used.

You could turn this into *THE* kickass SkySphere Application if you could pull that off. Of course I could try adding that myself, painstakingly reverse enginering your code, which you probably know by heart, but I lack the time rightnow cos I'm trying to do an overambitious foliage-to-terrain thingy(which I'm willing to share to all when done) that makes my own head hurt/spin(a lot). ;-)

Here's a very nice, not too large, Color Gradient thingy done by the all famous Krishan(worth taking a look):

http://www.blitzbasic.com/codearcs/codearcs.php?code=2415

Now I don't know if/how easy it would be to implement that, but.. seems very doable. Hope it helps.

Other (perhaps, didn't check) useful links..
Gradient Of a Triangle(dunno if needed):
http://www.blitzbasic.com/codearcs/codearcs.php?code=1093
Radial Gradient:
http://www.blitzbasic.com/Community/posts.php?topic=77285

Mikorians

(Posted 2014) [#45]

I've just been getting the sound/media zone triggers/map cell loaders/destroyers up and running (doing great), but I'm really too much in the thick of it right now to do graphic arts stuff yet.
I will examine your link at a later date.
I've been hybernating in this frigid arctic weather!

Last comment: I noted that this program isn't ABLE to be any too precise about where it places pixels over the 3D projection, but if you meant the 2D one, that wouldn't be hard, perhaps the 3D could be used to map out an irregular masked area on the 2D, is this what you had in mind?
Then filling in the mask with a gradient?
Both guy and you have decent ideas. He wanted paste. We've got it.
Hm. I will consider gradient. I hadn't planned on by polygon gradient, but radius (circular) might be easier.

Rick Nasher

(Posted 2014) [#46]

Indeed what I had in mind. Would make an excellent SkySphere editor.

RemiD

(Posted 2014) [#47]

Take a look at the code in the Blitz3d samples :
Blitz3D\samples\birdie\texpaint

This may help.

Mikorians

(Posted 2014) [#48]

Thank you! I will examine it.
This may take a while... I'm cross-converting maps right now.
Hideous...

Guy Fawkes

(Posted 2014) [#49]

Is there any progress on this yet?

Thank you! =)

Guy Fawkes

(Posted 2014) [#50]

@Mr. Mikorians? Is there any luck with this wonderful project? :)

RemiD

(Posted 2014) [#51]

By curiosity, what is the problem exactly ?

Guy Fawkes

(Posted 2014) [#52]

Basically, I need to be able to paste a selected texture slowly onto each triangle of the model, Mr. RemiD.

Kryzon

(Posted 2014) [#53]

Try Blender:
http://wiki.blender.org/index.php/Doc:2.6/Manual/Textures/Painting/Projection

Guy Fawkes

(Posted 2014) [#54]

Sorry, I'm not a fan of blender. It's got a very complex GUI, and I do not like complex. Thanks though for that, Kryzon. :)

Rick Nasher

(Posted 2014) [#55]

Hate Blender: does it Blend?? :-)

Guy Fawkes

(Posted 2014) [#56]

Yes.. Yes it does. :3

Hotshot2005

(Posted 2014) [#57]

Germany Flag :O

Guy Fawkes

(Posted 2014) [#58]

LOL!

Guy Fawkes

(Posted 2014) [#59]

Any news on slowly "texture splatting" a model?