; German forum: http://www.purebasic.fr/german/archive/viewtopic.php?t=5242&highlight=
; Author: dllfreak2001 (updated for PB 4.00 by Andre)
; Date: 04. August 2004
; OS: Windows
; Demo: Yes


; Problem: trotz erfolgreich geladenem Sprite ist dies nirgends zu sehen!


InitSprite()
InitSprite3D()
InitKeyboard()

OpenScreen(800,600,32,"hallo")

LoadSprite(0,"rotate.bmp",#PB_Sprite_Texture)
CreateSprite3D(0,0)
Global x1.w
Global x2.w
Global x3.w
Global x4.w
Global y1.w
Global y2.w
Global y3.w
Global y4.w
Global z1.w
Global z2.w
Global z3.w
Global z4.w

Repeat
  ExamineKeyboard()

  If KeyboardPushed(#PB_Key_Left)
    x1 = x1 -1
    x2 = x2 +1
    If KeyboardPushed(#PB_Key_K)= 0
      x3 = x3 +1
      x4 = x4 -1
    EndIf
  EndIf

  If KeyboardPushed(#PB_Key_Right)
    x1 = x1 +1
    x2 = x2 -1
    If KeyboardPushed(#PB_Key_K)= 0
      x3 = x3 -1
      x4 = x4 +1
    EndIf
  EndIf

  If KeyboardPushed(#PB_Key_Up)
    y1 = y1 -1
    y2 = y2 -1
    If KeyboardPushed(#PB_Key_K)= 0
      y3 = y3 +1
      y4 = y4 +1
    EndIf
  EndIf

  If KeyboardPushed(#PB_Key_Down)
    y1 = y1 +1
    y2 = y2 +1
    If KeyboardPushed(#PB_Key_K)= 0
      y3 = y3 -1
      y4 = y4 -1
    EndIf
  EndIf

  If KeyboardPushed(#PB_Key_A)
    z1 = z1 -1
    z2 = z2 +1
    If KeyboardPushed(#PB_Key_K)= 0
      z3 = z3 +1
      z4 = z4 -1
    EndIf
  EndIf

  If KeyboardPushed(#PB_Key_Y)
    z1 = z1 +1
    z2 = z2 -1
    If KeyboardPushed(#PB_Key_K)= 0
      z3 = z3 -1
      z4 = z4 +1
    EndIf
  EndIf

  Start3D()
  TransformSprite3D(0,x1+512,y1+384,z1,x2+512,y2+384,z2,x3+512,y3+384,z3,x4+512,y4+384,z4)
  DisplaySprite3D(0,0,0,255)
  Stop3D()

  StartDrawing(ScreenOutput())
  DrawText(  0, 0, " x1=" + Str(x1))
  DrawText( 50, 0, " x2=" + Str(x2))
  DrawText(100, 0, " x3=" + Str(x3))
  DrawText(150, 0, " x4=" + Str(x4))
  ;Locate(0,16)
  DrawText(  0, 16, " y1=" + Str(y1))
  DrawText( 50, 16, " y2=" + Str(y2))
  DrawText(100, 16, " y3=" + Str(y3))
  DrawText(150, 16, " y4=" + Str(y4))

  ;Locate(0,32)
  DrawText(  0, 32, " z1=" + Str(z1))
  DrawText( 50, 32, " z2=" + Str(z2))
  DrawText(100, 32, " z3=" + Str(z3))
  DrawText(150, 32, " z4=" + Str(z4))
  StopDrawing()

  FlipBuffers()
  ClearScreen(RGB(0,0,0))

Until KeyboardPushed(#PB_Key_Escape)

CloseScreen()
End

; IDE Options = PureBasic v4.02 (Windows - x86)
; Folding = -