Simple FreeBASIC Fractal

Re: Simple FreeBASIC Fractal

Thu, 31 May 2007 17:06:06 +0000

The last one worked for me .. the first one didn't .. and i'm on XP :D

Re: Simple FreeBASIC Fractal

Thu, 31 May 2007 13:46:59 +0000

Okay u9, try the following Programme. I've tried it on Ubuntu and it worked. :)

#include "GL/gl.bi" #include "GL/glu.bi" Screen 18, 32, 2, 2, 1 SetMouse ,,1 Sub Main () 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 Main

Re: Simple FreeBASIC Fractal

Wed, 30 May 2007 21:38:40 +0000

hehe again?!? :p

Re: Simple FreeBASIC Fractal

Wed, 30 May 2007 21:30:26 +0000

Hmmm, I never tried it with the Linux Version of FreeBASIC.

I'll try and run it myself later as I've just installed Ubuntu again. :)

Re: Simple FreeBASIC Fractal

Wed, 30 May 2007 19:40:37 +0000

Hi.

I tested with .17 linux. Needed to remove Option Explicit and change Call Main to Main.
Compiles fine but when running it, nothing happends.

Re: Simple FreeBASIC Fractal

Thu, 17 May 2007 13:27:48 +0000

If running this Programme in 1024 x 768 Full-Screen is causing problems, try this…

Change…

Screen 20, 32, 2, 3, 1

to…

Screen 18, 32, 2, 2, 1

That will Open a 640 x 480 Window. :)

Simple FreeBASIC Fractal

Wed, 16 May 2007 21:44:56 +0000

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