Hi there. Here's an icosahedron made with an array and drawing lines .
SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
dim coordx[12]
dim coordy[12]
giro as float
x as float
y as float
giro=360/5
x=0
y=25
c=0
w=makecolor(255,255,255)
b=makecolor(100,100,255)
o=0
coordx[11]=150
coordy[11]=100
coordx[12]=150
coordy[12]=300
do
if y>100 then y=100
if y<0 then y=0
for i= 1 to 5
coordx[i]=150+sin(i*giro+x)*100
coordy[i]=150+cos(i*giro+x)*(50-y)
next i
for i= 6 to 10
coordx[i]=150+sin(36+i*giro+x)*100
coordy[i]=250+cos(36+i*giro+x)*(50-y)
next
if ( GetRawKeyState( 38 ) ) then y=y+2
if ( GetRawKeyState( 40 ) ) then y=y-2
if ( GetRawKeyState( 37 ) ) then x=x+5
if ( GetRawKeyState( 39 ) ) then x=x-5
drawline(coordx[1],coordy[1],coordx[2],coordy[2],w,w,1)
drawline(coordx[2],coordy[2],coordx[3],coordy[3],w,w,1)
drawline(coordx[3],coordy[3],coordx[4],coordy[4],w,w,1)
drawline(coordx[4],coordy[4],coordx[5],coordy[5],w,w,1)
drawline(coordx[1],coordy[1],coordx[5],coordy[5],w,w,1)
drawline(coordx[6],coordy[6],coordx[7],coordy[7],w,w,1)
drawline(coordx[7],coordy[7],coordx[8],coordy[8],w,w,1)
drawline(coordx[8],coordy[8],coordx[9],coordy[9],w,w,1)
drawline(coordx[9],coordy[9],coordx[10],coordy[10],w,w,1)
drawline(coordx[6],coordy[6],coordx[10],coordy[10],w,w,1)
drawline(coordx[1],coordy[1],coordx[6],coordy[6],w,w,1)
drawline(coordx[2],coordy[2],coordx[7],coordy[7],w,w,1)
drawline(coordx[3],coordy[3],coordx[8],coordy[8],w,w,1)
drawline(coordx[4],coordy[4],coordx[9],coordy[9],w,w,1)
drawline(coordx[5],coordy[5],coordx[10],coordy[10],w,w,1)
drawline(coordx[1],coordy[1],coordx[10],coordy[10],w,w,1)
drawline(coordx[2],coordy[2],coordx[6],coordy[6],w,w,1)
drawline(coordx[3],coordy[3],coordx[7],coordy[7],w,w,1)
drawline(coordx[4],coordy[4],coordx[8],coordy[8],w,w,1)
drawline(coordx[5],coordy[5],coordx[9],coordy[9],w,w,1)
for i= 1 to 5
drawline(coordx[i],coordy[i],coordx[11],coordy[11],w,w,1)
drawline(coordx[i+5],coordy[i+5],coordx[12],coordy[12],w,w,1)
next
print("Use cursor ")
Sync()
loop
I'm not a grumpy grandpa
