example radar
new version.
REM Project: HUD_RADAR
REM Created: 16.09.2018 23:06:17
REM
REM ***** Main Source File *****
REM
#INCLUDE "compass.dba"
sync on
sync rate 30
SET DISPLAY MODE 1024, 768, 32
SET WINDOW OFF
make object box 10,10,10,10
load_compass()
load_tactical_radar()
load_test_objects()
do
move_test_objects()
paste_tactical_radar()
control camera using arrowkeys 0,1,1
paste_compass()
sync
loop
function load_compass()
load image "media\compass\compass.png",1
load image "media\compass\pointer.png",2
make object box 1,2,2,0.01
make object box 2,0.14,0.7,0.01
position camera 0,0,0
point camera 0,0,-100
position object 1,-0.01,-0.02,-10
position object 2 ,0,0,-5
texture object 1,1
texture object 2,2
SET OBJECT TRANSPARENCY 1,1
SET OBJECT TRANSPARENCY 2,1
SET OBJECT LIGHT 2,0
SET OBJECT LIGHT 1,0
ENABLE OBJECT ZBIAS 1,1,0
ENABLE OBJECT ZBIAS 2,1,0
endfunction
function paste_compass()
position object 1,camera position x(),camera position y(),camera position z()
position object 2 ,camera position x(),camera position y(),camera position z()
move camera 10
POINT OBJECT 1, camera position x(),camera position y(),camera position z()
POINT OBJECT 2, camera position x(),camera position y(),camera position z()
move camera -10
move object 1,10
move object 2,9
pitch object up 1,90
move object 1,5
pitch object up 1,-90
pitch object up 2,90
move object 2,4.52
pitch object up 2,-90
turn object left 1,90
turn object left 2,90
move object 1,7
move object 2,6.3
turn object left 1,90
turn object left 2,90
ROLL OBJECT LEFT 2,-CAMERA ANGLE Y()-180
endfunction
function load_tactical_radar()
rem make target reder
make object box 3,10,10,10
hide object 3
endfunction
function paste_tactical_radar()
move camera 0,10
position object 3,camera position x(),camera position y(),camera position z()
move camera 0,-10
point camera 0,object position x(21),object position y(21),object position z(21)
y1#=camera angle y()
point camera 0,object position x(20),object position y(20),object position z(20)
y2#=camera angle y()
point camera 0,object position x(3),object position y(3),object position z(3)
y0#=camera angle y()
y01#=y1#-y0#
y02#=y2#-y0#
if y02#<-180 then y02#=y02#+360
if y02#>180 then y02#=y02#-360
if y01#<-180 then y01#=y01#+360
if y01#>180 then y01#=y01#-360
set cursor 100,100
print y01#
print y02#
INK RGB(255,0,0),RGB(0,0,0)
LINE 1024/2+y01#,700,1024/2+y01#,750
LINE 1024/2+y02#,700,1024/2+y02#,750
INK RGB(255,255,0),RGB(0,0,0)
LINE 1024/2+1,700,1024/2+1,750
LINE 1024/2-1,700,1024/2-1,750
endfunction
function load_test_objects()
make object box 20,10,10,10
position object 20,100,0,100
make object box 21,10,10,10
position object 21,200,0,200
endfunction
function move_test_objects()
move object 21,10
turn object left 21,1
endfunction