Random Texture Generator Various

Monkey Forums/Monkey Code/Random Texture Generator Various

Pakz (Posted 2016) [#1]

Here a video : Here the html5 page : http://cromdesi.home.xs4all.nl/html5/randomgreytextures/MonkeyGame.html The code contains several methods that get applied at random. Might be usefull code for making backgrounds for youtube or games or sites. Here the code: Import mojo Global screenwidth:Int=640 Global screenheight:Int=480 Class texture Field mapimage:Image Field mappixels:Int[] Field map:Int[][] Field iw:Int=screenwidth Field ih:Int=screenheight Field sc:Int=1'Rnd(1,3) Method New() mappixels = New Int[iw*ih] mapimage = CreateImage(iw,ih) map = New Int[iw][] For Local i = 0 Until iw map[i] = New Int[ih] Next render1() End Method Method render1() 'noisey layer noisylayer() If Rnd()<.5 Then cellularlayer() ' lines down If Rnd()<.5 Local c:Int=Rnd(1,5) For Local i=0 Until c Local val:Int=Rnd(-60,60) If Rnd()<.5 Then val = Rnd(2,10) Local y:Int=0 Local v1:Int=Rnd(6,20) Local v2:Int=Rnd(2,v1) While y<ih For Local x=0 To iw For Local i=0 To v2 decmappixel(x,y+i,val) Next Next y+=v1 Wend Next End If ' line right If Rnd()<.5 Local c:Int=Rnd(1,5) For Local i=0 Until c Local val:Int=Rnd(-60,60) If Rnd()<.5 Then val = Rnd(2,10) 'For Local x=0 To iw Step 8 Local v1:Int=Rnd(3,iw/20) Local v2:Int=Rnd(2,v1) Local x=0 While x<iw For Local y=0 To ih For Local i=0 To v2 decmappixel(x+i,y,val) Next Next x+=v1 Wend Next End If 'lines right If Rnd()<.5 Local c:Int=Rnd(1,5) For Local i=0 Until c Local val:Int=Rnd(-60,60) If Rnd()<.5 Then val = Rnd(2,10) Local y:Int=0 Local v1:Int=Rnd(3,ih/10) Local v2:Int=Rnd(2,v1) 'For Local y=0 To ih Step 8 While y<ih For Local x=0 To iw For Local i=0 To v2 addmappixel(x,y+i,val) If Rnd()<.5 Then addmappixel(x+i,y,val) Next Next y+=v1 Wend Next End If ' lines down If Rnd()<.5 Local c:Int=Rnd(1,5) For Local i=0 Until c Local t:Int=Rnd(1,5) For Local i=0 Until t Local val:Int=Rnd(-60,60) If Rnd()<.5 Then val = Rnd(2,10) Local v1:Int=Rnd(3,iw/5) Local v2:Int=v1/2 Local x:Int=0 While x<iw For Local y=0 To ih For Local i=0 To v2 addmappixel(x+i,y,val) If Rnd()<.5 Then addmappixel(x+i,y,val) Next Next x+=v1 Wend Next Next End If 'diagonal lines If Rnd()<.5 Local c:Int=Rnd(1,5) For Local i=0 Until c Local val:Int=Rnd(-60,60) If Rnd()<.5 Then val = Rnd(2,10) Local x:Int=0 Local x1:Int=-iw Local v1:Int=Rnd(8,iw/5) Local v2:Int=Rnd(3,v1) While x1<iw For Local y=0 To ih For Local i=0 To v2 addmappixel(x1+(x+i),y,val) 'If Rnd()<.5 Then addmappixel(x1+(x+i),y) Next x+=1 Next x=0 x1+=v1 Wend Next End If 'blocks If Rnd()<.5 Local x1:Int=0 Local y1:Int=0 Local sw:Int=Rnd(15,iw/10) Local sh:Int=Rnd(15,ih/10) Local sx:Int=Rnd(sw,sw*2) Local sy:Int=Rnd(sh,sh*2) Local t:Int If Rnd()<.5 Then t=Rnd(-80,-30) Else t=Rnd(30,80) End if While y1<ih addr2(x1,y1,sw,sh,t) x1+=sx If x1>iw x1=0 y1+=sy End If Wend End If 'triangle up If Rnd()<.2 Then addtriangleup 'triangle down If Rnd()<.2 Then addtriangledown 'triangle left If Rnd()<.2 Then addtriangleleft 'triangle Right If Rnd()<.2 Then addtriangleright If Rnd()<.2 Then addoval() If Rnd()<.5 Then addheightmap tintmap mapimage.WritePixels(mappixels, 0, 0, iw, ih, 0) End Method Method update() End Method Method cellularlayer() 'cellular layer For Local y=0 Until ih For Local x=0 Until iw If Rnd()<.5 Then map[x][y] = 1 Else map[x][y] = 0 End If Next Next For Local i=0 Until 2 ' loop through the map For Local y=0 Until ih For Local x=0 Until iw 'count the neigbouring 1's Local cnt = 0 For Local y1=-1 To 1 For Local x1=-1 To 1 Local x2=x+x1 Local y2=y+y1 If x2>=0 And y2>=0 And x2<iw And y2<ih If map[x][y] = 1 Then cnt+=1 End If Next Next ' if 3 walls and map is a wall then map x,y is not a wall anymore If cnt < 4 map[x][y] = 0 End If ' if more then 4 walls then map x,y is wall If cnt >= 5 Then map[x][y] = 1 Next Next Next For Local x=0 Until iw For Local y=0 Until ih If map[x][y] = 1 Then addr2(x,y,1,1,100) Else addr2(x,y,1,1,40) End If Next Next End Method Method noisylayer() Local var1:Int=Rnd(3,130) Local var2:Int=Rnd(20,200) Local depth:Int=Rnd(1,25) For Local i=0 To iw*ih*depth Local x1:Int=Rnd(iw) Local y1:Int=Rnd(ih) Local cnt:Int=0 For Local y2=-5 To 5 For Local x2=-5 To 5 Local x3:Int=x1+x2 Local y3:Int=y1+y2 If x3>=0 And x3<iw And y3>=0 And y3<ih If getred(getmappixel(x3,y3)) > var2 Then 'addmappixel(x3,y3) cnt+=1 End If End If Next Next If cnt<var1 addmappixel(x1,y1,Rnd(2,20)) End If cnt=0 Next End Method Method addtriangleup() Local val:Int=Rnd(-120,120) If Rnd()<.5 Then val = Rnd(2,10) Local wa:Float=0 Local wb:Float=iw Local s:Float=Float(ih)/Float(iw) For Local y=0 To ih For Local x=wa To wb addmappixel(x,y,val) Next wa+=s wb-=s Next End Method Method addtriangledown() Local val:Int=Rnd(-120,120) If Rnd()<.5 Then val = Rnd(2,10) Local wa:Float=0 Local wb:Float=iw Local s:Float=Float(ih)/Float(iw) For Local y=ih To 0 Step -1 For Local x=wa To wb addmappixel(x,y,val) Next wa+=s wb-=s Next End Method Method addtriangleleft() Local val:Int=Rnd(-120,120) If Rnd()<.5 Then val = Rnd(2,10) Local ha:Float=0 Local hb:Float=ih Local s:Float=((Float(iw)/Float(ih))/3.5) For Local x=iw To 0 Step -1 For Local y=ha To hb addmappixel(x,y,val) Next ha+=s hb-=s Next End Method Method addoval() 'oval Local val:Int=Rnd(-100,100) If Rnd()<.5 Then val=Rnd(-15,15) addo(iw/2,ih/2,ih/2,val) End Method Method addtriangleright() Local val:Int=Rnd(-120,120) If Rnd()<.5 Then val = Rnd(2,10) Local ha:Float=0 Local hb:Float=ih Local s:Float=((Float(iw)/Float(ih))/3.5) For Local x=0 To iw For Local y=ha To hb addmappixel(x,y,val) Next ha+=s hb-=s Next End Method Method addheightmap() 'heightmap Local mw:Int=Rnd(5,iw/10) Local mh:Int=Rnd(5,ih/10) Local cnt:Float=Rnd(1,4) For Local i:Int=0 To iw*ih*cnt Local x:Int=Rnd(-10,iw) Local y:Int=Rnd(-10,ih) Local w:Int=Rnd(3,mw) Local h:Int=Rnd(3,mh) Local val:Int If Rnd()<.5 Then val=-1 Else val=1 addr(x,y,w,h,val) Next End Method Method tintmap() 'tint random Local r1:Int=Rnd(0,125) Local g1:Int=Rnd(0,125) Local b1:Int=Rnd(0,125) For Local y=0 Until ih For Local x=0 Until iw Local r2:Int=getred(getmappixel(x,y)) Local g2:Int=r2 Local b2:Int=r2 setmappixel(x,y,argb(r1+r2/2,g1+g2/2,b1+b2/2)) Next Next End Method Method decmappixel(x:Int,y:Int,val:Int=10) Local pos:Int=(y*iw)+x If pos<0 Or pos>=iw*ih Then Return Local r:Int=getred(mappixels[pos])-val Local g:Int=getgreen(mappixels[pos])-val Local b:Int=getblue(mappixels[pos])-val Local nr:Int=Clamp(r,0,255) Local ng:Int=Clamp(g,0,255) Local nb:Int=Clamp(b,0,255) mappixels[pos] = argb(nr,ng,nb) End Method Method addmappixel(x:Int,y:Int,val:Int=10) Local pos:Int=(y*iw)+x If pos<0 Or pos >=iw*ih Then Return Local r:Int=getred(mappixels[pos])+val Local g:Int=getgreen(mappixels[pos])+val Local b:Int=getblue(mappixels[pos])+val Local nr:Int=Clamp(r,0,255) Local ng:Int=Clamp(g,0,255) Local nb:Int=Clamp(b,0,255) mappixels[pos] = argb(nr,ng,nb) End Method Method setmappixel:Int(x:Int,y:Int,col) Local pos:Int=(y*iw)+x If pos<0 Or pos>=iw*ih Then Return 0 mappixels[pos] = col End Method Method getmappixel:Int(x:Int,y:Int) Local pos:Int=(y*iw)+x If pos<0 Or pos>=iw*ih Then Return 0 Return mappixels[pos] End Method Method getpixel2:Int(x:Int,y:Int) Local pos:Int=(y*iw)+x If pos<0 Or pos>=iw*ih Then Return 0 Return mappixels[pos] End Method Method draw() DrawImage mapimage,0,0,0,sc,sc SetColor 0,0,0 DrawRect iw-200,ih-200,200,200 SetColor 255,255,255 DrawImage mapimage,iw-200+1,ih-200+1,0,198.0/Float(iw),198.0/Float(ih) SetColor 0,0,0 DrawRect iw-64,ih-64,64,64 SetColor 255,255,255 DrawImage mapimage,iw-64+1,ih-64+1,0,62.0/Float(iw),62.0/Float(ih) End Method Method addr2(x1,y1,w1,h1,val:Int) For Local y2=y1 Until y1+h1 For Local x2=x1 Until x1+w1 Local pc = y2*iw+x2 If pc >= 0 And pc < iw*ih Local r1:Int=getred(mappixels[pc])+val Local g1:Int=getgreen(mappixels[pc])+val Local b1:Int=getblue(mappixels[pc])+val r1 = Clamp(r1,0,255) g1 = Clamp(g1,0,255) b1 = Clamp(b1,0,255) mappixels[pc] = argb(r1,g1,b1) End If Next Next End Method Method addr(x1,y1,w1,h1,val:Int) For Local y2=y1 Until y1+h1 For Local x2=x1 Until x1+w1 Local pc = y2*iw+x2 If pc >= 0 And pc < iw*ih Local r1:Int=getred(mappixels[pc])+val Local g1:Int=getgreen(mappixels[pc])+val Local b1:Int=getblue(mappixels[pc])+val r1 = Clamp(r1,0,255) g1 = Clamp(g1,0,255) b1 = Clamp(b1,0,255) If r1>20 Then mappixels[pc] = argb(r1,g1,b1) End If Next Next End Method Method drawr(x1,y1,w1,h1,col) For Local y2=y1 Until y1+h1 For Local x2=x1 Until x1+w1 Local pc = y2*iw+x2 If pc >= 0 And pc < iw*ih mappixels[pc] = col End If Next Next End Method Method addo(x1,y1,radius:Float,val:Int=10) For Local y2=-radius To radius For Local x2=-radius To radius If (y2*y2+x2*x2) <= radius*radius+radius*0.8 Local x3 = x2+x1 Local y3 = y2+y1 Local pc = y3*iw+x3 If pc>=0 And pc < iw*ih Local r1:Int=getred(mappixels[pc]) Local g1:Int=getgreen(mappixels[pc]) Local b1:Int=getblue(mappixels[pc]) Local r2:Int=r1+val Local g2:Int=g1+val Local b2:Int=b1+val r2 = Clamp(r2,0,255) g2 = Clamp(g2,0,255) b2 = Clamp(b2,0,255) mappixels[pc] = argb(r2,g2,b2) End If End If Next Next End Method Method drawo(x1,y1,radius:Float,col:Int) For Local y2=-radius To radius For Local x2=-radius To radius If (y2*y2+x2*x2) <= radius*radius+radius*0.8 Local x3 = x2+x1 Local y3 = y2+y1 Local pc = y3*iw+x3 If pc>=0 And pc < iw*ih mappixels[pc] = col End If End If Next Next End Method Function argb:Int(r:Int, g:Int, b:Int ,alpha:Int=255) Return (alpha Shl 24) | (r Shl 16) | (g Shl 8) | b End Function Function getred:Int(rgba:Int) Return((rgba Shr 16) & $FF) End Function Function getgreen:Int(rgba:Int) Return((rgba Shr 8) & $FF) End Function Function getblue:Int(rgba:Int) Return(rgba & $FF) End Function Function getalpha:Int(rgba:Int) Return ((rgba Shr 24) & $FF) End Function End Class Global mytexture:texture Class MyGame Extends App Field cnt:Int=0 Method OnCreate() SetUpdateRate(1) Seed = GetDate[5] mytexture = New texture() End Method Method OnUpdate() cnt+=1 If cnt>6 Then mytexture = New texture() cnt=0 End If End Method Method OnRender() Cls 50,50,50 mytexture.draw SetColor 255,255,255 End Method End Class Function Main() New MyGame() End Function

DruggedBunny (Posted 2016) [#2]

Some pretty interesting results! Thanks for posting.