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 />
FUNCTION DrawGrounds()<br />
REM *** Create lawn ***<br />
MAKE OBJECT PLAIN lawn, 500,700<br />
TEXTURE OBJECT lawn, grass<br />
SCALE OBJECT TEXTURE lawn, 100,100<br />
XROTATE OBJECT lawn,-90<br />
POSITION OBJECT lawn,250,0,350<br />
SET DETAIL MAPPING ON lawn,transport<br />
REM *** Create approach road ***<br />
MAKE OBJECT PLAIN approach, 50,700<br />
TEXTURE OBJECT approach,road<br />
SCALE OBJECT TEXTURE approach,8,50<br />
XROTATE OBJECT approach,-90<br />
POSITION OBJECT approach, -25,0,350<br />
REM *** Create castle floor ***<br />
MAKE OBJECT PLAIN floor1, 550,300<br />
TEXTURE OBJECT floor1, flooring<br />
SCALE OBJECT TEXTURE floor1,100,100<br />
XROTATE OBJECT floor1,-90<br />
POSITION OBJECT floor1,225,0,850<br />
DrawTrees()<br />
ENDFUNCTION<br />
FUNCTION DrawExternalWalls()<br />
REM *** Create front wall ***<br />
MAKE OBJECT PLAIN frontwall,550,100<br />
TEXTURE OBJECT frontwall,wall<br />
SCALE OBJECT TEXTURE frontwall,30,6<br />
POSITION OBJECT frontwall, 225,50,700<br />
REM *** Create back wall ***<br />
MAKE OBJECT PLAIN backwall,550,100<br />
TEXTURE OBJECT backwall,wall<br />
SCALE OBJECT TEXTURE backwall,50,10<br />
POSITION OBJECT backwall, 225,50,1000<br />
REM *** Create left wall ***<br />
MAKE OBJECT PLAIN leftwall,300,100<br />
TEXTURE OBJECT leftwall,wall<br />
SCALE OBJECT TEXTURE leftwall,30,10<br />
YROTATE OBJECT leftwall, -90<br />
POSITION OBJECT leftwall,-50,50,850<br />
REM *** Create right wall ***<br />
MAKE OBJECT PLAIN rightwall,300,100<br />
TEXTURE OBJECT rightwall,wall<br />
SCALE OBJECT TEXTURE rightwall,30,10<br />
YROTATE OBJECT rightwall,90<br />
POSITION OBJECT rightwall,500,50,850<br />
ENDFUNCTION<br />
FUNCTION DrawTurrets()<br />
REM *** Create first turret ***<br />
MAKE OBJECT CYLINDER turret1,200<br />
SCALE OBJECT turret1,40,100,40<br />
MAKE OBJECT CONE turretroof1,81<br />
REM *** Texture turret ***<br />
TEXTURE OBJECT turret1,wall<br />
SCALE OBJECT TEXTURE turret1,10,10<br />
TEXTURE OBJECT turretroof1,roofing<br />
SCALE OBJECT TEXTURE turretroof1,5,10<br />
REM *** Position turret ***<br />
POSITION OBJECT turret1, -25,100,970<br />
POSITION OBJECT turretroof1,-25,240,970<br />
continued on next page<br />
<strong>DarkBASIC</strong> <strong>Pro</strong>: Texturing 825