Type Appleman


   Method init()
      SetClsColor(255,255,255) ' Hintergrundfrabe setzten
      SetColor(0,129,190) ' Zeichenfarbe setzen
   End Method
   

    ' C-Werte checken nach Zn+1 = Zn^2 + C, Zo = 0. 30 Iterationen.

   Method checkC( reC:Float, imC:Float )
      Local reZ:Float, imZ:Float, reZ_minus1:Float, imZ_minus1:Float
      Local i:Int
      For i=0 To 30
         imZ = 2*reZ_minus1*imZ_minus1+imC
         reZ = reZ_minus1*reZ_minus1-imZ_minus1*imZ_minus1+reC
         If (reZ*reZ+imZ*imZ>4) Return i
         reZ_minus1 = reZ
         imZ_minus1 = imZ
      Next
      Return i
   End Method

    ' Punkte berechnen und setzen.
   Method paint()
      Local reC:Float, imC:Float, zelle:Float=0.00625 ' Ein Pixel = 0.00625
      Local x:Int,y:Int
      
      imC=-1.1 ' oberer Rand
      For y=0 To 350
         reC = -2.1 ' linker Rand
         For x=0 To 440
            If (checkC(reC,imC) > 30)
               Plot (x,y)
            EndIf
            reC=reC+zelle; ' nächste Spalte
         Next
         imC=imC+zelle; ' nächste Zeile
      Next
   End Method


End Type

'--------------------------------------------------------

Graphics 440,350,0

Local ts:Int = MilliSecs()

Local apple:Appleman = New Appleman

apple.init()
apple.paint()


Print "ok: " + (MilliSecs() -ts )
Flip

WaitKey()

Type Appleman


   Method init()
      SetClsColor(255,255,255) ' Hintergrundfrabe setzten
      SetColor(0,129,190) ' Zeichenfarbe setzen

   End Method
   

    ' C-Werte checken nach Zn+1 = Zn^2 + C, Zo = 0. 30 Iterationen.

   Method checkC( reC:Float, imC:Float )
      Local reZ:Float, imZ:Float, reZ_minus1:Float, imZ_minus1:Float
      Local i:Int
      For i=0 To 30
         imZ = 2*reZ_minus1*imZ_minus1+imC
         reZ = reZ_minus1*reZ_minus1-imZ_minus1*imZ_minus1+reC
         If (reZ*reZ+imZ*imZ>4) Return i
         reZ_minus1 = reZ
         imZ_minus1 = imZ
      Next
      Return i
   End Method

    ' Punkte berechnen und setzen.

   Method paint()
      Local reC:Float, imC:Float, zelle:Float=0.00625 ' Ein Pixel = 0.00625

      Local x:Int,y:Int
      
      imC=-1.1 ' oberer Rand

      For y=0 To 350
         reC = -2.1 ' linker Rand

         For x=0 To 440
            Local result:Float = checkC(reC,imC)
            reC=reC+zelle; ' n0chste Spalte
            If result < 10
               Continue
            ElseIf result < 20
               SetColor(0,200,0)
            ElseIf result < 30
               SetColor(0,0,200)
            Else
               SetColor(200,0,0)
            EndIf
            Plot (x,y)
         Next
         
         imC=imC+zelle; ' n‰chste Zeile
      Next
   End Method


End Type

'--------------------------------------------------------

      
Graphics 440,350,0

Local ts:Int = MilliSecs()

Local apple:Appleman = New Appleman

apple.init()
apple.paint()


Print "ok: " + (MilliSecs() -ts )
Flip

WaitKey()