PureBoard

Code: Alles auswählen

InitSprite()
InitMouse()
InitKeyboard()

ww=1024
wh=768
;OpenWindowedScreen(OpenWindow(0,0,0,ww,wh,"..", #PB_Window_BorderLess|#PB_Window_ScreenCentered), 0,0,ww,wh,0,0,0)
OpenScreen(1024,768,32,"fllscrn")

sprw=300
sprh=300
spr=CreateSprite(#PB_Any, sprw,sprh)
StartDrawing(SpriteOutput(spr)) :: DrawingMode(#PB_2DDrawing_Outlined|#PB_2DDrawing_Transparent)
  For i=0 To 200
    Circle(Random(sprw),Random(sprh),Random(32),Random($ffffff))
  Next
  Box(0,0,8,8,$0000ff)
StopDrawing()

rx1 = 300
ry1 = 250
rx2 = rx1+450
ry2 = ry1+150


Repeat
  ems=ElapsedMilliseconds()
  If timer < ems
    timer=ems+300
    fps$=Str(fps)
  EndIf
  ExamineMouse()
  mx=MouseX()
  my=MouseY()
  
  ; get left clipping border
  If mx<rx1
    x=rx1-mx
  Else
    x=0
  EndIf
  
  ; get top clipping border
  If my<ry1
    y=ry1-my
  Else
    y=0
  EndIf
  
  ; get right clipping border
  If mx<rx2
    If mx>rx1
      w=rx2-mx
    Else
      w=rx2-rx1
    EndIf
  Else
    w=0
  EndIf
  
  ; get left clipping border
  If my<ry2
    If my>ry1
      h=ry2-my
    Else
      h=ry2-ry1
    EndIf
  Else
    h=0
  EndIf
  
  ClipSprite(spr,x,y,w,h)
  
  
  ExamineKeyboard()
  StartDrawing( ScreenOutput() )
    DrawingMode(#PB_2DDrawing_Outlined|#PB_2DDrawing_Transparent)
    Circle(mx,my,10,$00aa00)
    Box(mx,my,sprw,sprh)
    Box(rx1,ry1,rx2-rx1,ry2-ry1)
  StopDrawing()
  DisplayTransparentSprite(spr, mx+x, my+y)
  FlipBuffers()
  ClearScreen($333333)
  ;Delay(10)
Until KeyboardPushed(#PB_Key_Escape) Or (IsWindow(0) And WindowEvent()=#PB_Event_CloseWindow)

Code: Alles auswählen

#CameraSpeed = 10

#MainWindow = 0
#CloseButton = 0

Define.f KeyX, KeyY, MouseX, MouseY

If InitEngine3D()
  
  Add3DArchive("Data/", #PB_3DArchive_FileSystem)
  Add3DArchive("GUI/", #PB_3DArchive_FileSystem)
  Add3DArchive("Data/skybox.zip", #PB_3DArchive_Zip)
  
  
  InitSprite()
  InitKeyboard()
  InitMouse()
  
  If OpenWindow(0,0,0,800,600,"3D GUI-Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    
    If OpenWindowedScreen(WindowID(0),0,0,800, 600, 0,0,0)
      
      SkyBox("desert07.jpg")
      
      CreateCamera(0, 0, 0, 100, 100)  ; Front camera
      CameraLocate(0,0,100,100)
      
      
      OpenWindow3D(#MainWindow, 100, 100, 300, 300, "Hello in 3D !")
      
      ButtonGadget3D(#CloseButton, 10, 260, 120, 25, "Close")
      
      ShowGUI(128, 1) ; Display the GUI, semi-transparent and display the mouse cursor
      
      Repeat
        Event = WindowEvent()
        
        If ExamineKeyboard()
          Input$ = KeyboardInkey()
        EndIf
        
        If ExamineMouse()
          MouseX = -(MouseDeltaX()/10)*#CameraSpeed
          MouseY = -(MouseDeltaY()/10)*#CameraSpeed
          
          InputEvent3D(MouseX(), MouseY(), MouseButton(#PB_MouseButton_Left), Input$)
        EndIf
        
        ; Handle the GUI 3D events, it's similar to regular GUI events
        ;
        Repeat
          Event = WindowEvent3D()
          
          Select Event
            Case #PB_Event3D_Gadget
              If EventGadget3D() = #CloseButton
                CloseWindow3D(#MainWindow)
              EndIf
              
          EndSelect
        Until Event = 0
        
        RenderWorld()
        
        FlipBuffers()
      Until KeyboardPushed(#PB_Key_Escape) Or Quit = 1
    EndIf
    
  Else
    MessageRequester("Error", "The 3D Engine can't be initialized",0)
  EndIf
EndIf