PureBasic Forums - English

Code: Select all

Procedure RenderScreen()
	Define.l s = ScreenOutput()
	
	RenderWorld()

	ClearScreen(0)	
	StartDrawing(s) ; error
	DrawText(15, 15, "Test", RGB(0, 250, 250))
	StopDrawing()

	FlipBuffers()

EndProcedure

Code: Select all

EnableExplicit

Define.i Event,Exit

InitEngine3D()
InitSprite()
InitKeyboard()


OpenWindow(0,0,0,800,600,"hello",#PB_Window_SystemMenu)
OpenWindowedScreen(WindowID(0),0,0,800,600)
CreateCamera(0,0,0,800,600)

CreateSprite(0,60,20)
CreateSprite(1,ScreenWidth(),20)
StartDrawing(SpriteOutput(0))
DrawingMode(#PB_2DDrawing_Transparent)
DrawText(0, 0, "Test")
StopDrawing()


;- Main loop
Repeat
  ;- All 3D commands must be placed before RenderWorld()!
  ;
  
  RenderWorld()
  ;All 2D commands to be placed AFTER RenderWorld()
  ;
  DisplayTransparentSprite(0,0,0,255,RGB(Random(255),Random(255),Random(255)))
  DisplayTransparentSprite(0,Random(ScreenWidth()),Random(ScreenHeight()),255,RGB(Random(255),Random(255),Random(255)))
  DisplayTransparentSprite(1,0,ScreenHeight()-SpriteHeight(1),255,RGB(Random(255),Random(255),Random(255)))
  StartDrawing(SpriteOutput(1))
  DrawingMode(#PB_2DDrawing_Transparent)
  DrawText(0, 0, "Mary had a little lamb, she tied it to a pylon.  40000 volts shot up its ass and turned its wool to nylon")
  StopDrawing()
  ;} 
  
  ;{ Event loop
  ;- Event loop
  ; We check the events until ALL are processed.
  ; this is very important!
  ;
  
  Repeat
    
    Event=WindowEvent()
    
    Select Event
        
      Case #PB_Event_CloseWindow
        Exit=#True
        
    EndSelect
    
  Until Event=#False
  ;} 
  
  ;{ Check Keyboard
  ;-Check Keyboard
  ;
  If ExamineKeyboard()
    If KeyboardReleased(#PB_Key_Escape)
      Exit=#True
    EndIf
  EndIf
  ;}   
  
  
  FlipBuffers()
  CameraBackColor(0,$000000)
  
Until Exit=#True

End

Code: Select all

EnableExplicit

Define.i Event,Exit

InitEngine3D()
InitSprite()
InitKeyboard()


OpenWindow(0,0,0,800,600,"hello",#PB_Window_SystemMenu)
OpenWindowedScreen(WindowID(0),0,0,800,600)
CreateCamera(0,0,0,800,600)


CreateSprite(1,ScreenWidth(),20)

;- Main loop
Repeat
  ;- All 3D commands must be placed before RenderWorld()!
  ;
  
  RenderWorld()
  ;All 2D commands to be placed AFTER RenderWorld()
  ;
  
  DisplaySprite(1,0,ScreenHeight()-SpriteHeight(1))
  
  ;} 
  
  ;{ Event loop
  ;- Event loop
  ; We check the events until ALL are processed.
  ; this is very important!
  ;
  
  Repeat
    
    Event=WindowEvent()
    
    Select Event
        
      Case #PB_Event_CloseWindow
        Exit=#True
        
    EndSelect
    
  Until Event=#False
  ;} 
  
  ;{ Check Keyboard
  ;-Check Keyboard
  ;
  If ExamineKeyboard()
    If KeyboardReleased(#PB_Key_Escape)
      Exit=#True
    EndIf
    
    If KeyboardReleased(#PB_Key_1)
      StartDrawing(SpriteOutput(1))
      Box(0,0,SpriteWidth(1),SpriteHeight(1),$000000)
      DrawText(0, 0, "Mary had a little lamb, she tied it to a pylon")
      StopDrawing()
    EndIf
    
    If KeyboardReleased(#PB_Key_2)
      StartDrawing(SpriteOutput(1))
      Box(0,0,SpriteWidth(1),SpriteHeight(1),$000000)
      DrawText(0, 0, "40000 volts shot up its ass and turned its wool to nylon")
      StopDrawing()
    EndIf
    
    
  EndIf
  ;}   
  
  
  FlipBuffers()
  
  CameraBackColor(0,$000000)
Until Exit=#True

End