The Stone Mirror (Source Included)

BlitzMax Forums/BlitzMax Programming/The Stone Mirror (Source Included)

dw817 (Posted 2016) [#1]

Mix reading and writing of pixels w high-speed random directions and you get, well, some interesting results to say the least. :) A curious example of what a single pixel can do when it's plotted thousands of times. ' ________________________________________ ' // // ' // The Stone Mirror // ' // Version, "Aqua Life" // ' // Written by David W (dw817) 02/29/16 // '//_____________________________________// ' ' ' Deceptively small code but quite interesting what it does. ' Basically the plotter moves around randomly on the screen ' and 'lightens' any darker pixels previously plotted. ' ' The effect is an interesting one. What might only be ' described as a stone mirror since the plots are mirrored ' on the 4-corners. Strict SeedRnd MilliSecs() ' always get random results SetGraphicsDriver GLMax2DDriver(),0 ' needed for aggressive pixel work Graphics 800,600 SetBlend alphablend ' pixels blend w each other SetColor 0,128,255 ' color of our stone mirror Local img:TImage ' use this to plot Local pic:TPixmap=CreatePixmap(800,600,pf_i8) ' use this to build ClearPixels pic,0 ' always erase pixels of any newly created TPixmap Local c,i,j,x=400,y=300 ' always start in center of screen For i=0 Until 600 ' number of iterations to draw For j=0 To 9999 ' draw 10,000 pixels per iteration c=pic.pixels[x+y*800] ' read screen pixel If c<253 ' not too bright a pixel ? add 1, 2, or 3 c:+Rand(3) ' brighter pic.pixels[x+y*800]=c ' plot it and 4-corner mirror pic.pixels[799-x+y*800]=c pic.pixels[x+(599-y)*800]=c pic.pixels[799-x+(599-y)*800]=c EndIf If Rand(2)=1 And y>0 Then y:-1 If Rand(2)=1 And y<599 Then y:+1 If Rand(2)=1 And x>0 Then x:-1 If Rand(2)=1 And x<799 Then x:+1 Next img=LoadImage(pic) ' convert TPixmap To TImage DrawImage img,0,0 ' draw it on the screen Flip 0 ' show our work Delay 1 ' bit of delay If KeyDown(27) Then Exit ' hit ESCAPE ? exit loop early Next WaitKey