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