Heres a "space-time wormhole"

Code: Select all

`dim as integer xres,yres`

screen 19

screeninfo xres,yres

screenres xres,yres

dim as double c1,c2,s1,s2

dim as double x1,x2,y1,y2

dim as double rad=atn(1)/45

dim as double xctr,yctr,radius=150

dim as double deg1,deg2,span

xctr=xres/2

yctr=yres/2

span=0

for deg1 = 0 to 360 step 2

c1=cos(deg1*rad)

s1=sin(deg1*rad)

for deg2 = 0 to 360 step .5

c2=cos(deg2*rad)

s2=sin(deg2*rad)

x1=radius*c2*s2*c2*4

x2=radius*c1*sin(deg2*rad)'*tan(deg2*rad)*c2*2

y1=radius*s1*sin(deg2*rad)'*tan(deg2*rad)*c2*2

y2=radius*s2*c2*c2*4

pset(xctr+x1+x2,yctr+y1+y2),9

next

sleep 5

next

sleep

Heres a cool looking square of the circle..

Code: Select all

`dim as integer xres,yres`

screen 19

screeninfo xres,yres

screenres xres,yres

dim as double c1,c2,s1,s2

dim as double x1,x2,y1,y2

dim as double rad=atn(1)/45

dim as double xctr,yctr,radius=150

dim as double deg1,deg2,span

xctr=xres/2

yctr=yres/2

span=0

for deg1 = 0 to 360 step 1

c1=cos(deg1*rad)

s1=sin(deg1*rad)

for deg2 = 0 to 360 step 2

c2=cos(deg2*rad)

s2=sin(deg2*rad)

x1=radius*c2

x2=radius*c1*s2*s2*s2

y1=radius*s1*c2*c2*c2

y2=radius*s2

pset(xctr+x1+x2,yctr+y1+y2),9

next

sleep 10

next

sleep

Heres another sort of Jesus/demon whatever..

Code: Select all

`dim as integer xres,yres`

screen 19

screeninfo xres,yres

screenres xres,yres

dim as double c1,c2,s1,s2

dim as double x1,x2,y1,y2

dim as double rad=atn(1)/45

dim as double xctr,yctr,radius=150

dim as double deg1,deg2,span

xctr=xres/2

yctr=yres/2

for deg1 = 0 to 360 step 1

c1=cos(deg1*rad)

s1=sin(deg1*rad)

for deg2 = 0 to 360 step 1

c2 = cos(deg2*rad)

s2 = sin(deg2*rad)

x1=radius*c1*c1*s1*atn(deg2*rad*s2/s1)

x2=radius*c2*c2*c2*tan(deg2*rad*c2*c2/s2)

y1=radius*s1*s2*s2*tan(deg2*rad*c2*c2/s2)

y2=radius*s2*c1*s1*atn(deg2*rad*s2/s1)

pset(xctr+y1+y2,yctr+x1+x2),9

next

sleep 5

next

sleep