PureBasic

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 200, 200, "DrawRotatedText Exemple", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  a = LoadFont(#PB_Any, "", 0, #PB_Font_HighQuality)
  If CreateImage(0, 200, 200) And StartDrawing(ImageOutput(0))
    Box(0, 0, 200, 200, RGB(255, 255, 255))
    DrawingFont(FontID(a))
    
    For Angle = 0 To 360 Step 45
      DrawRotatedText(100, 100, "Hello World!", Angle, RGB(0, 0, 0))
    Next Angle
    StopDrawing() 
    ImageGadget(0, 0, 0, 200, 200, ImageID(0))
  EndIf
  
  Repeat
    Event = WaitWindowEvent()
  Until Event = #PB_Event_CloseWindow
EndIf

Code : Tout sélectionner

;EnableExplicit

;#gDrawing_NO_DLL_IMPORT = 1

XIncludeFile "gDrawing.pbi"

Global metafile, mainWin, canvas, angle.f

Procedure OnTimer()
  Protected windowWidth  = WindowWidth(mainWin)
  Protected windowHeight = WindowHeight(mainWin)
  If gStartDrawing( CanvasOutput(canvas) )
    gClear(RGBA($80,$80,$80,$FF))
    gSetPenColor(RGBA(0,0,0,$FF))
    gSetFont("Arial",20,#PB_Font_Bold)
    height = gTextHeight()
    angle=angle + 3;angle + 0.1
    gDrawRotatedFormattedText(100,100,350,height,"http://www.purebasic.com/news/",angle,RGBA(255,255,0,255))
    
    gStopDrawing()
  EndIf
EndProcedure

Procedure OnSize()
  ResizeGadget(canvas,0,0,WindowWidth(mainWin),WindowHeight(mainWin))
  OnTimer()
EndProcedure


If gInit()
  
  mainWin  = OpenWindow(#PB_Any  , 0, 0, 600,600,"gDrawing feature demo",#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
  canvas   = CanvasGadget(#PB_Any, 0, 0, WindowWidth(mainWin),WindowHeight(mainWin))
  WindowBounds(mainWin,100,100,800,600)
  AddWindowTimer(mainWin, 0, 16)
  BindEvent(#PB_Event_Timer     , @OnTimer())
  BindEvent(#PB_Event_SizeWindow, @OnSize())
  Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
  
  gEnd()
EndIf