PureBasic Forums - English

Code: Select all

; =================================================================
;
;        Author:       Mijikai 
;          Date:       June 15, 2020
;       Explain:       Drawing directly on screen
;           
; Typical Usage:
;
;     File Name:      Hello Screen 2.pb    
; =================================================================

EnableExplicit

Procedure.i Main(Width.i,Height.i,Title.s = #Null$)
  Protected wnd.i
  Protected wnd_event.i
  Protected *chr.character
  Protected text.s
  Protected x1.i
  Protected y1.i
  Protected x2.i
  Protected y2.i
  Protected x3.i
  Protected y3.i
  Protected gamma.f
  Protected beta.f
  Protected slice.f
  Protected speed.f
  Protected mod.i
  If InitSprite()
    wnd = OpenWindow(#PB_Any,#Null,#Null,Width,Height,Title,#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
    If wnd
      If OpenWindowedScreen(WindowID(wnd),#Null,#Null,Width,Height,#False,#Null,#Null,#PB_Screen_WaitSynchronization)
        SetFrameRate(50)
        text = "------- hdt888 - Hello and welcome -------"
        slice = 360 / Len(text);spacing
        Repeat
          Repeat
            wnd_event = WindowEvent()
            If wnd_event = #PB_Event_CloseWindow
              Break 2
            EndIf
            ClearScreen($0)
            StartDrawing(ScreenOutput())
            DrawingMode(#PB_2DDrawing_Transparent)
            speed + 0.8
            beta = speed
            *chr = @text;<- get base pointer to chars
            mod = 0
            Repeat
              gamma = Radian(360 - beta)
              x1 = (x1 / 10 - y1) * Sin(gamma) * (mod / 50)
              y1 = 200 + mod * -Cos(gamma) 
              DrawText(x1 + 400 ,y1 + 300 ,Chr(*chr\c),$FF8088 + x1 - y1 )
              x2 = (x2 / 10 - y2) * Sin(gamma)
              y2 = 100  * -Cos(gamma)               
              DrawText(x2 + 400 ,y2 + 220 ,Chr(*chr\c),$FF8088 + x2 - y2 )
              x3 = 200 * Sin(gamma)
              y3 = 200 * -Cos(gamma)
              DrawText(x3 + 400 ,y3 + 220 ,Chr(*chr\c),$FF8088 + x3 - y3 )   
              mod + 1
              beta - slice
              *chr + SizeOf(Character);<- advance chr pointer
            Until *chr\c = #Null   
            StopDrawing()     
            FlipBuffers()
          Until wnd_event = #Null
        ForEver
      EndIf
      CloseWindow(wnd)
    EndIf
  EndIf
  ProcedureReturn #Null
EndProcedure

Main(800,600)

End

Code: Select all

;        _
;       /(|
;      (  :
;     __\  \  _____
;   (____)  `|
;  (____)|   |
;   (____).__|
;    (___)__.|_____
;