13.01.2013 Views

Hands On DarkBASIC Pro - Digital Skills

Hands On DarkBASIC Pro - Digital Skills

Hands On DarkBASIC Pro - Digital Skills

SHOW MORE
SHOW LESS

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

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!