Snippet - Socoder

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

Jayenkai	Created : 11 September 2016 System : Cross Platform Language : Blitz Max Mandelbrot in BMax Making Swirly Things
A cheap and mostly "stolen from the internet" here Mandelbrot renderer. Keyboard controls are displayed onscreen. Hit I for a HUGE 8000x6000'ish render .png. Crazy and messy, but at least it vaguely works! Global jscrw=800 ' Set these to set the screen res Global jscrh=600 ' Graphics jscrw,jscrh,0 Global colscheme=1 Global ManyRenders=0 iterate=1024 x#=-0.5 y#=0 zoomin#=0 zoom#=0 frm=0 Repeat Cls If KeyDown(KEY_1) Then colscheme=1 If KeyDown(KEY_2) Then colscheme=2 If KeyDown(KEY_3) Then colscheme=3 If KeyDown(KEY_4) Then colscheme=4 If KeyDown(KEY_5) Then colscheme=5 If KeyDown(KEY_6) Then colscheme=6 If KeyDown(KEY_7) Then colscheme=7 If KeyDown(KEY_8) Then colscheme=8 If KeyDown(KEY_9) Then colscheme=9 If KeyDown(KEY_0) Then colscheme=0 If KeyDown(KEY_P) x#=-0.5 y#=0 zoomin#=0 zoom#=0 EndIf scale#=0.01;t=0 If KeyDown(KEY_LSHIFT) Or KeyDown(KEY_RSHIFT) Then scale=0.25;t=10 For m=0 To t If KeyDown(KEY_W) Then zoomin#=(zoomin1.02)+0.001;zoom=zoom+zoomin If KeyDown(KEY_S) Then zoomin#=(zoomin-0.001)/1.02;zoom=zoom-zoomin Next movescale#=5.0-(zoomin#10.0) If movescale<0.0001 Then movescale=0.0001 If KeyDown(KEY_F) Then iterate=iterate-16 If KeyDown(KEY_R) Then iterate=iterate+16 If iterate<16 Then iterate=16 If iterate>5040 Then iterate=5040 If KeyDown(KEY_LEFT) Then x=x-(movescalescale) If KeyDown(KEY_RIGHT) Then x=x+(movescalescale) If KeyDown(KEY_UP) Then y=y-(movescalescale) If KeyDown(KEY_DOWN) Then y=y+(movescalescale) If KeyDown(KEY_Y)=0 Then ticks=Draw_Mandlebrot(zoom#,x#,y#,iterate,4) If KeyDown(KEY_Y) Then ticks=Draw_Mandlebrot(zoom#,x#,y#,iterate,1) SetColor(0,0,0) For guiystart=1 To 0 Step -1 guiy=guiystart DrawText("Took "+ticks,guiystart,guiy);guiy=guiy+16 DrawText("[Cursors] Pos "+x+","+y,guiystart,guiy);guiy=guiy+16 DrawText("[W/S] Zoom "+zoom,guiystart,guiy);guiy=guiy+16 DrawText("[R/F] Iterations "+iterate,guiystart,guiy);guiy=guiy+16 DrawText("[Y] Render Clean",guiystart,guiy);guiy=guiy+16 DrawText("[I] Render HUUUUGE",guiystart,guiy);guiy=guiy+16 DrawText("[P] Reset Position",guiystart,guiy);guiy=guiy+16 SetColor(255,255,255) Next If KeyHit(KEY_I) Then Draw_Mandlebrot(zoom#,x#,y#,iterate,1,1) Flip If KeyDown(KEY_ESCAPE) Or KeyDown(KEY_F4) Then fin=1 Until fin=1 Function BrotInk(col#,dark#) dark1#=1.0-(1.0/dark) Select colscheme Case 1 r=Float((col) Mod 255)dark1 g=Float((col+120) Mod 255)dark1 b=Float((col+240) Mod 255)dark1 Case 2 r=dark g=0 b=0 Case 3 r=0 g=0 b=dark Case 4 d=Int(dark/32) d=d32 r=d g=d b=d Case 5 r=Abs(Sin(col)dark) g=Abs(Sin(col+120)dark) b=Abs(Sin(col+240)dark) Case 6 r=255-dark g=255-dark b=255-dark Default r=Float((col) Mod 255)dark1 g=Float((col+120) Mod 255)dark1 b=Float((col+240) Mod 255)dark1 End Select If r<0 Then r=0 If r>255 Then r=255 If g<0 Then g=0 If g>255 Then g=255 If b<0 Then b=0 If b>255 Then b=255 SetColor(r,g,b) Return $FF000000+(r Shl 16)+(g Shl 8)+b End Function Function Draw_Mandlebrot(fz#,fx#=-0.5,fy#=0.0,iterations=256,pixelise=4,HugeRender=0) ' Mostly nicked from T'internet ' https://stackoverflow.com/questions/16124127/improvement-to-my-mandelbrot-set-code ' All comments, and pretty much most of the code, exactly as found, except the For-loops, and then whatever shite I've added on! Local w# = Float(jscrw/pixelise) Local h# = Float(jscrh/pixelise) If HugeRender=1 w=8192 h=w0.75 FullRender:TPixmap=CreatePixmap(w,h,PF_RGBA8888) pixelise=1 Cls SetColor(255,255,255) DrawText("This takes a while..!",1,1) Flip EndIf Local x# Local y# Local i; '//each iteration, it calculates: newz = oldzoldz + p, where p is the Current pixel, And oldz stars at the origin starttick=MilliSecs() Local pr#=0 Local Pixi# ' //real And imaginary part of the pixel p Local newRe# Local newIm# Local oldRe# Local oldIm# '//real And imaginary parts of New And old z Local use#=0 Local zoom# = 1.0+fz# Local moveX# = fx# Local moveY# = fy#; '//you can change these To zoom And change position Local maxIterations = iterations;'//after how much iterations the Function should stop ' printf("P6\n# CREATOR: E.T / mandel program\n"); ' printf("%d %d\n255\n",w,h); ' begin = clock(); ' //loop through every pixel For y=0 To h-1 For x=0 To w-1 ' //calculate the initial real And imaginary part of z, based on the pixel location And zoom And position values pr = 1.5 * (x - w / 2.0) / (0.5 * zoom * w) + moveX; Pixi = (y - h / 2.0) / (0.5 * zoom * h) + moveY; newRe = 0 newIm = 0 oldRe = 0 oldIm = 0;' //these should start at 0,0 ' //"i" will represent the number of iterations ' //start the iteration process For i=0 To maxIterations use#=i ' //remember value of previous iteration oldRe = newRe; oldIm = newIm; ' //the actual iteration, the real And imaginary part are calculated newRe = oldRe * oldRe - oldIm * oldIm + pr; newIm = 2.0 * oldRe * oldIm + Pixi; ' //If the point is outside the circle with radius 2: stop If((newRe * newRe + newIm * newIm) > 4.0) Then i=maxIterations ' } Next 'i ' color(i % 256, 255, 255 * (i < maxIterations)); uc=use Mod 255 argb=BrotInk(uc+(x/40)+(y/80),uc) If HugeRender=0 DrawRect(xpixelise,ypixelise,pixelise,pixelise) EndIf If HugeRender=1 WritePixel(FullRender,x,y,argb) EndIf ' } Next'x If HugeRender=1 And (y Mod 50)=0 Cls SetColor(255,255,255) DrawText("This takes a while..!",1,1) DrawText(Int(y)+"/"+Int(h),1,30) Flip False EndIf If HugeRender=1 If KeyDown(KEY_ESCAPE) Then y=h EndIf Next'y If HugeRender=1 Repeat;Until KeyDown(KEY_ESCAPE)=0 n=KeyHit(KEY_ESCAPE) EndIf If HugeRender=1 Cls SetColor(255,255,255) DrawText("Saving Render",1,1) Flip False If FileType("Renders")=0 Then CreateDir("Renders") quickdir=ReadDir("Renders") For m=1 To 9999 If FileType("Renders/"+Right$("0000"+m,4)+".png")=0 Then NextRender=m;m=10000 Next SavePixmapPNG(FullRender,"Renders/"+Right$("0000"+NextRender,4)+".png") FullRender=Null GCCollect() EndIf Return MilliSecs()-starttick End Function --v

Comments

Mandelbrot in BMax

Comments