sample-バンプマッピング - DarkBASIC Professional日本語版@Wiki

2chにも張ったけど、こちらにも残します。
メディアを使っているのでソースだけぢゃ動かないよ。
ソース＆メディア

rem Init&light

  lightr as float
  sync on:sync rate 60
  set point light 0,0,0,0
  set light range 0,100

rem CAMERA

  make camera 1
  set current camera 1
  color backdrop 1,rgb(255,255,255)

rem make objects

  make object sphere 1,100,32,32
  load image "cubetexture.tga",1,1
  load image "cubebump.tga",2,0
  texture object 1,1
  scale object texture 1,2,2
  set bump mapping on 1,2
  set object light 1,1
  position object 1,0,0,0

rem main
do

  fps$="Bump Example Fps: "+str$(screen fps())
  ink 0,0

　　text screen width()-20-text width(fps$),screen height()-40,fps$

  lightr=lightr+0.5
  zrotate object 1,lightr
  xrotate object 1,lightr
  position light 0,sin(lightr)*120,120,cos(lightr)*120
  if lightr=360 then lightr=0
  position camera -120,120,120
  point camera 0,0,0

sync
loop