PureBoard

Code: Alles auswählen

#xmax=1024
#ymax=768

#maxcolor=24

#leftside   =-2
#top        =1.25
xside.f     =2.5
yside.f     =-2.5
xscale.f    =xside/#xmax          
yscale.f    =yside/#ymax

If InitSprite()=0 Or InitKeyboard()=0
  End
EndIf

OpenScreen(#xmax,#ymax,32,"")

StartDrawing(ScreenOutput())
  Buffer = DrawingBuffer()
  Pitch  = DrawingBufferPitch()
  For y= 0 To #ymax-1
    *Line.LONG = Buffer+y*Pitch
    cY.f=y*yscale+#top
    For x= 0 To #xmax-1
      cX.f=x*xscale+#leftside
      zx.f=0
      zy.f=0
      colorcounter=0
      
      PowZX.f = 0
      PowZY.f = 0
      While (PowZX+PowZY<4 And colorcounter<#maxcolor)
        tempX.f = PowZX-PowZY+cX
        zy      = 2 * zx * zy + cY
        zx      = tempX
        colorcounter+1
        PowZX = zx*zx
        PowZY = zy*zy
      Wend
      *Line\l = colorcounter * $111104
      *Line+4
    Next
  Next
StopDrawing()
FlipBuffers()

Repeat
  ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
CloseScreen()