Hands On DarkBASIC Pro - Digital Skills
Hands On DarkBASIC Pro - Digital Skills
Hands On DarkBASIC Pro - Digital Skills
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
LISTING-32.15<br />
(continued)<br />
Drawing the Castle<br />
REM *** Second turret ***<br />
MAKE OBJECT CYLINDER turret2,200<br />
SCALE OBJECT turret2,40,100,40<br />
MAKE OBJECT CONE turretroof2,81<br />
REM *** Texture turret ***<br />
TEXTURE OBJECT turret2,wall<br />
SCALE OBJECT TEXTURE turret2,10,10<br />
TEXTURE OBJECT turretroof2,roofing<br />
SCALE OBJECT TEXTURE turretroof2,5,10<br />
REM *** Position turret ***<br />
POSITION OBJECT turret2, 475,100,970<br />
POSITION OBJECT turretroof2,475,240,970<br />
REM *** Third turret ***<br />
MAKE OBJECT CYLINDER turret3,200<br />
SCALE OBJECT turret3,40,100,40<br />
MAKE OBJECT CONE turretroof3,81<br />
REM *** Texture turret ***<br />
TEXTURE OBJECT turret3,wall<br />
SCALE OBJECT TEXTURE turret3,10,10<br />
TEXTURE OBJECT turretroof3,roofing<br />
SCALE OBJECT TEXTURE turretroof3,5,10<br />
REM *** Position turret ***<br />
POSITION OBJECT turret3, -25,100,725<br />
POSITION OBJECT turretroof3,-25,240,725<br />
REM *** Fourth turret ***<br />
MAKE OBJECT CYLINDER turret4,200<br />
SCALE OBJECT turret4,40,100,40<br />
MAKE OBJECT CONE turretroof4,81<br />
REM *** Texture turret ***<br />
TEXTURE OBJECT turret4,wall<br />
SCALE OBJECT TEXTURE turret4,10,10<br />
TEXTURE OBJECT turretroof4,roofing<br />
SCALE OBJECT TEXTURE turretroof4,5,10<br />
REM *** Position turret ***<br />
POSITION OBJECT turret4, 475,100,725<br />
POSITION OBJECT turretroof4,475,240,725<br />
ENDFUNCTION<br />
FUNCTION DrawRoofAndCeiling()<br />
REM *** Create main roof ***<br />
MAKE OBJECT PLAIN roof1,550,300<br />
REM *** Texture main roof ***<br />
TEXTURE OBJECT roof1,roofing<br />
SCALE OBJECT TEXTURE roof1,50,10<br />
REM *** Position roof ***<br />
XROTATE OBJECT roof1, -90<br />
POSITION OBJECT roof1,225,100,850<br />
REM *** Create ceiling ***<br />
MAKE OBJECT PLAIN ceiling,550,300<br />
REM *** Texture ceiling ***<br />
TEXTURE OBJECT ceiling,cover<br />
SCALE OBJECT TEXTURE ceiling,5,2<br />
REM *** Position ceiling ***<br />
XROTATE OBJECT ceiling, -90<br />
POSITION OBJECT ceiling,225,99,850<br />
ENDFUNCTION<br />
FUNCTION DrawInternalColumns()<br />
RANDOMIZE TIMER()<br />
FOR col = column TO column + 80<br />
MAKE OBJECT BOX col,20,99.8,20<br />
TEXTURE OBJECT col,wall<br />
SCALE OBJECT TEXTURE col,5,30<br />
POSITION OBJECT col,RND(515)-20,49.95, RND(270)+710<br />
NEXT col<br />
ENDFUNCTION<br />
continued on next page<br />
826 <strong>DarkBASIC</strong> <strong>Pro</strong>: Texturing