Dark Basic Newsletter: Issue 7
rem by Greg B VE6VGB J2003
rem you may reproduce this code in a online magazine :)
make camera 1
set camera view 1,0,0,screen width(),screen height()
set current camera 1
autocam off
make object plain 13,50,50
position object 13,-200,146,305
lock object on 13
make object cube 1,1
make object sphere 2,-2000
color backdrop 1,rgb(100,100,0)
load image "misc38.bmp",1
texture object 2,1
position object 1,0,0,8
position object 2,0,0,100
color object 1,rgb(255,0,0)
rem set object ambient 1,0
set ambient light 50
backdrop on 0
do
inc a
if a>360 then a=1
yrotate object 1,a
xrotate object 2,a
if inkey$()="p"
position camera 0,camera position x(1),camera position y(1),camera position z(1)
point camera 0,object position x(2),object position y(2),object position z(2)
set camera to image 0,13,64,64
texture object 13,13
endif
if inkey$()="m" then color light 0,rgb(255,100,100)
loop
wait key
easy fix
