REM DarkBasic-Beispiel

set display mode 640,480,16
sync rate 0
sync on 
color backdrop rgb(0,0,32)
 
REM erstes Objekt erzeugen 
make object sphere 1,250
set object 1,0,1,0,1,0,0,1
position object 1,0,0,0
color object 1,rgb(255,255,0)

REM Bild laden fr Texturierung 
load bitmap "test1.bmp",1
get image 1,0,0,256,256
delete bitmap 1

REM zweites Objekt erzeugen und texturieren
make object sphere 2,200
set object 2,1,1,0,1,1,0,1
texture object 2,1
angle=0
position object 2,500*sin(angle),0,500*cos(angle)

REM 15% ambientes, 100% Punktlicht 
set ambient light 15
make light 1
set point light 1,0,0,0
color light 1,255,255,255

position camera 0,150,-1000

REM Beginn der Hauptschleife 
while mouseclick()=0
 REM Bildrate anzeigen  
 set cursor 0,0
 print screen fps()

 REM zweites Objekt kreisen lassen 
 angle=wrapvalue(angle+1)
 position object 2,500*sin(angle),0,500*cos(angle)

 REM Eigenrotation mit Cursor-Tasten steuern 
 angle#=object angle y(2)
 if leftkey()=1 then angle#=wrapvalue(angle#-2)
 if rightkey()=1 then angle#=wrapvalue(angle#+2)
 yrotate object 2,angle#

 REM das gesamte Bild darstellen 
 sync

REM Ende der Hauptschleife 
endwhile

REM Objekte aus dem Speicher lschen 
delete object 1
delete object 2
end

