Sorry your browser is not supported!

sync on : sync rate 0
hide mouse

`Set text font
set text font "Comic Sans MS"
set text size 10

`Colors
Colors = 7

`Constant color (1 = red, 2 = green, 3 = blue)
dim Color(Colors, 3)
Color(1, 1) = 255 : Color(1, 2) = 255 : Color(1, 3) = 0
Color(2, 1) = 255 : Color(2, 2) = 0 : Color(2, 3) = 0
Color(3, 1) = 0 : Color(3, 2) = 255 : Color(3, 3) = 0
Color(4, 1) = 255 : Color(4, 2) = 0 : Color(4, 3) = 255
Color(5, 1) = 0 : Color(5, 2) = 255 : Color(5, 3) = 255
Color(6, 1) = 0 : Color(6, 2) = 0 : Color(6, 3) = 255
Color(7, 1) = 255 : Color(7, 2) = 255 : Color(7, 3) = 255

for i = 1 to Colors

	`Create media
	for y = 1 to 16
		for x = 1 to 16
	
			`Get the distance to the center
			d# = sqrt( (x-8)^2 + (y-8)^2 )
	
			`Calculate color based on the distance to the center
			if d# < 8.0
				value# = 1.0 / 8.0 * (8.0 - d#)
				ink rgb(Color(i, 1) * value#, Color(i, 2) * value#, Color(i, 3) * value#), 0
	
				`Draw dot (1x1 box is faster)
				box x, y, x + 1, y + 1
			endif
	
		next x
	next y
	get image i, 0, 0, 16, 16, 1
next i


`Create clock image
cls
ink rgb(255, 255, 255), 0
for i = 0 to 60
	x = 320 + (cos(i * 6.0)*175)
	y = 240 + (sin(i * 6.0)*175)
	box x-1, y-1, x+1, y+1
next i
for i = 1 to 12
	x = 312 + (cos(i * 30.0 - 90)*175)
	y = 232 + (sin(i * 30.0 - 90)*175)
	paste image 7, x, y

	`Text
	ink 0, 0
	center text x + 8, y + 4, str$(i)
next i
get image 10, 0, 0, screen width(), screen height(), 1

do

	`Clear the screen
	paste image 10, 0, 0

	`Get time
	time$ = get time$()
	
	`Get hours, minutes and seconds
	hours = val(left$(time$, 2))
	minutes = val(left$(right$(time$, 5), 2))
	seconds = val(right$(time$, 2))

	`Print time and values
	ink rgb(255, 255, 255), 0
	text 0, 0, time$
	text 0, 20, str$(hours) + " - " + str$(minutes) + " - " + str$(seconds)

	`Draw clock

	`Minutes
	for i = 1 to 4
		x = 312 + (cos(wrapvalue(-90 + (6.0*minutes) + (0.1*seconds))) * ((i-1)*25))
		y = 232 + (sin(wrapvalue(-90 + (6.0*minutes) + (0.1*seconds))) * ((i-1)*25))
		paste image 7, x, y, 1
	next i

	`Hours
	for i = 1 to 3
		x = 312 + (cos(wrapvalue(-90 + (30.0*hours) + (0.5*minutes))) * ((i-1)*25))
		y = 232 + (sin(wrapvalue(-90 + (30.0*hours) + (0.5*minutes))) * ((i-1)*25))
		paste image 1, x, y, 1
	next i

	`Seconds
	for i = 1 to 7
		x = 312 + (cos(wrapvalue(-90 + (6.0*seconds))) * ((i-1)*25))
		y = 232 + (sin(wrapvalue(-90 + (6.0*seconds))) * ((i-1)*25))
		paste image i, x, y, 1
	next i

	sync
loop

Sync On : Sync Rate 0 : Hide Mouse : Autocam Off

rem Make Clock
Make Object Sphere 1, 100
Scale Object 1, 100, 100, 1
Color Object 1, RGB( 255, 255, 255 )
Position Object 1, 0, 0, 0
ghost object on 1
For x = 1 To 12
   obj = free()
   Make Object Sphere obj, 5
   xpos# = (cos(x * 30.0)*48)
   ypos# = (sin(x * 30.0)*48)
   Position Object obj, xpos#, ypos#, 0
Next x
obj = free()
make object sphere obj, 10
position object obj, 0, 0, 0

rem arms
s_arm = free() : make object box s_arm, 45, 1, 1 : color object s_arm, rgb(255,0,0)
m_arm = free() : make object box m_arm, 40, 1, 1 : color object m_arm, rgb(255,255,0)
h_arm = free() : make object box h_arm, 25, 1, 1 : color object h_arm, rgb(0,0,255)

rem background
obj = free() : make object cylinder obj, 500 : color object obj, rgb( 255, 00, 0 ) : ghost object on obj : set object obj, 0, 0, 0, 1
obj = free() : make object cylinder obj, 560 : color object obj, rgb( 255, 255,0 ) : ghost object on obj : set object obj, 0, 0, 0, 0  : third = obj


rem Camera
Position Camera 0, 0, -100
Point Camera 0, 0, 0

rem Light
set point light 0, 0, 0, 0

Do

   ` get time
   time$ = get Time$()
   hours = val(left$(time$, 2))
   minutes = val(left$(right$(time$, 5), 2))
   seconds = val(right$(time$, 2))

   ` update s_arm
   angle# = wrapvalue( -90+(6.0*seconds)*-1)
   position object s_arm, 0, 0, -1
   `rotate object s_arm, 0, 0, 0
   `yrotate object s_arm, angle#
   `move object s_arm, -23
   `rotate object s_arm, 0, 0, 0
   zRotate Object s_arm, angle#

   ` update m_arm
   angle# = wrapvalue( -90+(6.0*minutes)*-1)
   position object m_arm, 0, 0, -1
   zRotate Object m_arm, angle#

   ` update h_arm
   angle# = wrapvalue( -90+(6.0*hours)*-1)
   position object h_arm, 0, 0, -1
   zRotate Object h_arm, angle#

   ` backdrop
   inc c, 1
   r = sin( c ) * 100
   g = sin( c ) * 155
   b = sin( c ) * 40
   if r > 255 then r =255
   if r < 0 then r =0
   if g > 255 then g =255
   if g < 0 then g =0
   if b > 255 then b =255
   if b < 0 then b =0
   color backdrop rgb( r, g, b )

   ` third background
   inc thi, 1
   scx# = 100-cos( thi ) *40
   scy# = 100-sin( thi ) *20
   scz# = 100-cos( thi ) *80
   Scale object third, scx#, scy#, scz#

   ` camera
   inc cam, 1
   camx# = cos( cam ) * 50
   camy# = sin( cam ) * 50
   camz# = -100+(cos( cam ) * 20)
   position camera camx#, camy#, camz#
   point camera 0, 0, 0

   ` light
   inc light, 1
   lightx# = cos( light )* 50
   lighty# = sin( light )* 50
   lightz# = (sin( light )*-50) - (cos( light )*-25 )
   Position Light 0, lightx#, lighty#, lightz#

Sync : Loop


Function free()
   repeat : inc id, 1 : until object exist(id)=0
EndFunction id

   ` get time
   time$ = get Time$()
   hours = val(left$(time$, 2))
   minutes = val(left$(right$(time$, 5), 2))
   seconds = val(right$(time$, 2))

Sync On : Sync Rate 0 : Hide Mouse : Autocam Off

rem Make Clock
Make Object Sphere 1, 100
Scale Object 1, 100, 100, 1
Color Object 1, RGB( 255, 255, 255 )
Position Object 1, 0, 0, 0
ghost object on 1
For x = 1 To 12
   obj = free()
   Make Object Sphere obj, 5
   xpos# = (cos(x * 30.0)*48)
   ypos# = (sin(x * 30.0)*48)
   Position Object obj, xpos#, ypos#, 0
Next x
obj = free()
make object sphere obj, 10
position object obj, 0, 0, 0

rem arms
s_arm = free() : make object box s_arm, 45, 1, 1 : color object s_arm, rgb(255,0,0)
m_arm = free() : make object box m_arm, 40, 1, 1 : color object m_arm, rgb(255,255,0)
h_arm = free() : make object box h_arm, 25, 1, 1 : color object h_arm, rgb(0,0,255)

rem background
obj = free() : make object cylinder obj, 500 : color object obj, rgb( 255, 00, 0 ) : ghost object on obj : set object obj, 0, 0, 0, 1
obj = free() : make object cylinder obj, 560 : color object obj, rgb( 255, 255,0 ) : ghost object on obj : set object obj, 0, 0, 0, 0  : third = obj


rem Camera
Position Camera 0, 0, -100
Point Camera 0, 0, 0

rem Light
set point light 0, 0, 0, 0

Do

   ` get time
   time$ = get Time$()
   hours = val(left$(time$, 2))
   minutes = val(left$(right$(time$, 5), 2))
   seconds = val(right$(time$, 2))

   ` update s_arm
   angle# = wrapvalue( -90+(6.0*seconds)*-1)
   position object s_arm, cos(angle# - 180)*22.5, sin(angle# - 180)*22.5, -1
   `rotate object s_arm, 0, 0, 0
   `yrotate object s_arm, angle#
   `move object s_arm, -23
   `rotate object s_arm, 0, 0, 0
   zRotate Object s_arm, angle#

   ` update m_arm
   angle# = wrapvalue( -90+(6.0*minutes)*-1)
   position object m_arm, cos(angle# - 180)*20, sin(angle# - 180)*20, -1
   zRotate Object m_arm, angle#

   ` update h_arm
   angle# = wrapvalue( (6.0*hours)*-1)
   position object h_arm, cos(angle#)*12.5, sin(angle#)*12.5, -1
   zRotate Object h_arm, angle#

   ` backdrop
   inc c, 1
   r = sin( c ) * 100
   g = sin( c ) * 155
   b = sin( c ) * 40
   if r > 255 then r =255
   if r < 0 then r =0
   if g > 255 then g =255
   if g < 0 then g =0
   if b > 255 then b =255
   if b < 0 then b =0
   color backdrop rgb( r, g, b )

   ` third background
   inc thi, 1
   scx# = 100-cos( thi ) *40
   scy# = 100-sin( thi ) *20
   scz# = 100-cos( thi ) *80
   Scale object third, scx#, scy#, scz#

   ` camera
   inc cam, 1
   camx# = cos( cam ) * 50
   camy# = sin( cam ) * 50
   camz# = -100+(cos( cam ) * 20)
   position camera camx#, camy#, camz#
   point camera 0, 0, 0

   ` light
   inc light, 1
   lightx# = cos( light )* 50
   lighty# = sin( light )* 50
   lightz# = (sin( light )*-50) - (cos( light )*-25 )
   Position Light 0, lightx#, lighty#, lightz#

Sync : Loop


Function free()
   repeat : inc id, 1 : until object exist(id)=0
EndFunction id

Gosub Setup

Rem *** Main Program Loop ***
Do
  Gosub DecodeTime
  Sync
  Text 0,0,"Hours: "+Str$(Hour)
  Text 0,16,"Minutes: "+Str$(Mins)
  Text 0,32,"Seconds: "+Str$(Secs)
Loop
End

DecodeTime:
  T$ = Get Time$()
  Hour = VAL(Left$(T$,2))
  Mins = VAL(Mid$(T$,4)+Mid$(T$,5))
  Secs = VAL(Right$(T$,2))
Return

Setup:
  Sync On: Sync Rate 0: CLS 0
  Set Text Opaque
Return

Rem Project: DBC Clock Challenge Entry By TDK_Man

Gosub Setup
Gosub Make_Textures
Gosub Make_Objects

Rem Main Loop
Do
  Gosub DecodeTime
  Gosub DisplayTime
  Sync
Loop
End

Rem **********************
Rem Update The Time Wheels
Rem **********************
DisplayTime:
  Rem Hour Wheel
  Radius#=22.0: AngleInc=-15: Rem Angle of rotation 15*24=360
  YDist#=Radius#: YDistInc=AngleInc
  ZDist#=Radius#: ZDistInc=AngleInc
  StartAVal = Hour * AngleInc
  For N=1 To 24
    Y# = WrapValue((StartAVal - N*AngleInc)-(12*AngleInc))
    Z# = WrapValue((StartAVal - N*AngleInc)-(12*AngleInc))
    Position Object N,-6,newyvalue(0,Y#,YDist#),newzvalue(0,Z#,ZDist#)-42
  Next N
  Rem Minutes Wheel
  Radius#=60.0: AngleInc=-6: Rem Angle of rotation 6*60=360
  YDist#=Radius#: YDistInc=AngleInc
  ZDist#=Radius#: ZDistInc=AngleInc
  StartAVal = Mins * AngleInc
  For N=0 To 59
    Y# = WrapValue((StartAVal - N*AngleInc)-(30*AngleInc))
    Z# = WrapValue((StartAVal - N*AngleInc)-(30*AngleInc))
    Position Object N+100,0,newyvalue(0,Y#,YDist#),newzvalue(0,Z#,ZDist#)
  Next N
  Rem Seconds Wheel
  Radius#=60.0: AngleInc=-6: Rem Angle of rotation 6*60=360
  YDist#=Radius#: YDistInc=AngleInc
  ZDist#=Radius#: ZDistInc=AngleInc
  StartAVal = Secs * AngleInc
  For N=0 To 59
    Y# = WrapValue((StartAVal - N*AngleInc)-(30*AngleInc))
    Z# = WrapValue((StartAVal - N*AngleInc)-(30*AngleInc))
    Position Object N+200,6,newyvalue(0,Y#,YDist#),newzvalue(0,Z#,ZDist#)
  Next N
Return

Rem ****************
Rem Get Current Time
Rem ****************
DecodeTime:
  T$ = Get Time$()
  Hour = VAL(Left$(T$,2))
  Mins = VAL(Mid$(T$,4)+Mid$(T$,5))
  Secs = VAL(Right$(T$,2))
Return

Rem ******************
Rem Create The Objects
Rem ******************
Make_Objects:
  Rem Hour Cubes
  Radius#=27.0: AngleInc=15: Rem Angle of rotation 15*24=360
  YDist#=Radius#: YDistInc=AngleInc
  ZDist#=Radius#: ZDistInc=AngleInc
  For N=1 To 24
    Make Object Cube N,5: Rem Hours
    YRotate Object N,180: ZRotate Object N,180
    Fix Object Pivot N
    Texture Object N,N
    Y# = WrapValue(Y# - AngleInc)
    Z# = WrapValue(Z# - AngleInc)
    Position Object N,-6,newyvalue(0,Y#,YDist#),newzvalue(0,Z#,ZDist#)-37
  Next N
  Rem Minute Cubes
  Radius#=60.0: AngleInc=6: Rem Angle of rotation 6*60=360
  YDist#=Radius#: YDistInc=AngleInc
  ZDist#=Radius#: ZDistInc=AngleInc
  For N=0 To 59
    Make Object Cube N+100,5: Rem Minutes
    YRotate Object N+100,180: ZRotate Object N+100,180
    Fix Object Pivot N+100
    Texture Object N+100,N+100
    Y# = WrapValue(Y# - AngleInc)
    Z# = WrapValue(Z# - AngleInc)
    Position Object N+100,0,newyvalue(0,Y#,YDist#),newzvalue(0,Z#,ZDist#)
  Next N
  Rem Seconds Cubes
  Radius#=60.0: AngleInc=6: Rem Angle of rotation 6*60=360
  YDist#=Radius#: YDistInc=AngleInc
  ZDist#=Radius#: ZDistInc=AngleInc
  For N=0 To 59
    Make Object Cube N+200,5: Rem Seconds
    YRotate Object N+200,180: ZRotate Object N+200,180
    Fix Object Pivot N+200
    Texture Object N+200,N+200
    Y# = WrapValue(Y# - AngleInc)
    Z# = WrapValue(Z# - AngleInc)
    Position Object N+200,6,newyvalue(0,Y#,YDist#),newzvalue(0,Z#,ZDist#)
  Next N
  Rem Cone Pointers
  Make Object Cone 300,5
  ZRotate Object 300,270
  Position Object 300,-20,0,-20
  Make Object Cone 301,5
  ZRotate Object 301,90
  Position Object 301,20,0,-20
Return

Rem *******************
Rem Make Digit Textures
Rem *******************
Make_Textures:
  Rem Create Hour Number Textures
  Create Bitmap 1,320,200
  Ink 0,0
  For N=1 To 24: Rem 12 Hours
    CLS RGB(160,0,255)
    If N<10
      Text 1,1,"0"+Str$(N)
    Else
      Text 1,1,Str$(N)
    Endif
    Get Image N,0,0,17,18
  Next N
  Rem Create Minutes Number Textures
  For N=0 To 59: Rem 60 Minutes
    CLS RGB(255,0,100)
    If N<10
      Text 1,1,"0"+Str$(N)
    Else
      Text 1,1,Str$(N)
    Endif
    Get Image N+100,0,0,17,18
  Next N
  Rem Create Seconds Number Textures
  For N=0 To 59: Rem 60 Seconds
    CLS RGB(0,255,100)
    If N<10
      Text 0,0,"0"+Str$(N)
    Else
      Text 0,0,Str$(N)
    Endif
    Get Image N+200,0,0,17,16
  Next N
  Set Current Bitmap 0
  Delete Bitmap 1
Return

Rem ************************
Rem Initial Program Settings
Rem ************************
Setup:
  Set Display Mode 800,600,16
  Sync On: Sync Rate 0: CLS 0
  AutoCam Off
  Hide Mouse
  Backdrop On
  Color Backdrop 0
  Position camera 0,0,-150: Rem Front
  Point Camera 0,0,0
  Set Text Opaque
Return

`**************************************
`* Title  : bouncing_clock
`* Author : latch
`* Date   : 1/21/2007
`* Version:
`**************************************

rem ------ Set Up Display -------------
autocam off
set display mode 800,600,32
sync on
sync rate 60
hide mouse

rem =============================================================
rem = SETUP
rem =============================================================
   rem object attribute arrays
   dim mass#(6)
   dim force#(6)
   dim accel#(6)
   dim ivel#(6)
   dim fvel#(6)
      rem initialize final velocity
      for obj = 1 to 6
         fvel#(obj)=-1
      next obj

   dim sideways(6)
   dim rot#(6)
   dim time#(6)
   dim distance#(6)
   dim x#(12)
   dim y#(12)
   dim z#(12)

   randomize timer()

   rem make a ground for reference
   box 2,2,9,9
   get image 1000,0,0,11,11
   make matrix 1,1000,1000,10,10
   prepare matrix texture 1,1000,1,1
   update matrix 1

   rem info
   set camera view 0,0,1,1
   center text screen width()/2,screen height()/2,"Initializing Display..."

   gosub _digital_numbers
   gosub _blocks
   position camera 500,50,350

   `sync

rem =============================================================
rem = MAIN
rem =============================================================

   set camera view 0,0,screen width(),screen height()

   do
      gosub _time_pos
      for obj = 1 to 6
         gosub _bounce
         `sync
      next obj
      sync
   loop

   end

rem =============================================================
rem = SUB-ROUTINES
rem =============================================================
   _time_pos:

      a$=get time$()
      sizet=len(a$)

      rem get seconds
      sec1=val(mid$(a$,sizet))
      sec2=val(mid$(a$,sizet-1))
      rem get minutes
      min1=val(mid$(a$,sizet-3))
      min2=val(mid$(a$,sizet-4))
      rem get hours
      hour1=val(mid$(a$,sizet-6))
      hour2=val(mid$(a$,sizet-7))

      rem put numbers on cubes
      texture object 6,100+sec1
      texture object 5,100+sec2
      texture object 4,100+min1
      texture object 3,100+min2
      texture object 2,100+hour1
      texture object 1,100+hour2

   return
`-------------------------------------------------------------------
   _digital_numbers:

      rem draw everything in background
      create bitmap 1,screen width(),screen height()

      rem array to store number graphics
      dim digital(9,7)
      for num = 0 to 9
         for value = 1 to 7
            read digital(num,value)
         next value
      next num

      rem make across bar
      f_triangle(0,10*2,10,5*2,10,15*2,rgb(255,255,255))
      box 10,5*2,40*2,15*2
      f_triangle(81,10,91,20,81,30,rgb(255,255,255))
      get image 1,0,5*2,92,31
      cls

      rem make up-down bar
      f_triangle(10,10,0,20,20,20,rgb(255,255,255))
      box 0,21,20,80
      f_triangle(0,81,10,91,20,81,rgb(255,255,255))
      get image 2,0,0,21,92
      cls

      sprite 2,82,102,2
      hide sprite 2
      sprite 1,0,100,1
      hide sprite 1

      rem create all numbers
      for num = 0 to 9
         for value = 1 to 7
            select value
               case 1
                  if digital(num,value) = 2 then paste sprite 2,0,2
               endcase
               case 2
                  if digital(num,value) = 1 then paste sprite 1,12,0
               endcase
               case 3
                  if digital(num,value) = 2 then paste sprite 2,95,2
               endcase
               case 4
                  if digital(num,value) = 2 then paste sprite 2,0,87
               endcase
               case 5
                  if digital(num,value) = 1 then paste sprite 1,12,85
               endcase
               case 6
                  if digital(num,value) = 2 then paste sprite 2,95,87
               endcase
               case 7
                  if digital(num,value) = 1 then paste sprite 1,12,170
               endcase
            endselect
         next value
         sync
         get image 100+num,0,0,116,191
         cls
      next num

      rem finished with array, sprites, bitmap
      undim digital(9,7)
      delete sprite 1
      delete sprite 2
      delete bitmap 1

   return
`----------------------------------------------------------------
   _blocks:

      rem make cubes to hold digital numbers
      start=-1
      for obj = 1 to 6
         inc start
         make object cube obj,25
         position object obj,(start*32)+425,get ground height(1,500,500)+25,500
      next obj

   return
`----------------------------------------------------------------
   _bounce:

      gravity#=-9.8

      if fvel#(obj) <= 0
         time#(obj)=0
         mass#(obj)=10
         sideways(obj)=rnd(4)-2
         
         force#(obj)=rnd(600)
         accel#(obj)=accel_2(force#(obj),mass#(obj))
         ivel#(obj)=vel_2(0.0,accel#(obj),1.0)
         
         x#(obj)=object position x(obj)
         y#(obj)=object position y(obj)
         z#(obj)=object position z(obj)

         fvel#(obj)=1

      else

         time#(obj)=time#(obj)+.05
         fvel#(obj)=vel_2(ivel#(obj),gravity#,time#(obj))
         distance#(obj)=distance_2(fvel#(obj),time#(obj))
         if distance#(obj) < 0 then distance#(obj) = 0
         rot#(obj)=wrapvalue(rot#(obj)+sideways(obj))
         position object obj,x#(obj),y#(obj)+distance#(obj),z#(obj)
         rotate object obj,rot#(obj),rot#(obj),wrapvalue(rot#(obj)*-2)
      endif

   return
`----------------------------------------------------------------


rem =============================================================
rem = FUNCTIONS
rem =============================================================
   function accel_2(force#,mass#)
      a#=force#/mass#
   endfunction a#
`-----------------------------------------------------------------
   function distance_2(velocity#,time#)
      s#=velocity#*time#
   endfunction s#
`-----------------------------------------------------------------
   function vel_2(ivelocity#,acceleration#,time#)
      v#=ivelocity#+(acceleration#*time#)
   endfunction v#
`-----------------------------------------------------------------
   function f_triangle(x1,y1,x2,y2,x3,y3,color)

      sync rate 0

      ink color,0
      line x1,y1,x2,y2
      line x2,y2,x3,y3
      line x3,y3,x1,y1

      midx=(x1+x2+x3)/3
      midy=(y1+y2+y3)/3

      fill(midx,midy,color)

      sync rate 60

   endfunction
`-----------------------------------------------------------------------
   function fill(x,y,color)
      if point(x,y) <> color
         box x,y,x,y
         fill(x+1,y,color)
         fill(x,y+1,color)
         fill(x-1,y,color)
         fill(x,y-1,color)
      endif
   endfunction
`------------------------------------------------------------------------
rem =============================================================
rem = DATA STATMENTS
rem =============================================================

rem 7 positions make up the graphic for a number 3 top 3 mid 1 bottom
rem 1=horizontal section
rem 2=vertical section
rem 0=empty space (ex number 2 would be 0,1,2,2,1,0,1)

   data 2,1,2,2,0,2,1
   data 0,0,2,0,0,2,0
   data 0,1,2,2,1,0,1
   data 0,1,2,0,1,2,1
   data 2,0,2,0,1,2,0
   data 2,1,0,0,1,2,1
   data 2,1,0,2,1,2,1
   data 0,1,2,0,0,2,0
   data 2,1,2,2,1,2,1
   data 2,1,2,0,1,2,1

`**************************************
`* Title  : bouncing_clock_2
`* Author : latch
`* Date   : 1/21/2007
`* Version:
`**************************************

rem ------ Set Up Display -------------
autocam off
set display mode 800,600,32
sync on
sync rate 60
hide mouse

rem =============================================================
rem = SETUP
rem =============================================================
   rem object attribute arrays
   dim mass#(6)
   dim force#(6)
   dim accel#(6)
   dim ivel#(6)
   dim fvel#(6)
      rem initialize final velocity
      for obj = 1 to 6
         fvel#(obj)=-1
      next obj

   dim sideways(6)
   dim rot#(6)
   dim time#(6)
   dim distance#(6)
   dim x#(12)
   dim y#(12)
   dim z#(12)

   randomize timer()

   rem make a ground for reference
   box 2,2,9,9
   get image 1000,0,0,11,11
   make matrix 1,1000,1000,10,10
   prepare matrix texture 1,1000,1,1
   update matrix 1

   rem info
   set camera view 0,0,1,1
   center text screen width()/2,screen height()/2,"Initializing Objects..."

   gosub _digital_numbers

   gosub _blocks

   position camera 500,50,350

   `sync

rem =============================================================
rem = MAIN
rem =============================================================

   set camera view 0,0,screen width(),screen height()

   do
      gosub _time_pos
      for obj = 1 to 6
         gosub _bounce
         `sync
      next obj
      sync
   loop

   end

rem =============================================================
rem = SUB-ROUTINES
rem =============================================================
   _time_pos:

      a$=get time$()
      sizet=len(a$)

      rem get seconds
      sec1=val(mid$(a$,sizet))
      sec2=val(mid$(a$,sizet-1))
      rem get minutes
      min1=val(mid$(a$,sizet-3))
      min2=val(mid$(a$,sizet-4))
      rem get hours
      hour1=val(mid$(a$,sizet-6))
      hour2=val(mid$(a$,sizet-7))

      rem put numbers on cubes
      texture object 6,100+sec1
      texture object 5,100+sec2
      texture object 4,100+min1
      texture object 3,100+min2
      texture object 2,100+hour1
      texture object 1,100+hour2

   return
`-------------------------------------------------------------------
   _digital_numbers:

      rem draw everything in background
      create bitmap 1,screen width(),screen height()

      rem array to store number graphics
      dim digital(9,7)
      for num = 0 to 9
         for value = 1 to 7
            read digital(num,value)
         next value
      next num

      rem make across bar
      f_triangle(0,10*2,10,5*2,10,15*2,rgb(255,255,255))
      box 10,5*2,40*2,15*2
      f_triangle(81,10,91,20,81,30,rgb(255,255,255))
      get image 1,0,5*2,92,31
      cls

      rem make up-down bar
      f_triangle(10,10,0,20,20,20,rgb(255,255,255))
      box 0,21,20,80
      f_triangle(0,81,10,91,20,81,rgb(255,255,255))
      get image 2,0,0,21,92
      cls

      sprite 2,82,102,2
      hide sprite 2
      sprite 1,0,100,1
      hide sprite 1

      rem create all numbers
      for num = 0 to 9
         for value = 1 to 7
            select value
               case 1
                  if digital(num,value) = 2 then paste sprite 2,0,2
               endcase
               case 2
                  if digital(num,value) = 1 then paste sprite 1,12,0
               endcase
               case 3
                  if digital(num,value) = 2 then paste sprite 2,95,2
               endcase
               case 4
                  if digital(num,value) = 2 then paste sprite 2,0,87
               endcase
               case 5
                  if digital(num,value) = 1 then paste sprite 1,12,85
               endcase
               case 6
                  if digital(num,value) = 2 then paste sprite 2,95,87
               endcase
               case 7
                  if digital(num,value) = 1 then paste sprite 1,12,170
               endcase
            endselect
         next value
         sync
         get image 100+num,0,0,116,191
         cls
      next num

      rem finished with array, sprites, bitmap
      undim digital(9,7)
      delete sprite 1
      delete sprite 2
      delete bitmap 1

   return
`----------------------------------------------------------------
   _blocks:

      rem make cubes to hold digital numbers
      start=-1
      for obj = 1 to 6
         inc start
         make object plain obj,25,25
         position object obj,(start*30)+425,get ground height(1,500,500)+25,500
         make object cube obj+6,25
         position object obj+6,(start*30)+425,get ground height(1,500,500)+25,500
         ghost object on obj+6

         `SET OBJECT Object Number, Wireframe, Transparency, Cull
         set object obj,1,0,0
      next obj

   return
`----------------------------------------------------------------
   _bounce:

      gravity#=-9.8

      if fvel#(obj) <= 0
         time#(obj)=0
         mass#(obj)=10
         sideways(obj)=rnd(4)-2
         `frontways=rnd(2)-1
         force#(obj)=rnd(600)
         accel#(obj)=accel_2(force#(obj),mass#(obj))
         ivel#(obj)=vel_2(0.0,accel#(obj),1.0)
         `fvel#(obj)=0
         x#(obj)=object position x(obj)
         y#(obj)=object position y(obj)
         z#(obj)=object position z(obj)
         x#(obj+6)=object position x(obj+6)
         y#(obj+6)=object position y(obj+6)
         z#(obj+6)=object position z(obj+6)

         fvel#(obj)=1

      else

         time#(obj)=time#(obj)+.05
         fvel#(obj)=vel_2(ivel#(obj),gravity#,time#(obj))
         distance#(obj)=distance_2(fvel#(obj),time#(obj))
         if distance#(obj) < 0 then distance#(obj) = 0
         rot#(obj)=wrapvalue(rot#(obj)+sideways(obj))
         position object obj,x#(obj),y#(obj)+distance#(obj),z#(obj)
         position object obj+6,x#(obj+6),y#(obj+6)+distance#(obj),z#(obj+6)
         rotate object obj,rot#(obj),rot#(obj),wrapvalue(rot#(obj)*-2)

      endif


   return
`----------------------------------------------------------------


rem =============================================================
rem = FUNCTIONS
rem =============================================================
   function accel_2(force#,mass#)
      a#=force#/mass#
   endfunction a#
`-----------------------------------------------------------------
   function distance_2(velocity#,time#)
      s#=velocity#*time#
   endfunction s#
`-----------------------------------------------------------------
   function vel_2(ivelocity#,acceleration#,time#)
      v#=ivelocity#+(acceleration#*time#)
   endfunction v#
`-----------------------------------------------------------------
   function f_triangle(x1,y1,x2,y2,x3,y3,color)

      sync rate 0

      ink color,0
      line x1,y1,x2,y2
      line x2,y2,x3,y3
      line x3,y3,x1,y1

      midx=(x1+x2+x3)/3
      midy=(y1+y2+y3)/3

      fill(midx,midy,color)

      sync rate 60

   endfunction
`-----------------------------------------------------------------------
   function fill(x,y,color)
      if point(x,y) <> color
         box x,y,x,y
         fill(x+1,y,color)
         fill(x,y+1,color)
         fill(x-1,y,color)
         fill(x,y-1,color)
      endif
   endfunction
`------------------------------------------------------------------------
rem =============================================================
rem = DATA STATMENTS
rem =============================================================

rem 7 positions make up the graphic for a number 3 top 3 mid 1 bottom
rem 1=horizontal section
rem 2=vertical section
rem 0=empty space (ex number 2 would be 0,1,2,2,1,0,1)

   data 2,1,2,2,0,2,1
   data 0,0,2,0,0,2,0
   data 0,1,2,2,1,0,1
   data 0,1,2,0,1,2,1
   data 2,0,2,0,1,2,0
   data 2,1,0,0,1,2,1
   data 2,1,0,2,1,2,1
   data 0,1,2,0,0,2,0
   data 2,1,2,2,1,2,1
   data 2,1,2,0,1,2,1

remstart
   -------------------------------------------------------------------
   program name: matrix clock
   -------------------------------------------------------------------
   written by: latch
   date: 18-01-2007
   -------------------------------------------------------------------
   comments: clock using matrix point heights
   -------------------------------------------------------------------
remend

   set display mode 800,600,32
   autocam off
   sync on
   sync rate 60
   hide mouse


rem =============================================================
rem = Array to hold number data
rem =============================================================
   tilex=69
   tilez=18

   dim number(9,tilez,tilex)

   for n = 0 to 9
      for z = 0 to tilez
         for x = 0 to 8
            read number(n,z,x)
         next x
      next z
   next n

rem =============================================================
rem = CREATE MATRIX
rem =============================================================

   make matrix 1,tilex,tilez,tilex,tilez

   rem add colons
   for z = 0 to tilez
      for x = 0 to 1
         read y
         set matrix height 1,x+46,z,y*3
         set matrix height 1,x+22,z,y*3
      next x
   next z

   `SET MATRIX Matrix Number, Wireframe, Transparency, Cull, Filter, Light, Fog, Ambient
   set matrix 1,1,1,1,1,1,1,0
   update matrix 1

rem =============================================================
rem = MAKE CASE TO HOLD CLOCK
rem =============================================================

   make object box 1,69,6,18
   color object 1,rgb(0,10,255)
   ghost object on 1
   position object 1,34.5,3,9

   position camera tilex/2,50,-10
   xrotate camera 75

rem =============================================================
rem = MAIN LOOP
rem =============================================================

gosub _lighting
color backdrop 0

do

   gosub _time_pos

   gosub _move_spot

   rem move camera left and right
   camx#=camera position x()
   if leftkey()=1 then camx#=camera position x()-.5
   if rightkey()=1 then camx#=camera position x()+.5
   position camera camx#,camera position y(),camera position z()

   rem info
   text 0,0,"Move camera left + right with arrow keys"

   sync

loop

end

rem =============================================================
rem = SUB-ROUTINES
rem =============================================================

   _time_pos:

      height=5
      a$=get time$()
      sizet=len(a$)

      rem get seconds
      sec1=val(mid$(a$,sizet))
      sec2=val(mid$(a$,sizet-1))
      rem get minutes
      min1=val(mid$(a$,sizet-3))
      min2=val(mid$(a$,sizet-4))
      rem get hours
      hour1=val(mid$(a$,sizet-6))
      hour2=val(mid$(a$,sizet-7))

      for z = 0 to tilez
         for x = 0 to 8
            set matrix height 1,x+60,z,number(sec1,z,x)*height
            set matrix height 1,x+49,z,number(sec2,z,x)*height
            set matrix height 1,x+36,z,number(min1,z,x)*height
            set matrix height 1,x+25,z,number(min2,z,x)*height
            set matrix height 1,x+12,z,number(hour1,z,x)*height
            set matrix height 1,x+1,z,number(hour2,z,x)*height
         next x
      next z

      gosub _smooth_matrix

      update matrix 1

   return
`------------------------------------------------------------------------
   _smooth_matrix:

      rem from DarkBASIC example code
      rem Author : DBS-LB
      rem Date   : 19th July 2000

      rem Use matrix normals to make it smooth
      for z=1 to tilez
         for x=1 to tilex

            rem Get matrix heights
            h8#=get matrix height(1,x,z-1)
            h4#=get matrix height(1,x-1,z)
            h#=get matrix height(1,x,z)
            h2#=get matrix height(1,x,z)

            rem Calculate projected angle X using heights
            x1#=(x-1)*25.0 : y1#=h#
            x2#=(x+0)*25.0 : y2#=h4#
            dx#=x2#-x1#
            dy#=y2#-y1#
            ax#=atanfull(dx#,dy#)
            ax#=wrapvalue(90-ax#)

            rem Calculate projected angle Z using heights
            z1#=(z-1)*25.0 : y1#=h2#
            z2#=(z+0)*25.0 : y2#=h8#
            dz#=z2#-z1#
            dy#=y2#-y1#
            az#=atanfull(dz#,dy#)
            az#=wrapvalue(90-az#)

            rem Make normal from projected angle
            nx#=sin(ax#)
            ny#=cos(ax#)
            nz#=sin(az#)

            rem Setting matrix normal for smoothness
            set matrix normal 1,x,z,nx#,ny#,nz#

         next x
      next z

   return
`------------------------------------------------------------------------
   _lighting:

      make light 1
      make light 2
      make light 3

      set point light 0,-30,5,10
      color light 0,rgb(0,0,255)

      set point light 1,100,5,10
      color light 1,rgb(0,0,255)

      set point light 2,34.5,8,20
      color light 2,rgb(0,0,255)

      set spot light 3,5,15
      color light 3,rgb(0,200,100)
      position light 3,35,60,0
      point light 3,tilex/2,0,tilez/2

      set ambient light 0

   return
`-------------------------------------------------------------------------
   _move_spot:

      ang#=wrapvalue(ang#+.5)
      rotate light 3,ang#,ang#,0

   return

rem =============================================================
rem = DATA STATEMENTS
rem =============================================================

   rem 0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,1,1,1,0,0,0
   data 0,0,1,1,1,1,1,0,0
   data 0,1,1,1,1,1,1,1,0
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 1,1,0,0,0,0,0,1,1
   data 1,1,0,0,0,0,0,1,1
   data 1,1,0,0,0,0,0,1,1
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 0,1,1,1,1,1,1,1,0
   data 0,0,1,1,1,1,1,0,0
   data 0,0,0,1,1,1,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0

   rem 1
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,1,0
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,0,1,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0

   rem 2
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,1,1,1,1,0,0
   data 0,0,1,1,1,1,1,1,0
   data 0,1,1,1,1,1,1,0,0
   data 1,1,1,0,0,0,0,0,0
   data 1,1,1,0,0,0,0,0,0
   data 1,1,1,0,0,0,0,0,0
   data 0,1,1,1,1,1,0,0,0
   data 0,0,1,1,1,1,1,0,0
   data 0,0,0,1,1,1,1,1,0
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,1,1,1,1,1,1,0
   data 0,1,1,1,1,1,1,0,0
   data 0,0,1,1,1,1,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0

   rem 3
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,1,1,1,0,0,0
   data 0,0,1,1,1,1,1,0,0
   data 0,0,0,1,1,1,1,1,0
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,1,1,1,1,1,0
   data 0,0,1,1,1,1,1,0,0
   data 0,0,0,1,1,1,1,1,0
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,1,1,1,1,1,0
   data 0,0,1,1,1,1,1,0,0
   data 0,0,0,1,1,1,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0

   rem 4
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,1,0
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,1,1,1,1,1,1
   data 0,0,1,1,1,1,1,1,1
   data 0,1,1,1,1,1,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 0,1,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,0,1,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0

   rem 5
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,1,1,1,0,0,0
   data 0,0,1,1,1,1,1,0,0
   data 0,0,0,1,1,1,1,1,0
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,1,1,1,1,1,0
   data 0,0,1,1,1,1,1,0,0
   data 0,1,1,1,1,1,0,0,0
   data 1,1,1,0,0,0,0,0,0
   data 1,1,1,0,0,0,0,0,0
   data 1,1,1,0,0,0,0,0,0
   data 0,1,1,1,1,1,1,0,0
   data 0,0,1,1,1,1,1,1,0
   data 0,0,0,1,1,1,1,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0

   rem 6
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,1,1,1,0,0,0
   data 0,0,1,1,1,1,1,0,0
   data 0,1,1,1,1,1,1,1,0
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,1,1,1,1,1,0
   data 1,1,1,1,1,1,1,0,0
   data 1,1,1,1,1,1,0,0,0
   data 1,1,1,0,0,0,0,0,0
   data 1,1,1,0,0,0,0,0,0
   data 1,1,1,0,0,0,0,0,0
   data 0,1,1,1,1,1,0,0,0
   data 0,0,1,1,1,1,1,0,0
   data 0,0,0,1,1,1,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0

   rem 7
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,1,0
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,1,0,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 0,1,1,1,1,1,1,1,0
   data 0,0,1,1,1,1,1,0,0
   data 0,0,0,1,1,1,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0

   rem 8
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,1,1,1,0,0,0
   data 0,0,1,1,1,1,1,0,0
   data 0,1,1,1,1,1,1,1,0
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 0,1,1,1,1,1,1,1,0
   data 0,0,1,1,1,1,1,0,0
   data 0,1,1,1,1,1,1,1,0
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 0,1,1,1,1,1,1,1,0
   data 0,0,1,1,1,1,1,0,0
   data 0,0,0,1,1,1,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0

   rem 9
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,1,1,1,0,0,0
   data 0,0,1,1,1,1,1,0,0
   data 0,0,0,1,1,1,1,1,0
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,0,0,0,1,1,1
   data 0,0,0,1,1,1,1,1,1
   data 0,0,1,1,1,1,1,1,1
   data 0,1,0,1,1,1,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 1,1,1,0,0,0,1,1,1
   data 0,1,1,1,1,1,1,1,0
   data 0,0,1,1,1,1,1,0,0
   data 0,0,0,1,1,1,0,0,0
   data 0,0,0,0,0,0,0,0,0
   data 0,0,0,0,0,0,0,0,0

   rem colon
   data 0,0
   data 0,0
   data 0,0
   data 0,0
   data 0,0
   data 0,0
   data 1,1
   data 1,1
   data 0,0
   data 0,0
   data 0,0
   data 1,1
   data 1,1
   data 0,0
   data 0,0
   data 0,0
   data 0,0
   data 0,0
   data 0,0

`**************************************
`* Title  : Clock Sapien
`* Author : latch
`* Date   : 11-01-2007
`* Version:
`**************************************

rem =============================================================
rem = set up display
rem =============================================================
autocam off
set display mode 800,600,32
sync on
sync rate 60
hide mouse

position camera 0,80,-200
point camera 0,40,0

dim man(1000)

box 1,1,10,10
get image 1,0,0,11,11

ground=make_floor(1,100000.0,100000.0,0.0,-100.0,0.0,1,200.0,200.0)

for n = 20 to 60
   man(n)=stick_man(n)
   loop object man(n)
   set object speed man(n),rnd(25)+25
   center text screen width()/2,20,"Initializing Object Data..."
   sync
next n

randomize timer()


      cls 0
      ink rgb(255,255,255),0
      text 0,0,"I'M LATE!!  I'M LATE!!"
      get image 3,0,0,140,17

      sprite 1,330,10,3
      set sprite 3,1,0

      set camera view 0,0,screen width(),screen height()

do
      create bitmap 1,192,128
      ink rgb(0,255,0),0
      box 0,0,127,127
      ink 0,0
      text 33,64,get time$()
      get image 2,0,0,128,128
      delete bitmap 1

      for obj = 20 to 60

         move object man(obj),rnd(10)
         yrotate object man(obj),wrapvalue(object angle y(man(obj))+rnd(20)-10)
         texture object man(obj),2
      next obj

      objx#=object position x(man(20))
      objy#=object position y(man(20))
      objz#=object position z(man(20))
      angy#=object angle y(man(20))

      set camera to follow objx#,objy#,objz#,angy#,150,50,30,1


      sync
loop

end

rem =============================================================
rem = FUNCTIONS
rem =============================================================

   function is_even(num)
      true = 1
      false = 0
      test#=num/2.0
      if test# > (num/2) then exitfunction false
   endfunction true
`----------------------------------------------------------------
   function avail_obj(obj)
      while object exist(obj)=1
         inc obj
      endwhile
   endfunction obj
`-----------------------------------------------------------------

function stick_man(obj)
   rem =============================================================
   rem = Create character
   rem =============================================================

   rem variables
   body=avail_obj(obj)
   joint=avail_obj(body+1)
   head=avail_obj(body+2)
   chimney=avail_obj(body+3)
   bone=body

         rem right leg
         r_hip=1:r_thigh=2:r_knee=3:r_shin=4

         rem left leg
         l_hip=5:l_thigh=6:l_knee=7:l_shin=8

         rem right arm
         r_shold=9:r_bi=10:r_elbow=11:r_arm=12

         rem left arm
         l_shold=13:l_bi=14:l_elbow=15:l_arm=16

         rem head
         kneck=17:head=18:chimney=19

   rem body parts
   make object cylinder body,50
   scale object body,25,70,25
   make mesh from object bone,body
   scale object body,100,100,100
   make object cube head,25
   make mesh from object head,head
   make object cylinder chimney,5
   scale object chimney,60,400,60
   make mesh from object chimney,chimney

   rem joints
   make object sphere joint,50
   scale object joint,36,36,36
   make mesh from object joint,joint
   scale object joint,100,100,100

   rem create limbs
   count = 0
   for lmb=1 to 16
      inc count
      if is_even(lmb)=1
         add limb body,lmb,bone
      else
         add limb body,lmb,joint
      endif

      rem link limbs
      if count > 1
         link limb body,lmb,lmb-1
      endif

      if count = 4 then count = 0

   next lmb

   rem neck head and smoke stack
   add limb body,kneck,bone
   add limb body,head,head
   link limb body,head,kneck
   add limb body,chimney,chimney
   link limb body,chimney,head

   rem initial position of limbs
         rem right leg
   offset limb body,r_hip,-12,-26,0
   offset limb body,r_thigh,0,-20,0
   offset limb body,r_knee,0,-20,0
   offset limb body,r_shin,0,-20,0

         rem left leg
   offset limb body,l_hip,12,-26,0
   offset limb body,l_thigh,0,-20,0
   offset limb body,l_knee,0,-20,0
   offset limb body,l_shin,0,-20,0

         rem right arm
   offset limb body,r_shold,-33,20,0
   offset limb body,r_bi,-2,-20,0
   offset limb body,r_elbow,0,-20,0
   rotate limb body,r_elbow,300,0,0
   offset limb body,r_arm,0,-20,0

         rem left arm
   offset limb body,l_shold,33,20,0
   offset limb body,l_bi,2,-20,0
   offset limb body,l_elbow,0,-20,0
   rotate limb body,l_elbow,300,0,0
   offset limb body,l_arm,0,-20,0

         rem head
   offset limb body,kneck,0,20,0
   offset limb body,head,0,20,0
   offset limb body,chimney,5,20,-8

   rem object animation
   set object keyframe body,0
   rotate limb body,r_hip,310,0,0
   rotate limb body,r_knee,60,0,0
   rotate limb body,r_shold,30,0,0
   rotate limb body,l_hip,20,0,0
   rotate limb body,l_knee,20,0,0
   rotate limb body,l_shold,310,0,0
   set object keyframe body,10
   rotate limb body,r_hip,0,0,0
   rotate limb body,r_knee,3,0,0
   rotate limb body,r_shold,330,0,0
   rotate limb body,l_hip,340,0,0
   rotate limb body,l_knee,60,0,0
   rotate limb body,l_shold,0,0,0
   set object keyframe body,20
   rotate limb body,r_hip,20,0,0
   rotate limb body,r_knee,30,0,0
   rotate limb body,r_shold,300,0,0
   rotate limb body,l_hip,310,0,0
   rotate limb body,l_knee,30,0,0
   rotate limb body,l_shold,20,0,0
   set object keyframe body,28
   rotate limb body,l_hip,0,0,0
   rotate limb body,l_knee,3,0,0
   rotate limb body,l_shold,359,0,0
   rotate limb body,r_hip,359,0,0
   rotate limb body,r_knee,10,0,0
   rotate limb body,r_shold,0,0,0
   set object keyframe body,38

   rem cleanup unneeded meshes and objects
   delete object chimney
   delete mesh chimney
   delete object head
   delete mesh head
   delete object joint
   delete mesh joint
   delete mesh bone

endfunction body
`-----------------------------------------------------------------------------
function make_floor(obj,width#,height#,posx#,posy#,posz#,texture,across#,down#)

   rem check for exisiting objects
   while object exist(obj)=1
      inc obj
   endwhile

   rem make the actual plain object and rotate it flat
   make object plain obj,width#,height#
   xrotate object obj,90
   fix object pivot obj

   rem texture and scale the texture to tile it or not
   texture object obj,texture
   scale object texture obj,across#,down#

   rem set the initial position of the floor
   position object obj,posx#,posy#,posz#
endfunction obj

`**************************************
`* Title  : Drop Clock
`* Author : Phaelax
`* Date   : 1-22-2007
`**************************************
speed = 5
radius = 5
size = radius*2
spacing = size*4

max_display = 120


offsetX = (screen width() - (8*size+7*spacing))/2
offsetY = (screen height() - 5*size)/2

rem x,y,active,targetX,targetY
dim dots(max_display, 5)
dim grav#(max_display)

for i = 1 to max_display
   dots(i, 1) = rnd(640)
   dots(i, 2) = rnd(480)
   dots(i, 3) = 0
   grav#(i) = 0.1
next i


REM STUFF
dim digits(10,3,5)

for i = 1 to 10
   for y = 1 to 5
      for x = 1 to 3
         read z
         digits(i,x,y) = z
      next x
   next y
next i


sync on
sync rate 60

ink rgb(0,255,0),0


DO
   cls

   gosub _update
   gosub _position

sync
LOOP




_position:
   for i = 1 to max_display
      if dots(i,3) = 1
         if abs(dots(i,4)-dots(i,1)) < speed AND abs(dots(i,5)-dots(i,2)) < speed
            dots(i,1) = dots(i,4)
            dots(i,2) = dots(i,5)
         else
            angle# = atanfull(dots(i,4)-dots(i,1),dots(i,5)-dots(i,2))
            dots(i,1) = dots(i,1) + sin(angle#)*speed
            dots(i,2) = dots(i,2) + cos(angle#)*speed
         endif
      else
         if dots(i,2) < 479-radius
            dots(i,2) = dots(i,2)+grav#(i)
            grav#(i) = grav#(i) + 0.1
            if grav#(i) > 6 then grav#(i) = 6
            if dots(i,2) > 480-size
               dots(i,2) = 480-size
            endif
         endif
      endif
      `circle dots(i,1), dots(i,2), radius
      box dots(i,1)-radius, dots(i,2)-radius,dots(i,1)+radius, dots(i,2)+radius
   next i
RETURN


_update:
   if seconds <> val(substring$(get time$(),6, 8))
      time$ = get time$()
      seconds = val(substring$(time$,6, 8))
      hour = val(substring$(time$,0, 2))
      rest$ = substring$(time$,2,9)
      if hour > 12 then hour = hour-12
      hr$ = str$(hour)
      if len(hr$) = 1 then hr$ = " "+hr$
      time$ = hr$+rest$
      j = 0
      for i = 1 to len(time$)
         d$ = mid$(time$, i)
         if d$ <> ":"
            digit = val(d$)
            for y = 1 to 5
               for x = 1 to 3
                  if digits(digit+1,x,y) = 1
                     inc j
                     dots(j,3) = 1
                     dots(j,4) = offsetX+x*size + spacing*(i-1)
                     dots(j,5) = offsetY+y*size
                  else
                     inc j
                     dots(j,3) = 0
                  endif
               next x
            next y
         else
            inc j
            dots(j,3) = 1
            dots(j,4) = offsetX+2*size + spacing*(i-1)
            dots(j,5) = offsetY+1*size
            inc j
            dots(j,3) = 1
            dots(j,4) = offsetX+2*size + spacing*(i-1)
            dots(j,5) = offsetY+5*size
         endif
      next i
   endif
RETURN


REM Returns a substring of string 's'
REM beginIndex, inclusive and starts at 0
REM endIndex, exclusive
function substring$(s$, beginIndex, endIndex)
   s$ = left$(s$, endIndex)
   s$ = right$(s$, len(s$)-beginIndex)
endfunction s$


REM DATA
zero:
data 1,1,1
data 1,0,1
data 1,0,1
data 1,0,1
data 1,1,1

one:
data 1,1,0
data 0,1,0
data 0,1,0
data 0,1,0
data 1,1,1

two:
data 1,1,1
data 0,0,1
data 1,1,1
data 1,0,0
data 1,1,1

three:
data 1,1,1
data 0,0,1
data 1,1,1
data 0,0,1
data 1,1,1

four:
data 1,0,1
data 1,0,1
data 1,1,1
data 0,0,1
data 0,0,1

five:
data 1,1,1
data 1,0,0
data 1,1,1
data 0,0,1
data 1,1,1

six:
data 1,1,1
data 1,0,0
data 1,1,1
data 1,0,1
data 1,1,1

seven:
data 1,1,1
data 0,0,1
data 0,0,1
data 0,0,1
data 0,0,1

eight:
data 1,1,1
data 1,0,1
data 1,1,1
data 1,0,1
data 1,1,1

nine:
data 1,1,1
data 1,0,1
data 1,1,1
data 0,0,1
data 0,0,1

Latch - Matrix Clock

Phaleax - Drop Clock

System_ScreenWidth = 320
System_ScreenHeight = 240

set display mode 320,240,32

dim fire(320,240)

rem controls height of flame value = [4,5]
flame# = 4.02

sync on


repeat

   for y = 1 to 239
      for x = 1 to 160
         fire(x,y) = newValue(x,y,flame#)
			ink fire(x,y), 0
         dot x,y
      next x
   next y

   for x = 1 to 160
      r = rnd(255)
      g = rnd(255)
      if g>r then g = r
      fire(x,240) = rgb(r,0,r)
		ink fire(x,y), 0
      dot x,240
   next x



   if upkey() then inc flame#, 0.02
   if downkey() then dec flame#, 0.02

   sync
until spacekey()



function newValue(x, y, flame#)
   c = getColor(x,y+1)
   r = rgbr(c)
   g = rgbg(c)
   b = rgbb(c)
   c = getColor(x-1,y+1)
   r = r + rgbr(c)
   g = g + rgbg(c)
   b = b + rgbb(c)
   c = getColor(x+1,y+1)
   r = r + rgbr(c)
   g = g + rgbg(c)
   b = b + rgbb(c)
   c = getColor(x,y+2)
   r = r + rgbr(c)
   g = g + rgbg(c)
   b = b + rgbb(c)

   r = r/flame#
   g = g/flame#
   b = b/flame#

   c = rgb(r,g,b)
endfunction c


rem safe way to retrieve value from array
function getColor(x, y)
   rem if index out of bounds
   if x < 1 or x > 320 or y < 1 or y > 240 then exitfunction rgb(0,0,0)
   v = fire(x,y)
endfunction v

WIDTH = 800
HEIGHT = 600

set display mode WIDTH, HEIGHT,32

DRAW_COLOR = rgb(255,255,255)

rem length of slider track
SLIDER_LENGTH = 75
rem thickness of slider track
TRACK_HEIGHT = 3
rem height above and below track to extend the slider thumb
THUMB_EXT = 2
rem width of slider thumb
THUMB_WIDTH = 4
rem x-position to start drawing all sliders at
SLIDER_X = width-100

rem define 3 sliders
rem 2nd dimension:
rem 1 = y-position
rem 2 = 0.0-1.0, thumb position on track
rem 3 = 1 if thumb is being dragged, 0 if not
dim sliders#(3,3)

for i = 1 to 3
  sliders#(i,1) = 2+(i-1)*12
  sliders#(i,2) = rnd(100)/100.0
next i



sync on

ink rgb(192,192,192),0
drawOutlinedBox(2,2,SLIDER_X-6,HEIGHT-2)

DO

  gosub _handle_drawing

  gosub _handle_sliders
  gosub _draw_sliders

sync
LOOP



rem ======================================
rem Handles drawing routines
rem ======================================
_handle_drawing:
  if mouseWithin(2,2,SLIDER_X-6,HEIGHT-2) and mouseclick() = 1
    if draw_flag = 0
      draw_flag = 1
      oldmx = mousex()
      oldmy = mousey()
    endif
  else
    draw_flag = 0
  endif

  if draw_flag = 1
    ink DRAW_COLOR, 0
    mx = mousex()
    my = mousey()
    line oldmx,oldmy,mx,my
    oldmx = mx
    oldmy = my
  endif
RETURN



rem ======================================
rem Handles mouse interaction with sliders
rem ======================================
_handle_sliders:
  for i = 1 to 3
    tx = SLIDER_X+SLIDER_LENGTH*sliders#(i,2)
    ty1 = sliders#(i,1)-THUMB_EXT
    ty2 = sliders#(i,1)+THUMB_EXT+TRACK_HEIGHT
    if mouseWithin(tx,ty1,tx+THUMB_WIDTH,ty2)=1 and mouseclick() = 1
      sliders#(i,3) = 1
    endif
    if sliders#(i,3) = 1
      mx# = mousex()
      sliders#(i,2) = (mx# - SLIDER_X)/SLIDER_LENGTH
      if mousex() < SLIDER_X then sliders#(i,2) = 0
      if mousex() > SLIDER_X+SLIDER_LENGTH then sliders#(i,2) = 1
      DRAW_COLOR = rgb(255*sliders#(1,2),255*sliders#(2,2),255*sliders#(3,2))
    endif
    if mouseclick() <> 1 then sliders#(i,3) = 0
  next i
RETURN


rem =========================
rem Draws the 3 color sliders
rem Draws color box
rem =========================
_draw_sliders:
  ink 0,0
  box SLIDER_X,0,WIDTH-1,46
  for i = 1 to 3
    ink rgb(255,255,255),0
    box SLIDER_X,sliders#(i,1),SLIDER_X+SLIDER_LENGTH,sliders#(i,1)+TRACK_HEIGHT
    tx = SLIDER_X+SLIDER_LENGTH*sliders#(i,2)
    ty1 = sliders#(i,1)-THUMB_EXT
    ty2 = sliders#(i,1)+THUMB_EXT+TRACK_HEIGHT
    ink rgb(192,192,192),0
    box tx,ty1,tx+THUMB_WIDTH,ty2
    cValue = int(255*sliders#(i,2))
    if i = 1 then ink rgb(cValue,0,0),0
    if i = 2 then ink rgb(0,cValue,0),0
    if i = 3 then ink rgb(0,0,cValue),0
    x = SLIDER_X+SLIDER_LENGTH
    box x+6,ty1,x+23,ty2
  next i
  ink DRAW_COLOR, 0
  box SLIDER_X,36,SLIDER_X+SLIDER_LENGTH+23,46
RETURN


rem =========================================
rem Checks if mouse is inside the defined box
rem =========================================
function mouseWithin(x1,y1,x2,y2)
  if mousex() > x1 and mousex() < x2 and mousey() > y1 and mousey() < y2 then exitfunction 1
endfunction 0

rem =========================================
rem Draws an outline of a box
rem =========================================
function drawOutlinedBox(x1,y1,x2,y2)
  line x1,y1,x2,y1
  line x1,y1,x1,y2
  line x2,y1,x2,y2
  line x1,y2,x2,y2
endfunction

sync on

clear_screen:

ink rgb(255,255,255),0
box 0,0,639,479

ink rgb(0,0,0),0
print "Click to draw.Right-click"
print "to pick colour.Space"
print "to clear screen."

ink rgb(255,0,0),0
box 300,3,310,13
ink rgb(0,255,0),0
box 320,3,330,13
ink rgb(0,0,255),0
box 340,3,350,13
ink rgb(255,128,0),0
box 360,3,370,13
ink rgb(255,255,0),0
box 380,3,390,13
ink rgb(255,0,255),0
box 400,3,410,13
ink rgb(0,0,0),0
box 420,3,430,13
ink rgb(255,255,255),0
box 440,3,450,13

ink 0,0

do

	if mouseclick()=1 and fird=0
		oldx=mousex()
		oldy=mousey()
		fird=1
	endif

	if spacekey()=1 then goto clear_screen

	if mouseclick()=1 and mousey()>20
		line oldx, oldy,mousex(),mousey()
		oldx=mousex()
		oldy=mousey()
	else
		fird=0
	endif

	if mouseclick()=2	then ink point(mousex(),mousey()),0
	set cursor 500,0
	print "colour:"
	box 550,3,560,13

	sync

Loop

Rem Lucifer's Paint.. it sucks, i know..
sync on
INK RGB(255,255,255), RGB(0,0,0)
Name$="image.bmp"
do
mousex#=MOUSEX()
mousey#=MOUSEY()
Text 0,0, "Press 1 for white"
Text 0,20, "press 2 for Blue"
text 120,0, "Press 3 for red"
text 120,20, "Press 4 for yellow"
text 0,460, "Press SPACE to clear the screen"
text 250,460, "Press ENTER to save the image"
if scancode()=2 then ink RGB(255,255,255), RGB(0,0,0)
if scancode()=5 then ink RGB(255,255,0), RGB(0,0,0)
if scancode()=3 then ink RGB(0,0,255), RGB(0,0,0)
if scancode()=4 then ink rgb(255,0,0), rgb(0,0,0)
If spacekey()=1 then cls
If scancode()=28
hide mouse
save bitmap Name$
show mouse
endif
if mouseclick()=1 and mousey#<460 and mousey#>50
line mousex#, mousey#, mousex#, mousey#
endif
line 0,50,640,50
line 0,460,640,460
sync
loop

sync on

r=255
g=0
b=0
rpoint=0
gpoint=0
bpoint=0

clear_screen:

cls

linebox(130,60,620,460,255,255,255)

ink rgb(255,255,255),0
set cursor 130,0
print "Click to draw."
set cursor 130,20
print "Spaceto clear screen."
do

	if mouseclick()=1 and fird=0
		oldx=mousex()
		oldy=mousey()
		fird=1
	endif

	if spacekey()=1 then goto clear_screen

	if mouseclick()=1 and mousewithin(130,60,620,460)
		ink rgb(r,g,b),0
		line oldx, oldy,mousex(),mousey()
		oldx=mousex()
		oldy=mousey()
	else
		fird=0
	endif

	gosub makecolourbox
	gosub makeslider
	gosub makecurrentcolour
	gosub handleslider
	gosub handlecurrentcolour

	sync

Loop

makecolourbox:

	for bx=1 to 255 step 4
		for by=1 to 255 step 4
			ink rgb(r,bx,by),0
			dot bx/4+10,by/4+10
		next by
	next bx
	linebox(9,9,74,74,255,255,255)

return

makeslider:
	
	for i=1 to 255 step 4
		ink rgb(i,0,0),0
		line i/4+10,85,i/4+10,95
	next i
	linebox(9,84,74,96,255,255,255)

	linebox(r/4+10-2,83,r/4+10+2,97,155,155,155)

return

makecurrentcolour:
	
	ink rgb(r,g,b),0
	box 10,105,40,125
	linebox(9,104,41,126,255,255,255)
	ink rgb(rpoint,gpoint,bpoint),0
	box 44,105,74,125
	linebox(44,104,75,126,255,255,255)

return

handleslider:
	if mousewithin(10,85,73,95)=1 and mouseclick()=1 then r=(mousex()-10)*4
return

handlecurrentcolour:

	if mousewithin(10,10,(255/4)+10,(255/4)+10)=1
		if mouseclick()=1
			temp=point(mousex(),mousey())
			g=rgbg(temp)
			b=rgbb(temp)
		endif
		temp=point(mousex(),mousey())
		rpoint=r
		gpoint=rgbg(temp)
		bpoint=rgbb(temp)
	endif

return

function linebox(x1,y1,x2,y2,r,g,b)

	ink rgb(r,g,b),0
	line x1,y1,x1,y2
	line x1,y2,x2,y2
	line x2,y2,x2,y1
	line x2,y1,x1,y1

endfunction

function mousewithin(x1,y1,x2,y2)
  if mousex()>x1 and mousex()<x2 and mousey()>y1 and mousey()<y2 then exitfunction 1
endfunction 0