aUCBLogo Demos and Tests / carrace


be carrace
   
roadnr=1
;   setUpdateGraph false
setProcessIdleInterleaving 1
   
unperspective
   
clearScreen
   
hideTurtle
   
setLightAmbient RGB .5 .5 .5
   
size=1
   
white=RGB 1 1 1
   
black=RGB 0 0 0
   
green=RGB 0 1 0
   
red=RGB 1 0 0
   
red2=RGB .9 0 0
   
blue=RGB 0 0 1
   
perspective
;ignore
;[
   
planesize=1000
   
PenUp
   
back .1
   
down 90
   
fd planesize/sqrt 2
   
rt 135
   
grass=loadImage "grass.jpg
   
grasstex=Texture grass
   
setTexXY 0 0
   
PolyStart
   
setPenColor white
   
PenDown
   
setTexXY 200 0 fd planesize rt 90
   
setTexXY 200 200 fd planesize rt 90
   
setTexXY 0 200 fd planesize rt 90
   
setTexXY 0 0 fd planesize rt 90
   
PolyEnd
   
PenUp
   
Home
;]
   
fd 10 right 90 fd 10
   
disableTexture
   
setLabelSize [5 5]
   
setPenColor red
   
Label [Start]
   
setPenColor white
   
setPenSize [0 0]
   
width=20
   
rocks=loadImage "rockbricks.jpg
   
rockstex=Texture rocks
   
texy=0
   
texo=0
   
Home
   
down 90
   
road

   
rampHeight=width
   
rampAngle=10
   
p0=PosXYZ
   
o0=Orientation
   
PenUp
   
case roadnr
   
[[1
      
setXYZ -166.57 0 20
      
fd width*2
      
right 180
      
p1=PosXYZ
      
o1=Orientation
      
up rampAngle
      
PenDown
      
PolyStart
      
setTexXY 1 0  fd width*2  right 90
      
setTexXY 1 1  fd width  right 90
      
setTexXY 0 1  fd width*2  right 90
      
setTexXY 0 0  fd width   right 90
      
PolyEnd
      
down rampAngle
      
PolyStart
      
setTexXY 1 0  fd width*2*cos rampAngle  up 90
      
p2=PosXYZ
      
o2=Orientation
      
setTexXY 1 1  fd width*2*sin rampAngle
      
setTexXY 0 0  setPosXYZ p1  setOrientation o1
      
PolyEnd
      
PenUp
      
right 90
      
fd width
      
left 90
      
p1=PosXYZ
      
o1=Orientation
      
PenDown
      
PolyStart
      
setTexXY 1 0  fd width*2*cos rampAngle  up 90
      
setTexXY 1 1  fd width*2*sin rampAngle
      
setTexXY 0 0  setPosXYZ p1  setOrientation o1
      
PolyEnd
      
PenUp
      
setTexXY 0 0  setPosXYZ p2  setOrientation o2
      
PenDown
      
PolyStart
      
setTexXY 1 0  fd width*2*sin rampAngle  right 90
      
setTexXY 1 1  fd width  right 90
      
setTexXY 0 1  fd width*2*sin rampAngle  right 90
      
setTexXY 0 0  fd width
      
PolyEnd
      
PenUp
      
setPosXYZ p2+(list 0 .2 width*0.1)  setOrientation o2
      
down 90  right 90
      
fd width*3.2  left 90
      
water=loadImage "water.jpg
      
watertex=Texture water
      
PenDown
      
PolyStart
      
setPenColor blue
      
setTexXY 2 0  fd width*2  left 90
      
setTexXY 2 4  fd width*4  left 90
      
setTexXY 0 4  fd width*2  left 90
      
setTexXY 0 0  fd width*4  left 90
      
PolyEnd
   
]
   
[2
   
]]
   
PenUp
   
setOrientation o0
   
setPosXYZ p0

   
p0=PosXYZ
   
setPenSize [5 5]
   
PenDown
   
bricks=loadImage "bricks.png
   
brickstex=Texture bricks
   
walls "Line3 white
   
PenUp
   
maingraph=GraphCurrent
   
roadframe=Frame [][Roadmap] 
      
wxDEFAULT_FRAME_STYLE
      
[0 530][400 300]
   
roadgraph=(Graph roadframe wxFULL_REPAINT_ON_RESIZE [][400 300])
;   GraphSetCurrent roadgraph
   
WindowSetClientSize roadframe 400 300
   
perspective
   
setEye {0 0 600}{0 0 0}{0 1 0}
   
hideTurtle
   
clearScreen
   
disableLighting
   
setPenColor green
   
road
;stop
   
setPenSize [4 4]
   
PenDown
   
enableCylinderLines
   
walls "Line red
   
disableCylinderLines
   
p0=PosXYZ
   
o0=Orientation
   
case roadnr
   
[[1
      
PenUp
      
setXYZ -166.7 -20 0
      
PenDown
      
PolyStart
      
setPenColor blue
      
fd width*2  left 90
      
fd width    left 90
      
setPenColor black
      
fd width*2  left 90
      
fd width    left 90
      
PolyEnd
      
PenUp
      
back width*2.1
      
right 90
      
fd width*0.8  left 90
      
PenDown
      
PolyStart
      
setPenColor red2
      
fd width*2  left 90
      
fd width*4  left 90
      
fd width*2  left 90
      
fd width*4  left 90
      
PolyEnd
   
]
   
[2
   
]]
   
PenUp
   
setOrientation o0
   
setPosXYZ p0
;   showTurtle
   
updateGraph
;rotatescene
;stop
   
dispatchMessages
;   FrameIconize roadframe true
   
GraphSetCurrent maingraph
   
WindowSetFocus maingraph
;updateGraph
;stop
;rotateScene
;stop
   
MidiOpen 0
   
MidiProgramChange 0 117
   
MidiProgramChange 1 81
   
MidiProgramChange 2 125
   
MidiProgramChange 3 122
   
motornote=40
   
besttime=99999999
   
running=true
   
while [running]
   
[   
      
PenUp
      
Home
      
setXYZ 0 0 0 
;setXYZ -186 0 0
;right 180   
      
fd 5
      
down 90
      
fly_around
      
if wxNO==(MessageBox 
         
[Do you want be play again?][Again?wxYES_NO)
      
[   running=false
      
]
   
]
   
GaugeDestroy speedgauge
   
FrameDestroy roadframe
   
OnChar []
   
OnKeyDown []
   
OnKeyUp []
   
MidiAllSoundsOff
   
MidiClose
   
if Key? [ignore readChar]

   
be road
      
case roadnr
      
[[1   50
         
45 50
         
50
         
180 30
         
50
         
45 100
         
50
         
180 30
         
50
         
135 100
         
45 30
         
50
         
180 30
         
180 30
         
150
         
90 60
         
180 30
         
30 100
         
180 20
         
30 120
         
64.7
         
90 100
         
45 30
         
45 100
         
59
      
]
      
[2   90 50
         
180 50
         
81.5
         
200 100
         
140
         
200 100
         
setY YCor-0.05
         
50 100
      
]]
   
end
   
   
be Line3 p c
      
setPenColor c
      
PenUp
      
setXYZ (p.1).1 0 -(p.1).2
      
PenDown
      
PolyStart
      
local "len
      
len=Norm p.2-p.1
      
setTexXY 0    1  setXYZ (p.1).1 3 -(p.1).2
      
setTexXY len/10 1  setXYZ (p.2).1 3 -(p.2).2
      
setTexXY len/10 0  setXYZ (p.2).1 0 -(p.2).2
      
setTexXY 0    0  setXYZ (p.1).1 0 -(p.1).2
      
PolyEnd
      
PenUp
   
end
   
   
be walls Lin c
      
case roadnr
      
[[1   run (list 
            
Lin [[-30 -230][ -30   90]] c
            
Lin [[-30   90][  30  150]] c
            
Lin [[-30 -230][  20 -150]] c
            
Lin [[-85    0][ -85  300]] c
            
Lin [[-30  -60][-150  -60]] c
            
Lin [[-150 -60][-150  110]] c
            
Lin [[-150 110][-200  140]] c
            
Lin [[-270 120][-200  140]] c
            
Lin [[-270 120][-270   40]] c
            
Lin [[-205  55][-300 -300]] c
            
Lin [[-260 -150][-110 -185]] c
            
Lin [[ -30 -230][-180 -220]] c
            
Lin [[  40  -50][  40   70]] c
            
Lin [[  40    0][ 400    0]] c
         
)
      
]
      
[2   run (list 
         
;   Lin [[-30 -240][ -30   90]] c
         
)
      
]]
   
end
   
   
be len
   
;   PenUp fd len*size setTexXY xCor/10 zCor/10 back len*size PenDown
      
texo=texy
      
texy=texy+len*size/10
      
local [p0 ori]
      
p0=PosXYZ ori=Orientation
      
left 90 fd width/right 90 
      
PenDown
      
PolyStart
      
setTexXY texy  fd len*size  right 90
      
setTexXY texy  fd width right 90
      
setTexXY texo  fd len*size  right 90
      
setTexXY texo  fd width right 90
      
PolyEnd
      
PenUp
      
setPosXYZ p0 setOrientation ori
      
fd len*size
   
end
   
   
be angle radius
      
arc2t angle radius*size
   
end
   
   
be angle radius
      
arc2t -angle -radius*size
   
end
   
   
be arc2t angle radius
      
local [w p0 p1 p2 p3 p4]
      
w=-width ;*signum radius
      
PenUp right 90 fd radius left 180
      
fd radius+w/p1=PosXYZ
      
back w p4=PosXYZ
      
back radius-w/2
      
for [phi angle/20 angle angle/20]
      
[   right angle/20
   
;      fd radius setTexXY xCor/10 zCor/10 back radius
         
texo=texy
         
texy=texy+abs (pi/180)*(angle/20)*radius/10
         
fd radius+w/p2=PosXYZ 
         
back w p3=PosXYZ
         
back radius-w/2
         
p0=PosXYZ ori=Orientation
         
SetPosXYZ p1
         
PenDown
         
PolyStart
         
setTexXY texo  setPosXYZ p1
         
setTexXY texy  setPosXYZ p2
         
setTexXY texy  setPosXYZ p3
         
setTexXY texo  setPosXYZ p4
         
PolyEnd
         
PenUp
         
setPosXYZ p0 setOrientation ori
         
p1=p2
         
p4=p3
      
]
      
pu fd radius rt 90 pd
   
end

   
be fly_around
      
local [eye realeye light center upvector eyepos eyeori]
      
center={0 0 0}
      
upvector={0 1 0}
      
eye=array 3
      
light=array 3
      
ang=3.6
      
flyspeed=0+1.0
      
dspeed=flyspeed/16
      
eyecenter=100
      
eyecenter2=eyecenter*2
      
speedmax=3
      
penUp
      
forward eyecenter
      
eye=Array PosXYZ
      
realeye=PosXYZ
      
lastrealeye=realeye
      
forward eyecenter
      
center=Array PosXYZ
      
back eyecenter
   
      
starttime=-1
      
speedgauge=(Gauge [] [Speed300 0 
         
wxGA_SMOOTH+wxGA_VERTICAL [0 0][400 30])
      
dispatchMessages
      
WXK_A=ASCII upperCase "A
      
WXK_Y=ASCII upperCase "Y
;      WindowOnChar maingraph [ignore readChar]
      
WindowOnKeyDown maingraph
      
[   k=KeyboardValue
         
case k
         
[   [WXK_RIGHT kright=true]
            
[WXK_LEFT  kleft =true]
            
[WXK_A     kup   =true]
            
[WXK_Y     kdown =true]
            
[WXK_ESCAPE running=false]
         
]
      
]
      
WindowOnKeyUp maingraph
      
[   k=KeyboardValue
         
case k
         
[   [WXK_RIGHT kright=false]
            
[WXK_LEFT  kleft =false]
            
[WXK_A     kup   =false]
            
[WXK_Y     kdown =false]
         
]
      
]
      
kright=false
      
kleft =false
      
kup   =false
      
kdown =false
      
inwall=false
      
inwater=false
      
ongrass=false
      
onramp=false
      
lastonramp=false
      
lastongrass=false
      
inair=false
      
local [running]
      
running=true
      
while [running]
      
[   setEye eye center upvector
         
setLightPos {0 1000 0}
         
eyepos=PosXYZ
         
eyeori=Orientation
   
         
redraw
         
updateGraph
         
         
setPosXYZ eyepos
         
setOrientation eyeori      
         
fd 1
         
eyevec=PosXYZ-eyepos
         
back 1
         
back eyecenter2
         
dispatchMessages
         
if not inair
         
[   if kright 
            
[   ifelse ongrass
               
[   right ang/2
               
][   right ang
               
]
            
]
            
if kleft  
            
[   ifelse ongrass
               
[   left ang/2
               
][   left ang
               
]
            
]
            
if kup    
            
[   if flyspeed speedmax
               
[   flyspeed+=dspeed
                  
GaugeSetValue speedgauge Int flyspeed*300/speedmax
               
]
            
]
            
if kdown
            
[   if flyspeed 0
               
[   flyspeed-=dspeed
                  
GaugeSetValue speedgauge Int flyspeed*300/speedmax
               
]
            
]
         
]
;comment [
         
GraphSetCurrent roadgraph
         
setXY realeye.1 -realeye.3
         
setHeading arcTan -eyevec.3 eyevec.1   ;eyeori.3
         
updateGraph
         
p0=PosXYZ
         
lastinwall=inwall
         
inwall=false
         
lastongrass=ongrass
         
ongrass=false
         
hideTurtle
         
if not inair
         
[   for [1 10]
            
[   forward flyspeed/10
               
c=Pixel
               
if c==red 
               
[   inwall=true 
                  
break
               
]
               
if c==red2 
               
[   inwater=true 
                  
break
               
]
               
if c==white
               
[   ongrass=true
               
]
               
rgbc=reRGB c
               
redpart=rgbc.1
               
greenpart=rgbc.2
               
bluepart=rgbc.3
               
ifelse (redpart==0and2 (greenpart==0)
               
[   ifelse bluepart>0.9
                  
[   onramp=true
                  
][   if (not onrampand2 not inair
                     
[
                        
inwall=true
                        
break
                     
]
                  
]
               
][   onramp=false
               
]
            
]
         
]
         
setPosXYZ p0
         
showTurtle
;]
         
GraphSetCurrent maingraph
         
ifelse onramp and2 not lastonramp
         
[   lastonramp=true
            
up rampAngle
         
][   if (not onrampand2 lastonramp
            
[   lastonramp=false
               
inair=true
               
down rampAngle
            
]
         
]
         
if inwater and2 not inair
         
[   MidiAllSoundsOff
            
MidiNoteOn 3 50 127
            
waitMS 3000
            
MidiNoteOff 3 50 127
            
running=false
         
]
         
ifelse inwall
         
[   if not lastinwall
            
[   MidiNoteOn 0 50 127
               
waitMS 300
               
MidiNoteOff 0 50 127
            
]
         
][   ifelse ongrass
            
[   forward flyspeed/2
            
][   forward flyspeed
            
]
         
]
         
if inair
         
[   down 0.95
            
if YCor 5
            
[   inair=false
   
;(pr rgbc [!inair] onramp inair)
               
setY 5
               
head=Heading
               
setOrientation (list -90 head)
            
]
         
]
         
lastrealeye=realeye
         
realeye=PosXYZ
         
forward eyecenter2
         
eye=Array PosXYZ
         
forward eyecenter
         
center=Array PosXYZ
         
back eyecenter
         
up 90  fd 1  
         
upvector=(Array PosXYZ)-eye
         
upvector/=Norm upvector
         
bk down 90
         
         
if realeye.1 > -2*width and2 realeye.1 2*width
         
and2 realeye.3 and2 lastrealeye.3 0
         
[   ifelse starttime 0
            
[   starttime=timefine
            
][   roundtime=timefine-starttime
               
ifelse roundtime besttime
               
[   ignore MessageBox (Sentence [Best round:roundtime [sec.])
                  
besttime=roundtime
               
][   ignore MessageBox (Sentence [This round:roundtime [sec.]
                     
[best was:besttime [sec.])
               
]
               
starttime=timefine
            
]
         
]
         
motorsound
      
]
   
      
be motorsound
         
local [note npitch]
         
note=40+4*Int 12*flyspeed/speedmax/4
         
npitch=127+Int 127*(mod 12*flyspeed/speedmax 4)/4
         
if note != motornote
         
[   MidiNoteOff motornote 127
            
MidiNoteOn note 16
            
motornote=note
         
]
         
MidiMessage (list 224+1  0  npitch)
         
         
if ongrass and2 not lastongrass
         
[   MidiNoteOn 2 40 64
         
]
         
if (not ongrassand2 lastongrass
         
[   MidiNoteOff 2 40 64
         
]
      
end
   
end
end