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 />

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

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

Saved successfully!

Ooh no, something went wrong!