Texture - Cloudy Patterns - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|566\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Generators

Pakz	Created : 25 July 2016 Edited : 25 July 2016 Language : Monkey Texture - Cloudy Patterns Creates a nice background image I think
One of the Image Generator outputs that I made in the last few days. This one a cloudy pattern style in 128x128 and 256x256 and 512x512. Here the html5 page : (more on there to) https://cromdesi.home.xs4all.nl/html5/genwhitepatterns/MonkeyGame.html I have discovered I can code effects for cerain color ranges. Never made textures with functions like that before. Coding textures is quite fun. Import mojo Class gridbackground Field mapwidth:Int Field mapheight:Int Field tilewidth:Float Field tileheight:Float Field mapdepth:Int Field mapr:Int[][] Field mapg:Int[][] Field mapb:Int[][] Method New(mapwidth:Int,mapheight:Int) Self.mapwidth = mapwidth Self.mapheight = mapheight tilewidth = DeviceWidth()/Float(mapwidth) tileheight = DeviceHeight()/Float(mapheight) mapr = New Int[mapwidth][] mapg = New Int[mapwidth][] mapb = New Int[mapwidth][] For Local i = 0 Until mapwidth mapr[i] = New Int[mapheight] mapg[i] = New Int[mapheight] mapb[i] = New Int[mapheight] Next addrectslayer brusheffect2() smooth End Method Method brusheffect2() For Local i=0 Until (mapwidthmapheight) Local x1:Float=Rnd(0,mapwidth) Local y1:Float=Rnd(0,mapheight) Local angle:Int=Rnd(-180,180) Local dist:Int=Rnd(3,5) For Local iii=0 Until 20 For Local ii=0 Until dist Local x4:Float=x1+Rnd(-5,5) Local y4:Float=y1+Rnd(-5,5) Local x2:Float=x4+Cos(angle)1 Local y2:Float=y4+Sin(angle)1 Local x3:Float=x4+Cos(angle)2 Local y3:Float=y4+Sin(angle)2 If x2>-1 And y2>-1 And x2<mapwidth And y2<mapheight If x3>-1 And y3>-1 And x3<mapwidth And y3<mapheight mapr[x3][y3] = mapr[x2][y2] mapg[x3][y3] = mapg[x2][y2] mapb[x3][y3] = mapb[x2][y2] End If End If Next Next Next End Method Method smooth() For Local i=0 Until (mapwidthmapheight) Local x:Int=Rnd(0,mapwidth-1) Local y:Int=Rnd(0,mapheight-1) Local col1r:Int=mapr[x+1][y] Local col1g:Int=mapg[x+1][y] Local col1b:Int=mapb[x+1][y] Local col2r:Int=mapr[x+1][y+1] Local col2g:Int=mapg[x+1][y+1] Local col2b:Int=mapb[x+1][y+1] Local col3r:Int=mapr[x][y+1] Local col3g:Int=mapg[x][y+1] Local col3b:Int=mapb[x][y+1] Local col4r:Int=(col1r+col2r+col3r)/3 Local col4g:Int=(col1g+col2g+col3g)/3 Local col4b:Int=(col1b+col2b+col3b)/3 mapr[x][y] = col4r mapg[x][y] = col4g mapb[x][y] = col4b Next End Method Method addrectslayer() For Local i=0 Until (mapwidthmapheight) Local w:Int=Rnd(3,15) Local h:Int=Rnd(3,15) Local x:Int=Rnd(-3,mapwidth) Local y:Int=Rnd(-3,mapheight) Local colm:Int=Rnd(50) Local colr:Int=205+colm Local colg:Int=205+colm Local colb:Int=205+colm mapdrawrect(x,y,w,h,colr,colg,colb) Next End Method Method mapdrawrect(x:Int,y:Int,w:Int,h:Int,colr:Int,colg:Int,colb:Int) For Local y1=y Until y+h For Local x1=x Until x+w If x1>-1 And y1>-1 And x1<mapwidth And y1<mapheight mapr[x1][y1] = colr mapg[x1][y1] = colg mapb[x1][y1] = colb End If Next Next End Method Method draw() For Local y=0 Until mapheight-1 For Local x=0 Until mapwidth-1 Local colr:Int=mapr[x][y] Local colg:Int=mapg[x][y] Local colb:Int=mapb[x][y] SetColor colr,colg,colb DrawRect xtilewidth,y*tileheight,tilewidth+1,tileheight+1 Next Next End Method Method distance:Int(x1:Int,y1:Int,x2:Int,y2:Int) Return Abs(x2-x1)+Abs(y2-y1) End Method End Class Global mygbg:gridbackground Class MyGame Extends App Field time:Int=0 Method OnCreate() Seed = GetDate[5] SetUpdateRate(1) mygbg = New gridbackground(128,128) End Method Method OnUpdate() time+=1 If time>3 Then time=0 Local r:Int=Rnd(3) Local ts:Int=128 If r=0 Then ts=128 If r=1 Then ts=256 If r=2 Then ts=512 mygbg = New gridbackground(ts,ts) End If End Method Method OnRender() Cls 0,0,0 SetColor 255,255,255 mygbg.draw End Method End Class Function Main() New MyGame() End Function --v

Comments

Texture - Cloudy Patterns

Comments