Re: a double spiral type that is like the Threshold TV show crop circle
- From: Michael Wilt <melmoth12000@xxxxxxxxx>
- Date: Wed, 14 Dec 2005 11:03:37 -0500
Roger Bagula wrote:
This most certainly does not run on True Basic Bronze after a new install. Line 14 generates a function overflow error (1003).Dear sam ende, The program runs in the student version of True Basic or a Bronze version. True basic is also translatable to QBasic or VisualBasic. True basic links: http://www.truebasic.com/ http://www.truebasic.com/demo.asp
4) Basic to True BASIC Converter
Software Windows (BToTBSetup.exe)
A utility to help translate your vintage Basic files to True BASIC. For simple programs, the translation may be 100%. For more complicated programs, you will probably have to make slight modifications here and there. Documentation included.
sam ende wrote:
Roger Bagula wrote:
hi, what do i do with this type of script to see/generate the fractal ?
sammi
A threshold type IFS: SET BACKGROUND COLOR "white" LET x=0 LET y=0 LET a=0 LET b =0 LET s1=6000 LET s2 =s1*1062/1922 RANDOMIZE PRINT" Threshold type fractal I.F.S." PRINT" BY R.L.BAGULA 11 Oct 2005 © " FOR n= 1 TO 8000000 LET a =RND LET r=sqr(3) LET sc=(1/3^(1+3^mod(n,9))) SET COLOR"red" IF a <= 1/4 THEN LET x1=y/r+1*sc LET y1=-x/r
END IF IF a<= 2/4 AND a>1/4 THEN LET x1=y/r-sc*1/2 LET y1=-x/r+sc*sqr(3)/2
END IF IF a<= 3/4 AND a>2/4 THEN LET x1=y/r-sc*1/2 LET y1=-x/r -sc*sqr(3)/2
END IF IF a<= 1 AND a>23/4 THEN LET x1=y/r LET y1=-x/r
END IF LET x=x1 LET y=y1 IF n>10 THEN PLOT 1922/2+s1*x,1062/2+s2*y NEXT n END
.
- Prev by Date: Announcement: Experimental Chaos conference
- Next by Date: Mandelbrot set with bitmap texture applied
- Previous by thread: Announcement: Experimental Chaos conference
- Next by thread: Mandelbrot set with bitmap texture applied
- Index(es):
Relevant Pages
|
|
