Const ScreenX = 800
Const ScreenY = 600

Global FPSSEC = MilliSecs(), FPS, FRAMES
Graphics3D ScreenX,ScreenY,16,2

SetBuffer BackBuffer()



camera=CreateCamera()
Licht=CreateLight()
RotateEntity Licht,90,0,0

SetBuffer BackBuffer()
s1% = create_slider(0,360,10,100,"Rot. Y",0)
s2% = create_slider(-50,50,10,150,"Rot. Z ",0)
s3% = create_slider(-180,180,10,200,"Rot x",0)
s4% = create_slider(0,1,10,250,"Scale",0.5)
s5% = create_slider(0,1,10,300,"Alpha 4",0.5)
;Syntax zur Slider Erstellung
;hnd =  create_slider(min_wert,max_wert,x-pos,ypo,beschriftung,Defaultwert)

cube = CreateCube()
PositionEntity cube,0,0,5
While Not KeyDown( 1 )

   WireFrame 1      
   UpdateWorld
   RenderWorld
   
   If MouseDown(1)
      slide(getslider(), MouseX())
   EndIf

   ;Auslesen von werten mit slider_value (hnd von slider)
   RotateEntity cube,slider_Value(s3),slider_Value(s1),slider_Value(s2)
   ScaleEntity cube,slider_Value(s4),slider_Value(s4) ,slider_Value(s4)
   EntityAlpha cube,slider_Value(s5)

   ;Alle Slider Anzeigen
   show_Elements()
   
   Text 0,0,"FPS :"+ FPS(1)
   Text 0,20, "3D Gui / Slider Demo by bob"
   Flip 0
Wend
End

Function FPS(MODE)
If MODE = 1 Then
   FRAMES = FRAMES + 1
   If MilliSecs() - FPSSEC => 1000 Then
      FPS = FRAMES
      FRAMES = 0
      FPSSEC = MilliSecs()
   EndIf
EndIf
Return FPS
End Function



;Slider GUI Element ------------------------------------------------------
Type Slider
   Field hnd            ;Handle des IMAGE
   Field x,y,w,h         ;Position und Größe
   Field min#,max#         ;Wertbereich min / Max
   Field wert#            ;Aktueller Wert
   Field Cap$            ;Beschriftung
   Field bt_pos         ;Position des Schiebers
End Type


;Crate------------------------------------------------------------------
Function Create_Slider(Min,Max,x,y,cap$,wert#=0)
   s.slider = New slider
   s\x = x
   s\y = y
   s\cap = cap   
   s\w = 107
   s\h = 25
   s\min = min
   s\max = max
   s\wert = wert
   s\bt_pos =0
   s\hnd = CreateImage(s\w,s\h)

   ;Default Wert und Position des Bt_sliders
   x=s\x + (s\wert *100)
   hnd =Handle(s)
   Slide(hnd,x)
   Draw_SliderRect(s.slider)
   Return Handle(s)
End Function


;Liefert den Handle des SSliders über dem die Maus grade ist -------------------
Function getSlider%()
   x = MouseX()
   y = MouseY()
   For s.slider = Each  slider
      wert =RectsOverlap(x-1, y-1, 2, 2, s\x, s\y, s\w, s\h)
      DebugLog wert
      If wert <> 0 Then
         hnd = Handle(s)
            Return hnd
      EndIf
   Next
End Function


;Bewegt den Sliderbutton und errechnet den aktuellen wert
Function Slide(hnd,x)
   DebugLog "hnd "+hnd
   If hnd = 0 Then
      Return
   EndIf
   s.slider = Object.slider(hnd)
   
   ;Position des Buttons
   x = x- s\x
   If x < 0   x = 0
   If x > 100 x = 100
   s\bt_pos = x   
   bereich#  = Abs(s\min - s\max)
   stepsize# = bereich / 100
   s\wert = stepsize * x
   s\wert = s\wert  -Abs(s\min)
   draw_sliderRect(s.slider)

End Function


;Bringt einen Slider (hnd) auf den Schirm   -----------------------------------------------------------
Function Draw_SliderRect(s.slider)
   SetBuffer ImageBuffer(s\hnd)
   Cls
   Color 255,0,0
   Rect 0,15,107,10,0         ;Begrenzung
   Rect s\bt_pos,17,6,6         ;Slider button
   Text 0,0, s\Cap            ;Caption
   Color 0,255,0
   Text 70,0,s\wert         ;Wert
   SetBuffer BackBuffer()
End Function


;Liefert den Wert eines Sliders   -----------------------------------------------------------
Function slider_value#(hnd)
s.slider = Object.slider(hnd)
Return s\wert

End Function

;Zeigt alle Slider an ----------------------------------------------------------------

Function show_elements()
   For s.slider =  Each slider
      DrawImage s\hnd, s\x,s\y
   Next
End Function

Repeat
  If werter = 0 Then Exit
  texter = texta + 1
  For one = 1 To 100
    Select texter
    Case one
    da$ = "0." + texter
    de = WriteFile("nichts.txt")
    WriteLine de, texter
    ChannelVolume kanal, da$
    SetGadgetText label, texter + "%"
  End Select
Forever