Blurring and Dripping, rectangles

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|537\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

Pakz	Created : 26 May 2016 Edited : 26 May 2016 System : Cross Platform Language : Monkey Blurring and Dripping, rectangles A couple of image filters to create images.
' Creates images. The size can be set of the blocks. ' Currently set at 100x100. ' Rectangles are drawn to the screen then ' The drip method moves the horizontal and vertical ' by a random amount. Creating a random wavy effect. ' The blur method makes of a certain point in the ' image a avarage color of it's surrounding. This is ' done an x amount of time on random locations. ' the values of the colors are a single integer. ' added- tint the colors. ' added - sharpen pass Import mojo Class themap Field mapwidth:Int Field mapheight:Int Field tilewidth:Float Field tileheight:Float Field map:Float[][] Method New( mapwidth:Int, mapheight:Int) Self.mapwidth = mapwidth Self.mapheight = mapheight tilewidth = DeviceWidth()/Float(mapwidth) tileheight = DeviceHeight()/Float(mapheight) map = New Float[mapwidth][] For Local i = 0 Until mapwidth map[i] = New Float[mapheight] Next fillwithrects() dripmap() blur() sharpen() End Method Method sharpen() For Local i=0 Until mapwidthmapheight Local x:Int=Rnd(0,mapwidth-1) Local y:Int=Rnd(0,mapheight-1) Local a:Int=map[x][y] Local b:Int=map[x+1][y] Local c:Int=map[x][y+1] Local d:Int=map[x+1][y+1] map[x][y] = ((a+b+c+d/4)/100)Rnd(105,140) If map[x][y]>255 Then map[x][y]=255 Next End Method Method fillwithrects() For Local i=0 Until mapwidth/15 Local w:Int=Rnd((mapwidth/7),(mapwidth/3)) Local h:Int=Rnd((mapheight/7),(mapheight/3)) Local x:Int=Rnd(mapwidth/20,(mapwidth-mapwidth/7)-w) Local y:Int=Rnd(mapheight/20,(mapheight-mapheight/3)-h) makerect(x,y,w,h) Next End Method Method makerect(x:Int,y:Int,w:Int,h:Int) For Local y1=y To y+h For Local x1=x To x+w If x1>0 And x1<mapwidth If y1>0 And y1<mapheight map[x1][y1] = 254 End If End If Next Next End Method Method blur() Local amount:Int=Rnd(mapwidthmapheight3,mapwidthmapheight15) For Local i=0 Until amount Local x:Int=Rnd(0,mapwidth) Local y:Int=Rnd(0,mapheight) If x+1<mapwidth If y+1<mapheight Local a=map[x+1][y] Local b=map[x][y+1] Local c=map[x+1][y+1] map[x][y] = (a+b+c)/3 End If End If Next End Method Method dripmap() For Local x=0 Until mapwidth Local dp:Int=Rnd(mapwidth/15,mapwidth/5) For Local do = 0 Until dp For Local y=mapheight-1 Until 1 Step -1 map[x][y] = map[x][y-1] Next Next Next For Local y=0 Until mapheight Local dp:Int=Rnd(mapheight/15,mapheight/5) For Local do = 0 Until dp For Local x=mapwidth-1 Until 1 Step -1 map[x][y] = map[x-1][y] Next Next Next End Method Method drawmap() Local tr1:Float=Rnd(0,125) Local tg1:Float=Rnd(0,125) Local tb1:Float=Rnd(0,125) Local tr2:Float=Rnd(125,255) Local tg2:Float=Rnd(125,255) Local tb2:Float=Rnd(125,255) Local cmr:Float[256] Local cmg:Float[256] Local cmb:Float[256] Local str:Float = (tr2-tr1)/255 Local stg:Float = (tg2+tg1)/255 Local stb:Float = (tb2+tb1)/255 For Local i=0 Until 256 cmr[i] = tr1+(stri) cmg[i] = tg1+(stgi) cmb[i] = tb1+(stbi) If cmr[i] > 255 Then cmr[i]=255 If cmg[i] > 255 Then cmg[i]=255 If cmb[i] > 255 Then cmb[i]=255 If cmr[i] < 0 Then cmr[i] = 0 If cmg[i] < 0 Then cmg[i] = 0 If cmb[i] < 0 Then cmb[i] = 0 Next For Local y:Float=0 Until mapheight Step 1 For Local x:Float=0 Until mapwidth Step 1 SetColor 255-cmr[map[x][y]],255-cmg[map[x][y]],255-cmb[map[x][y]] DrawRect xtilewidth, y*tileheight, tilewidth+1, tileheight+1 Next Next End Method Method clearheightmap() End Method End Class Global mymap:themap Class MyGame Extends App Method OnCreate() SetUpdateRate(1) Local date := GetDate() Seed = date[5] mymap = New themap( 320, 200) End Method Method OnUpdate() Local sc:Int = Rnd(32,640) mymap = New themap(sc,sc/1.5) End Method Method OnRender() Cls 40,40,40 mymap.drawmap SetColor 255,255,255 DrawText "MonkeyX", (DeviceWidth()/2),10,.5,.5 DrawText "Dripping/Blurring/sharpening/Tinting rectangles", (DeviceWidth()/2),25,.5,.5 End Method End Class Function Main() New MyGame() End Function --v

Comments

Blurring and Dripping, rectangles

Comments