Painting Brush - Smudge - Example.bb

Global win = CreateWindow("Painting Brush - Smudge - Example",100,100,800,600,0,1) 
Global can = CreateCanvas(0,20,800,600,win)

Dim cols(10,3);the colors

Global mw = 48;wapwidth
Global mh = 48;height
Global tw = 640/mw;tilewidth
Global th = 480/mh;height

Dim map(mw,mh);create map
Global canim = CreateImage(800,600);the image (speedup)

Global brushindex=5;brushcolor
Global brushsize=4
Global lcmx ; previous mouse pos
Global lcmy
Global cmx;mouse x pos
Global cmy; mouse y pos

Global tileim = CreateImage(tw,th,11)
Global tileimbig = CreateImage(32,32,11)

; create the colors and images
refreshtileimages(True)

; our area of operation
Global screen$="canvas"

Global smudge=False
Global smudgeint = 5

updateinterface
.main
Repeat 
	we = WaitEvent()
	If we=$102;keyup
		If screen = "canvas"
		If EventData()= 31 Then
			If smudge=True Then smudge = False Else smudge=True
			updateinterface
		End If
		If EventData()>=2 And EventData()<=10
			brushsize = EventData()-1
			updateinterface
		End If

		End If
	End If
	If we=$201;mosuedown
		If screen = "canvas"
		End If
	End If
	If we=$202;mouseup	
		If EventSource() = can
			If EventData() = 1
				If RectsOverlap(cmx,cmy,1,1,680,0,32,11*32)
					brushindex=cmy/32
					updateinterface
				End If

				If RectsOverlap(cmx,cmy,1,1,0,0,(mw+1)*tw,(mh+1)*th)
					brushdown(cmx,cmy,brushindex)
					updateinterface
				End If

			End If
			If EventData() = 2
				If RectsOverlap(cmx,cmy,1,1,680,0,32,11*32)
					If RequestColor()=True
						brushindex=cmy/32
						cols(brushindex,0) = RequestedRed()
						cols(brushindex,1) = RequestedGreen()
						cols(brushindex,2) = RequestedBlue()
						refreshtileimages
						updateinterface			
					End If
				End If
				If RectsOverlap(cmx,cmy,1,1,0,0,(mw+1)*tw,(mh+1)*th)
					brushdown(cmx,cmy,0)
					updateinterface
				End If
			End If
		End If
	End If
	If we=$203;mousemove
		If EventSource()=can
			lcmx = cmx
			lcmy = cmy
			cmx = EventX()
			cmy = EventY()			
			If MouseDown(1) = True
			If RectsOverlap(cmx,cmy,1,1,0,0,(mw+1)*tw,(mh+1)*th)
				brushdown(cmx,cmy,brushindex)
				updateinterface
			End If
			End If
			If MouseDown(2) = True
			If RectsOverlap(cmx,cmy,1,1,0,0,(mw+1)*tw,(mh+1)*th)
				brushdown(cmx,cmy,0)
				updateinterface
			End If
			End If
			updateinterface			
		End If
	End If
	If we=$401;gadgetaction
	End If
	If we=$4001
	End If	
	If we=$803 Then Exit 
Forever 
End

.funcs

Function updateinterface()
	SetBuffer ImageBuffer(canim)
	Cls
	Color 255,255,255
	For y=0 To mh-1
	For x=0 To mw-1
		DrawImage tileim,x*tw,y*th,map(x,y)
	Next
	Next
	For y=0 To 10 
		DrawImage tileimbig,680,y*32,y
		If brushindex = y
			Rect 681,y*32,31,31,False
		End If
	Next
	For y=0 To 47
	For x=0 To 47
		a = map(x,y)
		Color cols(a,0),cols(a,1),cols(a,2)
		Rect x*2+660,y*2+370,2,2
	Next
	Next
	; draw the brush view
	Color 255,255,255
	Rect cmx-brushsize*tw/2,cmy-brushsize*th/2,brushsize*tw,brushsize*th,False	
	; draw the line
	If linemode = True And linedrawn = False
	Color 255,255,0
	Line lsx1,lsy1,cmx,cmy
	End If	
	If smudge = True
		Text 10,480,"Smudge brush is On (key s)"
		Else
		Text 10,480,"Smudge brush is Off (key s)"
	End If
	Text 10,500,"Brushsize : "+brushsize
	SetBuffer CanvasBuffer(can)
	Cls
	DrawImage canim,0,0
	FlipCanvas can
End Function



Function refreshtileimages(init=False)
	For i = 0 To 10
		SetBuffer ImageBuffer(tileim,i)
		If init=True
			Color 200+i*3,10+i*20,10
			cols(i,0) = ColorRed()
			cols(i,1) = ColorGreen()
			cols(i,2) = ColorBlue()			
		End If
		Color cols(i,0),cols(i,1),cols(i,2)
		Rect 0,0,tw,th,True
		SetBuffer ImageBuffer(tileimbig,i)
		Color cols(i,0),cols(i,1),cols(i,2)
		Rect 0,0,32,32
		For x=-1 To 1
		For y=-1 To 1
			Color 4,4,4
			Text tw/2+x,th/2+y,i,1,1
		Next
		Next
		Color 255,255,255
		Text tw/2,th/2,i,1,1
	Next
End Function

.brushfuncs
Function brushdown(cmx,cmy,ind)
	Local cnt
	Local brushbuffer[10*10]
	If brushsize=1 Then map(cmx/tw,cmy/th) = ind
	If brushsize>1 Then
		If smudge = True Then
		If lcmx<>cmx And lcmy<>cmy	
			cnt=0
			For y=-brushsize/2 To brushsize/2
			For x=-brushsize/2 To brushsize/2
			brushbuffer[cnt]=-1
			If lcmx/tw+x >=0 And lcmx/tw+x <=mw
			If lcmy/th+y >=0 And lcmy/th+y <=mh			
			brushbuffer[cnt] = map(lcmx/tw+x,lcmy/th+y)
			End If
			End If
			cnt=cnt+1
			Next
			Next
			cnt=0
			For y=-brushsize/2 To brushsize/2
			For x=-brushsize/2 To brushsize/2
			If cmx/tw+x >=0 And cmx/tw+x <=mw
			If cmy/th+y >=0 And cmy/th+y <=mh			
			If brushbuffer[cnt]>-1
			If Rnd(smudgeint)<2
				map(cmx/tw+x,cmy/th+y) = brushbuffer[cnt]
			End If
			End If
			End If
			End If
			cnt=cnt+1
			Next
			Next
			
			;
		EndIf
		Else
		For y=-brushsize/2 To brushsize/2
		For x=-brushsize/2 To brushsize/2 
			If cmx/tw+x >=0 And cmx/tw+x <=mw
			If cmy/th+y >=0 And cmy/th+y <=mh
			map(cmx/tw+x,cmy/th+y) = ind
			End If
			End If
		Next
		Next
		End If
	End If				
End Function