Fibanacci3.bas

Posted by an anonymous user


#!/usr/local/bin/sbrun -g
cls
midy = ymax/2
midx = xmax/2
otx=midx
oty=midy
n=1.6180339887499
n=n+(n/4.25)
ot=1
dim t(2)
t(1)=1
for
j=1 to 12
ot=t(1)+t(2)
if
ot>0
? ot
a=a+1
if
a=1 then tx=midx+ot: ty=midy+ot:midx=tx+ot:midy=ty+ot:arc tx+ot,ty-ot, ot*n, RAD(90), RAD(180)

PlasmaJVSH.bas


'Plasma generator
'This program creates a plasma surface, which looks oily or silky.

r=rnd:g=rnd:b=rnd
for
n=1 to 5
r1=r:g1=g:b1=b
repeat:r=rnd:until abs(r-r1)>.3
repeat:g=rnd:until abs(g-g1)>.3
repeat:b=rnd:until abs(g-g1)>.3
for m=0 to 17:m1=17-m
f1=(m*r)/18:f2=(m*g)/18:f3=(m*b)/18:c

Pages

Subscribe to SmallBASIC RSS