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)

BezierBounce.bas



'Bezier Bounce.bas edit for On-line sample 05-11-2015

color 0,0
cls

for
n=1 to 16
append a,rnd*(xmax-20)+10
append a,rnd*(ymax-20)+10
append d,(rnd*3+1)*sgn(rnd-.5)
append d,(rnd*3+1)*sgn(rnd-.5)
next

f=rgbf(rnd,rdn,.5*rnd+.5):l1=bez(a,3)
repeat
cls

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