Hands On DarkBASIC Pro - Digital Skills

Solutions
Activity 31.1
No solution required.
Activity 31.2
1.
REM *** Set display and backdrop ***
SET DISPLAY MODE 1280,1024,32
COLOR BACKDROP 0
BACKDROP ON
REM *** Make the sphere ***
MAKE OBJECT SPHERE 1,10
REM *** End program ***
WAIT KEY
END
2.
REM *** Set display and backdrop ***
SET DISPLAY MODE 1280,1024,32
COLOR BACKDROP 0
BACKDROP ON
REM *** Make the sphere ***
MAKE OBJECT SPHERE 1,10,40,40
REM *** End program ***
WAIT KEY
END
Activity 31.3
1.
REM *** Set display and backdrop ***
SET DISPLAY MODE 1280,1024,32
COLOR BACKDROP 0
BACKDROP ON
REM *** Make the cylinder ***
MAKE OBJECT CYLINDER 1,5
REM *** End program ***
WAIT KEY
END
2.
REM *** Set display and backdrop ***
SET DISPLAY MODE 1280,1024,32
COLOR BACKDROP 0
BACKDROP ON
REM *** Make the cone ***
MAKE OBJECT CONE 1,5
REM *** End program ***
WAIT KEY
END
Activity 31.4
REM *** Set display & backdrop ***
SET DISPLAY MODE 1280,1024,32
COLOR BACKDROP 0
BACKDROP ON
REM *** Make the cube ***
MAKE OBJECT CUBE 1, 10
REM *** Cube to (50,0,0) after key
press ***
WAIT KEY
POSITION OBJECT 1,9,0,0
REM *** Move the cube backwards ***
WAIT KEY
POSITION OBJECT 1, 9,0,30
REM *** End program ***
WAIT KEY
END
Activity 31.5
REM *** Set display & backdrop ***
SET DISPLAY MODE 1280,1024,32
COLOR BACKDROP 0
BACKDROP ON
REM *** Make the set of objects ***
MAKE OBJECT CUBE 1,4
MAKE OBJECT BOX 2,10,15,5
MAKE OBJECT SPHERE 3,7
MAKE OBJECT CYLINDER 4,12
MAKE OBJECT CONE 5,12
REM *** Cube to (9,0,0) after key
press ***
WAIT KEY
POSITION OBJECT 1,9,0,0
REM *** Box to (-60,0,100) ***
WAIT KEY
POSITION OBJECT 2,-60,0,100
REM *** Sphere to (-30,-40,50) ***
WAIT KEY
POSITION OBJECT 3,-30,-40,50
REM *** Cylinder to (25,0,120) ***
WAIT KEY
POSITION OBJECT 4,25,0,120
REM *** Cone to (0,25,100) ***
WAIT KEY
POSITION OBJECT 5,0,25,100
REM *** End program ***
WAIT KEY
END
Activity 31.6
REM *** Set display & backdrop ***
SET DISPLAY MODE 1280,1024,32
COLOR BACKDROP 0
BACKDROP ON
REM *** Make the set of objects ***
MAKE OBJECT CUBE 1,10
REM *** Cube to(9,0,100) after key
press ***
WAIT KEY
POSITION OBJECT 1,9,0,100
REM *** Cube 31.3 units to the right
***
WAIT KEY
MOVE OBJECT RIGHT 1, 31.3
REM *** End program ***
WAIT KEY
END
Activity 31.7
Version 1
REM *** Set display & backdrop
SET DISPLAY MODE 1280,1024,32
COLOR BACKDROP 0
BACKDROP ON
REM *** Make the set of objects ***
MAKE OBJECT CUBE 1,40
REM ***Cube to(0,0,100) after key
press ***
POSITION OBJECT 1,0,0,100
REM *** Rotate cube ***
FOR degree = 1 TO 360
XROTATE OBJECT 1, degree
WAIT 1
NEXT degree
REM *** End program ***
WAIT KEY
END
792 DarkBASIC Pro: 3D Primitives