Sorry your browser is not supported!

Rem Project: Pong!
Rem Created: 28/11/2002 15:46:48

Rem ***** Main Source File *****
rem Standard Setup Code
set window on
sync on : sync rate 30
color backdrop RGB(0,0,0) : hide mouse
set text font "arial" : set text size 12 : set text transparent

rem setup objects!
make object box 1, 100, 1, 1
make object box 2, 100, 1, 1
make object box 3, 2, 1, 8
make object box 4, 1, 1, 51
make object sphere 5, 1.6

rem place objects!
position object 1, 50, 0, 50
position object 2, 50, 0, 0
position object 3, 0.5, 0, 25
position object 4, 100.5, 0, 25
position object 5, 50, 0, 25

rem make camera
position camera 0, 50, 65, 25
point camera 0, 50, 0, 25

rem set ball vector
rf=make vector2(ball)
set vector2 ball, -1.1, 0.2


rem main loop
do

rem controls
if upkey()=1 then move object 3, 1.5
if downkey()=1 then move object 3, -1.5

rem limit paddle to arena
if object position z (3) > 45.5 or object position z (3) < 4.5
   if object position z (3) > 45.5 then z#=45.5
   if object position z (3) < 4.5 then z#=4.5
   position object 3, 0.5, 0.0, z#
endif

rem collide ball
object_hit=object collision(5,0)
if object_hit>0
   if object_hit=1
      set vector2 ball, x vector2(ball)*1.05, y vector2(ball)*-1.1
   endif
   if object_hit=2
      set vector2 ball, x vector2(ball)*1.05, y vector2(ball)*-1.1
   endif
   if object_hit=3
      set vector2 ball, x vector2(ball)*-1.05, y vector2(ball)*1.2
   endif
   if object_hit=4
      set vector2 ball, x vector2(ball)*-1.05, y vector2(ball)*1.2
   endif
endif

rem move ball
position object 5, object position x(5)+ x vector2(ball), 0.0, object position z(5) + y vector2(ball)

rem out of limits ball
if object position x(5) < -2.0 or object position x(5) > 110.0 or object position z(5)> 55.0 or object position z(5)< -5.0
   position object 5, 50, 0, 25
   set vector2 ball, -1.2, 0.2
endif

sync
loop

Rem Project: Lightmap test 1
Rem Created: 01/12/2002 09:25:18

Rem ***** Main Source File *****

rem Standard Setup Code
sync on : sync rate 0
color backdrop rgb (0,0,0)
set text font "arial" : set text size 12 : set text transparent

for obj=1 to 2
if obj=1
   VXa#=0.0 : VYa#=0.0 : VZa#=8.0
   VXb#=0.0 : VYb#=0.0 : VZb#=0.0
   VXc#=8.0 : VYc#=0.0 : VZc#=8.0
endif
if obj>1
   VXa#=8.0 : VYa#=0.0 : VZa#=0.0
   VXb#=8.0 : VYb#=0.0 : VZb#=8.0
   VXc#=0.0 : VYc#=0.0 : VZc#=0.0
endif
gosub Create_lightmap
next obj

rem setup camera
position camera 0, 4.0, 8.0, 4.0
point camera 0, 4.0, 0.0, 4.0

rem view loop
do
sync
loop



Create_lightmap:
rem setup all key variables
LX#=5.5 : LY#=2.0 : LZ#=8.0 :`Light 1 position

rem lightmap size
sze#=64

rem make vectors
moo=make vector3(edgeA)
moo=make vector3(edgeB)
moo=make vector3(trinorm)
moo=make vector3(trinormV)
moo=make vector3(light)
moo=make vector3(lightN)

rem make object
make object triangle obj, VXa#, VYa#, VZa#, VXb#, VYb#, VZb#, VXc#, VYc#, VZc#

rem texure object
if VZa#<VZb#
scale object texture obj, -1.0, 1.0
endif
if VZa#>=VZb#
scale object texture obj, 1.0, -1.0
endif

rem make bitmap
create bitmap 1, sze#, sze#

rem calculate required variables
edgeAL#= SQRT((VXb#-VXa#)^2 + (VYb#-VYa#)^2 + (VZb#-VZa#)^2)
edgeBL#= SQRT((VXc#-VXa#)^2 + (VYc#-VYa#)^2 + (VZc#-VZa#)^2)

rem setup vectors
set vector3 edgeA, VXb#-VXa#, VYb#-VYa#, VZb#-VZa#
set vector3 edgeB, VXc#-VXa#, VYc#-VYa#, VZc#-VZa#

rem calculate triangle normal using crossproduct
cross product vector3 trinorm, edgeA, edgeB

rem normalise triangle vector
length#= SQRT((x vector3(trinorm)^2) + (y vector3(trinorm)^2) + (z vector3(trinorm)^2))
set vector3 trinormV, (x vector3(trinorm)/length#), (y vector3(trinorm)/length#), (z vector3(trinorm)/length#)

rem calculate step values
StepHX#=(VXc#-VXa#)/sze#
StepHY#=(VYc#-VYa#)/sze#
StepHZ#=(VZc#-VZa#)/sze#
StepVX#=(VXb#-VXa#)/sze#
StepVY#=(VYb#-VYa#)/sze#
StepVZ#=(VZb#-VZa#)/sze#

rem **LIGHTMAPPING LOOP******************************************************************

for n=0 to sze#
   for m=0 to sze#

      rem setup the light vector and normalise
      set vector3 light, (VXa# + (m * StepHX#) + (n * StepVX#)) - LX#, (VYa# + (m * StepHY#) + (n * StepVY#)) - LY# , (VZa# + (m * StepHZ#) + (n * StepVZ#)) - LZ#
      Llength#= SQRT((x vector3(light)^2) + (y vector3(light)^2) + (z vector3(light)^2))
      set vector3 lightN, (x vector3(light)/Llength#), (y vector3(light)/Llength#), (z vector3(light)/Llength#)

      rem find the dot product for the angle between vectors, kudos to lambert.
      DP# = dot product vector3(lightN, trinormV)
      b# = (2.0*DP#)/Llength#
      if b#*255 > 255 then b#=1.0

      rem write colour to bitmap
      if stepHX#<0
         dot abs(m-64), abs(n-64), rgb(255.0*b#,255.0*b#,255.0*b#)
      else
         dot m, n, rgb(255.0*b#,255.0*b#,255.0*b#)
      endif

   next m
next n

get image obj, 0, 0, sze#, sze#
set current bitmap 0
texture object obj, obj


rem *************************************************************************************
return

cls
set display mode 1024,768,32
backdrop on
color backdrop 0
hide mouse
sync rate 60
sync on

gosub setup:

rf=make vector3(ball)
set vector3 ball, 2.1, -3.0, -1.2

position camera 500,50,-550

do


object_hit=object collision(5,0)
if object_hit>0
   if object_hit=2
      set vector3 ball, x vector3(ball)*1.05, y vector3(ball)*-0.1,z vector3(ball)*-1.1
   endif
   if object_hit=3
      set vector3 ball, x vector3(ball)*1.05, y vector3(ball)*-0.1,z vector3(ball)*1.1
   endif
   if object_hit=4
      set vector3 ball, x vector3(ball)*-1.05, y vector3(ball)*0.2,z vector3(ball)*-1.1
   endif
   if object_hit=6
      set vector3 ball, x vector3(ball)*-1.05, y vector3(ball)*0.2,z vector3(ball)*1.1
   endif
   if object_hit=7
      set vector3 ball, x vector3(ball)*1.05, y vector3(ball)*1.2,z vector3(ball)*-1.1
   endif
if object_hit=8
      set vector3 ball, x vector3(ball)*1.05, y vector3(ball)*-1.2,z vector3(ball)*1.1
   endif
endif


rem move ball
position object 5, object position x(5)+ x vector3(ball),object position y(5)+ y vector3(ball), object position z(5) + z vector3(ball)

rem out of limits ball
if object position x(5) < -2.0 or object position x(5) > 1100.0 or object position y(5)> 500.0 or object position y(5)< -2.0 or object position z(5)< -2.0 or object position z(5)> 1005.0
   position object 5, 150, 5, 25
   set vector3 ball, -1.2, 1.0, 1.2
endif

`  SET CAMERA TO FOLLOW object position x(5),object position y(5),object position z(5), 0, 450, 150, 10, 1

   sync
loop

setup:
make object box 2, 1000, 200, 1
make object box 3, 1000, 200, 1
make object box 4, 1, 200, 500
make object box 6, 1, 200, 500
make object box 7, 1000,1,500
make object box 8, 1000,1,500
make object sphere 5, 10
color object 2,rgb(55,255,255)
color object 3,rgb(55,255,255)
color object 4,rgb(55,255,255)
color object 6,rgb(55,255,255)
color object 7,rgb(55,255,255)
color object 8,rgb(55,255,255)
ghost object on 2
ghost object on 3
ghost object on 4
ghost object on 6
ghost object on 7
ghost object on 8
position object 2, 500, 50, 500
position object 3, 500, 50, 1
position object 4, 1, 50, 250
position object 6, 1000, 50, 250
position object 7, 500,-50,250
position object 8, 500,150,250

position object 5, 50, 0, 25

return

cls
set display mode 1024,768,32
backdrop on
color backdrop 0
hide mouse
sync rate 60
sync on

gosub setup:

rf=make vector3(ball)
set vector3 ball, 1.1, 1.1, -1.05

position camera 500,50,-550

do


object_hit=object collision(5,0)
if object_hit>0
   if object_hit=2
      set vector3 ball, x vector3(ball)*1.1, y vector3(ball)*1.1,z vector3(ball)*-1.1
   endif
   if object_hit=3
      set vector3 ball, x vector3(ball)*1.1, y vector3(ball)*1.1,z vector3(ball)*-1.1
   endif
   if object_hit=4
      set vector3 ball, x vector3(ball)*-1.1, y vector3(ball)*1.1,z vector3(ball)*1.1
   endif
   if object_hit=6
      set vector3 ball, x vector3(ball)*-1.1, y vector3(ball)*1.1,z vector3(ball)*1.1
   endif
   if object_hit=7
      set vector3 ball, x vector3(ball)*1.1, y vector3(ball)*-1.1,z vector3(ball)*1.1
   endif
   if object_hit=8
      set vector3 ball, x vector3(ball)*1.1, y vector3(ball)*-1.1,z vector3(ball)*1.1
   endif
endif


rem move ball
position object 5, object position x(5)+ x vector3(ball),object position y(5)+ y vector3(ball), object position z(5) + z vector3(ball)

rem out of limits ball
if object position x(5) < -1000.0 or object position x(5) > 1000.0 or object position y(5) > 1000.0 or object position y(5)< -1000.0 or object position z(5)< -1000.0 or object position z(5)> 1005.0
   position object 5, 50, 0, 25
   set vector3 ball, 1.1, 1.1, -1.05
endif

`  SET CAMERA TO FOLLOW object position x(5),object position y(5),object position z(5), 0, 450, 150, 10, 1

   sync
loop

setup:
make object box 2, 1000, 200, 1
make object box 3, 1000, 200, 1
make object box 4, 1, 200, 500
make object box 6, 1, 200, 500
make object box 7, 1000,1,500
make object box 8, 1000,1,500
make object sphere 5, 10
color object 2,rgb(55,255,255)
color object 3,rgb(55,255,255)
color object 4,rgb(55,255,255)
color object 6,rgb(55,255,255)
color object 7,rgb(55,255,255)
color object 8,rgb(55,255,255)
ghost object on 2
ghost object on 3
ghost object on 4
ghost object on 6
ghost object on 7
ghost object on 8
position object 2, 500, 50, 500
position object 3, 500, 50, 1
position object 4, 1, 50, 250
position object 6, 1000, 50, 250
position object 7, 500,-50,250
position object 8, 500,150,250

position object 5, 50, 0, 25

return

rem this function takes in 2 sets of 3D coordinates and returns the distance between them
function pythag3d(x1,y1,z1,x2,y2,z2)
   distance3d = sqrt((x1 - x2)^2 + (y1 - y2)^2 (z1 - z2)^2)
endfunction distance3d


rem this function takes in 2 sets of 3D cordinates and the letter
rem of the axis (X,Y,Z) you would like the angle of and it returns the angle along that axis
function objectTravelAngle(x1,y1,z1,x2,y2,z2,axis)
   make object cube 500,1
   position object 500,x1,y1,z1
   point object 500,x2,y2,z2
   if axis = x then axisReturn# = object angle x(500)
   if axis = y then axisReturn# = object angle y(500)
   if axis = z then axisReturn# = object angle z(500)
   delete object 500
endfunction axisReturn#

cls
set display mode 1024,768,32
backdrop on
color backdrop 0
hide mouse
sync rate 60
sync on

gosub setup:

rem make vector
rf=make vector3(ball)
set vector3 ball, 1.1, 1.1, -1.05

rem make trial array
dim trail(3)
trail(1)=9
trail(2)=10
trail(3)=11

position camera 500,50,-550

do


object_hit=object collision(5,0)
if object_hit>0 and object_hit<9
   if object_hit=2
      set vector3 ball, x vector3(ball)*1.1, y vector3(ball)*1.1,z vector3(ball)*-1.1
   endif
   if object_hit=3
      set vector3 ball, x vector3(ball)*1.1, y vector3(ball)*1.1,z vector3(ball)*-1.1
   endif
   if object_hit=4
      set vector3 ball, x vector3(ball)*-1.1, y vector3(ball)*1.1,z vector3(ball)*1.1
   endif
   if object_hit=6
      set vector3 ball, x vector3(ball)*-1.1, y vector3(ball)*1.1,z vector3(ball)*1.1
   endif
   if object_hit=7
      set vector3 ball, x vector3(ball)*1.1, y vector3(ball)*-1.1,z vector3(ball)*1.1
   endif
   if object_hit=8
      set vector3 ball, x vector3(ball)*1.1, y vector3(ball)*-1.1,z vector3(ball)*1.1
   endif
endif


rem move ball
position object 5, object position x(5)+ x vector3(ball),object position y(5)+ y vector3(ball), object position z(5) + z vector3(ball)

rem out of limits ball
if object position x(5) < -1000.0 or object position x(5) > 1000.0 or object position y(5) > 1000.0 or object position y(5)< -1000.0 or object position z(5)< -1000.0 or object position z(5)> 1005.0
   position object 5, 50, 0, 25
   set vector3 ball, 1.1, 1.1, -1.05
endif

`  SET CAMERA TO FOLLOW object position x(5),object position y(5),object position z(5), 0, 450, 150, 10, 1

rem make trail
lifetime=10

inc time, 1
if time>lifetime then time=0

if time=lifetime
   inc trail_obj, 1
   if trail_obj>3 then trail_obj=1
   position object trail(trail_obj), object position x(5) , object position y(5) , object position z(5)
endif

   sync
loop

setup:
make object box 2, 1000, 200, 1
make object box 3, 1000, 200, 1
make object box 4, 1, 200, 500
make object box 6, 1, 200, 500
make object box 7, 1000,1,500
make object box 8, 1000,1,500
make object sphere 5, 10
make object sphere 9, 8
make object sphere 10, 8
make object sphere 11, 8
color object 2,rgb(55,255,255)
color object 3,rgb(55,255,255)
color object 4,rgb(55,255,255)
color object 6,rgb(55,255,255)
color object 7,rgb(55,255,255)
color object 8,rgb(55,255,255)
ghost object on 2
ghost object on 3
ghost object on 4
ghost object on 6
ghost object on 7
ghost object on 8
position object 2, 500, 50, 500
position object 3, 500, 50, 1
position object 4, 1, 50, 250
position object 6, 1000, 50, 250
position object 7, 500,-50,250
position object 8, 500,150,250
position object 5, 50, 0, 25

return

function pythag3d(vectorA, vectorB)
   rf=make vector3(resultant_vector)
   subtract vector3 resultant_vector, vectorA, vectorB
   distance3d# = length vector3(resultant_vector)
endfunction distance3d#

`This code shows how the vectors have a VERY bad bug
`You cant access data out of a vector correctly unless it was the last vector to have data
`entered.
`it even happens when a different type of vector set afterwards

rem Standard Setup Code
sync on : sync rate 0
color backdrop rgb(0,0,128) : hide mouse
set text font "arial" : set text size 12 : set text transparent

rem setup vectors!!!!
rf=make vector3 (vectora)
rf=make vector3 (vectorb)
rf=make vector2 (vectorc)
rf=make vector2 (vectord)

set vector3 vectora, 5.0, 6.0, 7.0
set vector3 vectorb, 30.0, 32.0, 23.0
set vector2 vectorc, 50.0, 60.0
set vector2 vectord, 80.0, 85.0

do
text 0, 0, "vectora X: " + str$(x vector3(vectora)) + " vectora Y: " + str$(y vector3(vectora)) + " vectora Z: " + str$(z vector3(vectora))
text 0, 20, "vectorb X: " + str$(x vector3(vectorb)) + " vectorb Y: " + str$(y vector3(vectorb)) + " vectorb Z: " + str$(z vector3(vectorb))
text 0, 40, "vectorc X: " + str$(x vector2(vectorc)) + " vectorc Y: " + str$(y vector2(vectorc))
text 0, 60, "vectord X: " + str$(x vector2(vectord)) + " vectord Y: " + str$(y vector2(vectord))
rem they all use vector D's X and Y value, whilst  both vector3's uses vector B's Z value
sync
loop

cls
set display mode 1024,768,32
hide mouse

ball = 1
ball2 = 2
ballresult = 3
kac = 4
kc = 5
cls
sync rate 50
sync on



rem make vector
rf=make vector2(ball)
rf=make vector2(ball2)
`rf=make vector2(ballresult)

set vector2 ball, 2,-2
set vector2 ball2, 0,3

kc=DOT PRODUCT VECTOR2(ball, ball2)


x# = 300
y# = 200
x2# = 300
y2# = 200
x3# = 300
y3# = 200
x4# = 300
y4# = 200


`CROSS PRODUCT VECTOR2 ballresult, ball,ball2


do

INK RGB(255,255,0),RGB(0,0,0)
text 0,0,"vector1 product x " + str$(x vector2(ball))
text 0,20,"vector1 product y " + str$(y vector2(ball))
`text 0,40,"vector1 product z " + str$(z vector3(ball))
INK RGB(0,255,0),RGB(0,0,0)
text 0,60,"vector2 product x " + str$(x vector2(ball2))
text 0,80,"vector2 product y " + str$(y vector2(ball2))
`text 0,100,"vector2 product z " + str$(z vector3(ball2))
INK RGB(255,0,0),RGB(0,0,0)
`text 0,120,"cross product x " + str$(x vector3(ballresult))
`text 0,140,"cross product y " + str$(y vector3(ballresult))
`text 0,160,"cross product z " + str$(z vector3(ballresult))
text 0,300,"dot product " + str$(kc)
result=acos(kc)

text 400,400,"Angle " + str$(result)
x# = x# + x vector2(ball)
y# = y# + y vector2(ball)
dot x#,y#,RGB(255,255,0)
x2# = x2# + x vector2(ball2)
y2# = y2# + y vector2(ball2)
dot x2#,y2#,RGB(0,255,0)
`x3# = x3# + x vector3(ballresult)
`y3# = y3# + y vector3(ballresult)
`dot x3#,y3#,RGB(255,0,0)

   sync
loop
suspend for mouse