Graphical demos for the PicoCalc

PicoCalc
161

Now see that is trippy!!! Dwesti I love these, and look forward to seeing what you come up with, you wizzard you!

162

mandelbrot_spiral
mandelbrot_spiral320×320 24.6 KB

'Mandelbrot spiral, looooooooong precalc
Dim col(16)
For i=0 To 15
Read r,g,b
col(i)=RGB(r*4,g*4,b*4)
Next i
Data  0, 0, 0,63,63,63
Data 63,39,31,63,47,31
Data 63,55,31,63,63,31
Data 47,63,31,31,63,31
Data 31,55,47,47,47,63
Data 47,39,63,47,31,63
Data 55,31,63,59,31,63
Data 59,31,52,63,31,42
CLS
re=-0.77195
im=-0.116
incr=0.000005
For y=0 To 319
r=re
For x=0 To 319
co=mandel(r,im,256)
If co<>256 Then
co=1+(co Mod 15)
Else
co=0
EndIf
Pixel x,y,col(co)
r=r+incr
Next x
im=im+incr
Next y

Function mandel(ox,oy,li)
Local x,y
x=ox
y=oy
For c=li To 1 Step -1
xx=x*x
yy=y*y
If xx+yy>=4 Then Exit For
y=x*y*2+oy
x=xx-yy+ox
Next c
mandel=c
End Function
'
6 Likes
163

newton_pool_fractal
newton_pool_fractal320×320 9.64 KB

'Newton pool fractal
CLS
iter=50
max_=1e6
min_=1e-6
mx=160
my=160

For y=-my To my
For x=-mx To mx
n=0
zx=x*0.005
zy=y*0.005
dx=zx
dy=zy
Do
tx=zx
ty=zy
p=(tx*tx+ty*ty)^2
zx=2/3*tx+(tx*tx-ty*ty)/(3*p)
zy=2/3*ty*(1-tx/p)
dx=Abs(tx-zx)
dy=Abs(ty-zy)
n=n+1
Loop While (zx*zx+zy*zy<max_) And(dx*dx+dy*dy>min_)And(n<iter)

'co=16-(n Mod 16)
co=(n Mod 16)
Color RGB(0,co*15,co*14)
Pixel mx+x,my+y
Next x
Next y
5 Likes
164

treeifs
treeifs320×320 2.27 KB

'IFS tree fractal
CLS
Dim a(5),b(5),c(5),d(5),e(5),f(5)
For i=0 To 4
 Read a(i),b(i),c(i),d(i),e(i),f(i)
Next i

Dim co(5)
co(0)=RGB(0,192,0)
co(1)=RGB(0,127,0)
co(2)=RGB(155,94,64)
co(3)=RGB(155,94,64)
co(4)=RGB(0,240,0)

x=0
y=0
Randomize &H1234567
Do
i=Int(5*Rnd())

xx=a(i)*x+b(i)*y+e(i)
yy=c(i)*x+d(i)*y+f(i)
x=xx
y=yy
Color co(i)
Pixel 320*x,260-260*y
Loop Until Inkey$=Chr$(27)

Data 0.195,-0.4880,0.3440,0.4430,0.4431,0.2452
Data 0.462,0.4140,-0.2520,0.3610,0.2511,0.5692
Data -0.058,-0.07,0.4530,-0.1111,0.5976,0.0969
Data -0.035,0.07,-0.469,0.022,0.4884,0.5069
Data -0.637,0,0,0.501,0.8562,0.2513
5 Likes
165

voronoi_diagram
voronoi_diagram320×320 17.6 KB

'Voronoi dagram QB64PE
CLS
np=20
Dim xa(np)
Dim ya(np)
Dim ra(np)
Dim ga(np)
Dim ba(np)

Randomize timer'&H1234567
max=Sqr(2*320*320)
For i=0 To np-1
xa(i)=Int(Rnd()*320)
ya(i)=Int(Rnd()*320)
ra(i)=Int(Rnd()*255)
ga(i)=Int(Rnd()*255)
ba(i)=Int(Rnd()*255)
Next i
For x=0 To 319
For y=0 To 319
min=max
For p=0 To np-1
d=Sqr((xa(p)-x)^2+(ya(p)-y)^2)
If d<min Then
min=d
cl=p
EndIf
Next p
rc=bnd(ra(cl)-min)

gc=bnd(ga(cl)-min)
bc=bnd(ba(cl)-min)

Pixel x,y,RGB(rc,gc,bc)
Next y
Next x

Function bnd(v)
If v<0 Then v=0
bnd=Abs(v Mod 255)
End Function
4 Likes
166

spiral_gpt
spiral_gpt320×320 7.88 KB

'chatGPT spiral QB64PE
CLS
xmax=320
ymax=320
x=ymax/2-0.5ymax/Pi
y=ymax/2-0.5ymax/Pi
r=1

ai=5’increment
max_r=ymax
max_l=ymax/2
dir=1
'draw spiral
For i=1 To max_l
'colors
Select Case i Mod 3
Case 0: cl=RGB(0,255i/320,128-(i127/320))
Case 1: cl=RGB(0,100i/320+55,100/320+55)
Case 2: cl=RGB(0,255i/320,128-i127/320)
End Select
arc_(x,y,r,aii/180Pi,ai*(i+30)/180*Pi,cl)
r=r+dir
If r>max_r Then
dir=-dir
r=max_r
EndIf
x=x+1/Pi
y=y+1/Pi
Next i

Sub arc_(x,y,r,rsta,rsto,co)
Local al,a

If rsto<rsta Then
arc_(x,y,r,rsta,Pi2,co)
arc_(x,y,r,0,rsto,co)
Else
'al=Pirr(rsto-rsta)/Pi/2
al=rr(rsto-rsta)/2
For a=rsta To rsto Step 8/al
Pixel x+rCos(a),y+rSin(a),co
Next a
EndIf
End Sub

4 Likes
167

starfield
starfield320×320 457 Bytes

'Stars, Power Basic
CLS
Dim co(64)
For m=0 To 21
co(m)=RGB(m12,m12,m8)
Next m
For m=22 To 31
co(m)=RGB(255,255,m8)
Next m
For m=32 To 63
co(m)=RGB(255,255,255)
Next m

zz=128
Dim zx(320)
Dim zy(320)
For m=0 To 319
zx(m)=160+100Sin(m/160Pi)
zy(m)=100+100Sin(m/160Pi)
Next m
dn=100
Dim x_(dn),y_(dn),z_(dn),aa(dn),ab(dn)
For m=0 To dn
x_(m)=Int(320Rnd())
y_(m)=Int(110+20Rnd())
z_(m)=Int(128*Rnd())
aa(m)=0
ab(m)=0
Next m

v=0
Do

For m=0 To dn
Pixel aa(m),ab(m),0
z_(m)=z_(m)+1

If z_(m)>127 Then
x_(m)=Int(20+280*Rnd())
y_(m)=Sin(v/7)*7+Sin((x_(m)-v)/10)*7+120
z_(m)=0
EndIf
a=(zx(v)z_(m)-zzx_(m))/(z_(m)-zz)
b=(zy(v)z_(m)-zzy_(m))/(z_(m)-zz)
If (a>-1) And (a<320) And (b>1) And (b<320) Then
Pixel a,b,co(z_(m)/2)
aa(m)=a
ab(m)=b
EndIf
Next m
v=v+1
If v>319 Then v=0
Loop Until Inkey$=Chr$(27)
1 Like
168

pdp8_kaleidoscope
pdp8_kaleidoscope320×320 1.91 KB

'PDP-8 Kaleidoscope
CLS
es=3000' erase size
Dim xa(es)
Dim ya(es)
lim=es*100'limit
'perc=200'per_call
'values -2048..2047
Dim integer inix=158
Dim integer iniy=-1048
sh=1'shift

Dim integer x=inix
Dim integer y=iniy
index=0
count=0
Randomize &h1234567

Do
If count>=es Then
Pixel xa(index),ya(index),0
EndIf

x=x-(y>>sh)
If x And 2048 Then
x=x Or &Hfffff000
Else
x=x And &Hfff
EndIf

y=y+(x>>sh)
If y And 2048 Then
y=y Or &Hfffff000
Else
y=y And &Hfff
EndIf

sx=((x<<21>>23)+160)
sy=((y<<21>>23)+160)
sx=sx Mod 320
sy=sy Mod 320

Pixel sx,sy,RGB(255,255,255)
xa(index)=sx
ya(index)=sy
index=index+1
If index=es Then
index=0
'x=Int(1024*Rnd())
y=2048-Int(1024*Rnd())
sh=2-sh
EndIf

count=count+1
If count=lim Then count=0
Loop Until Inkey$=Chr$(27)
1 Like