Simple FreeBASIC Fractal
This Fractal Programme is based on One written in Basic4GL. :)
It is very simple but I haven't got around to Converting my more Colourful Fractal Designs to FreeBASIC.
Once it's Displayed on the Screen press 'Esc' to Exit. ;)
#include "GL/gl.bi"
#include "GL/glu.bi"
Option Explicit
Screen 20, 32, 2, 3, 1
SetMouse ,,0 'X and Y Co-Ordinates are omitted as Mouse is Switched off.
Sub Main ()
If not ScreenPtr Then
Exit Sub
End If
Dim X As Integer
Dim Y As Integer
Dim Count As Integer
Dim Size As Double
Dim R As Double
Dim I As Double
Dim RTmp As Double
Dim Rs As Double
Dim Iss As Double
glMatrixMode (GL_PROJECTION)
glLoadIdentity ()
glOrtho (0, 1023, 767, 0, -1.0, 1.0)
glMatrixMode (GL_MODELVIEW)
glDisable (GL_DEPTH_TEST)
glClearColor (0.0, 0.0, 0.0, 0.0)
glClear (GL_COLOR_BUFFER_BIT)
glBegin (GL_POINTS)
For X = 0 to 1023
For Y = 0 to 767
Count = 64
Size = 0
R = 0
I = 0
While Size < 4 And Count > 0
RTmp = R
Rs = R * R
Iss = I * I
R = (Rs - Iss) + (X - 672) / 320
I = (2 * (RTmp * I)) + (Y - 384) / 320
Size = Rs + Iss
Count = Count - 1
Wend
glColor3f (0, 0, Count / 64)
glVertex2i (X, Y)
Next
flip
If ( inkey$ = chr$( 27 ) ) then
Exit Sub
EndIf
Next
Do
Flip ' IMPORTENT, the 'Flip' Command doesn't just Swap the Drawing Buffers.
' It will also make your Application more responsive to keypresses. :)
If ( Inkey$ = Chr$( 27 ) ) Then
Exit Sub
EndIf
Loop While ( Inkey$ <> Chr$( 27 ) )
End Sub
Call Main
