Sorry your browser is not supported!

`come on!!!
`dah=duh!! dDA ~DUH!! DA HUUUHHH!!! DOOM DOOM DOOM DOOM!!!

set display mode 640,480,16
sync on

start:
print "How many points would you like to use?"
input ":",pzki
if pzki<=0 : print "How do you expect to draw a curve with" : print ""+str$(pzki)+" points you idiot?" : goto start : endif

dim p(pzki,pzki)

print "You have selected "+str$(pzki)+" points."

gosub draw_graph_paper
wait 100 : cls 0

print "Would you like to plot your points with the mouse or would you prefer"
print "to use the keyboard for your input?"
print "Hit keys to type"
print "or click mouse"
repeat
`for sel=0 to 9
   if mouseclick()>=1
      mouse=1
      keys=0
      exit
   endif
      keys=1
      mouse=0
   sync
`next sel
s$="."
print s$+s$;
until scancode()>=1
if keys=0 and mouse=1 then sel$=" mouse it is"
if keys=1 and mouse=0 then sel$=" keys it shall be"
print "ok"+sel$
wait 500 : cls 0
gosub draw_graph_paper

`..Im guessing the do-loop would hover around here...
`pointf(1,0,0)
`pointf(2,50,10)
`n=pointf(3,600,300)
`gosub name_points

`Y travels towards the floor.
`X travels across the floor.


suspend for key
UNDIM P(pzki) : wait 1000 : print "Finished!"
end

name_points:
   for a=0 to n
      text p(a,0)-10,460-p(a,1),""+str$(p(a,0))+","+str$(p(a,1))+""
   next a
return

draw_graph_paper:
wait 2000 : cls 0
   ink rgb(255,255,255),0
   line 0,0,0,4479
   line 1,479,640,479
   for xp=10 to 640 step 10 : line xp,479,xp,475 : next xp
   for yp=0 to 470 step 10 :  line 0,yp,4,yp : next yp
   sync
return
`Y travels towards the floor.
`X travels across the floor.

function pointf(n,x,y)
   if x=0 then x=1 : if y=0 then y=1
   circle x,480-y,1
   `p gets 0,1 = 0
   p(n,0)=x
   `p gets 1,0 = 0
   p(n,1)=y
endfunction n

General agreement on or acceptance of certain practices or attitudes

`autocam off
sync on
sync rate 40

make object triangle 1, 0,0,0, 100,20,0, 100,-20,0
bladeRotate=180
movesunonz#=0.0
movesunony#=0.0
newcube=99
autocam off

make object sphere 2,10
position object 2,0,0,20
color object 2,rgb(100,255,200)

`position camera 300,10,0
`point camera 0,0,0

do
   inc bladeRotate,10
   bladeRotate=wrapvalue(bladeRotate)
   bladeRotateFunction(bladeRotate)
   movesunony#=movesunFunction(bladeRotate)
   inc spurt,1
   if spurt=4
      newcube=boxappears(newcube,100,movesunony#,movesunonz#)
      spurt=0
   endif
   boxdragsbehined(newcube,movesunony#,movesunonz#)
   sync
loop
end

function bladeRotateFunction(bladeRotate)
   bladeRotate=wrapvalue(bladeRotate)
   xrotate object 1,bladeRotate
endfunction

function movesunFunction(bladeRotate)
   disty#=cos(bladeRotate)*20.0
   distz#=sin(bladeRotate)*20.0
   if disty# > 0.0 then movesunony# = 0.0 - disty#
   if disty# < 0.0 then movesunony# = 0.0 - disty#
   if distz# > 0.0 then movesunonz# = 0.0 - distz#
   if distz# < 0.0 then movesunonz# = 0.0 - distz#
   position object 2,100,movesunony#,movesunonz#
endfunction movesunony#

function boxappears(newcube,100,movesunony#,movesunonz#)
   inc newcube
   make object cube newcube,5
   position object newcube,100,movesunony#,movesunonz#
endfunction newcube

function boxdragsbehined(newcube,movesunony#,movesunonz#)
   for numberofobjects=100 to newcube
      positionofy# = object position y(numberofobjects)
      positionofx# = object position x(numberofobjects) - 5.0
      position object numberofobjects,positionofx#,positionofy#,movesunonz#
   next numberofobjects
endfunction

`x goes along floor
`y goes to ceiling
`z goes forwards