DrawCircularText() function

[Psychophanta]

The function accepts the coordinates of the circle's center, the radius and the angle (polar coordinates):

Code: Select all

Procedure DrawCircularText(px.f,py,f,R.f,a.f,t$,color.l=$FFFFFF,convexo.b=1)
  Protected t.u,th.u=TextHeight(Mid(t$,1,1)),v.f
  If convexo<0:convexo=-1
  Else:convexo=1
    R-th*1.333333
  EndIf
  For t=1 To Len(t$)
    DrawRotatedText(px+R*Cos(a),py+R*Sin(a),Mid(t$,t,1),convexo*90-Degree(a),color)
    a-convexo*th/R
  Next
EndProcedure

Test it:

Code: Select all

ExamineDesktops():SCREENWIDTH.u=DesktopWidth(0):SCREENHEIGHT.u=DesktopHeight(0)
InitMouse():InitSprite():InitKeyboard()
OpenScreen(SCREENWIDTH,SCREENHEIGHT.u,32,"texto circular")
MouseLocate(SCREENWIDTH.u/2,SCREENHEIGHT.u/2)
Procedure DrawCircularText(px.f,py,f,R.f,a.f,t$,color.l=$FFFFFF,convexo.b=1)
  Protected t.u,th.u=TextHeight(Mid(t$,1,1)),v.f
  If convexo<0:convexo=-1
  Else:convexo=1
    R-th*1.333333
  EndIf
  For t=1 To Len(t$)
    DrawRotatedText(px+R*Cos(a),py+R*Sin(a),Mid(t$,t,1),convexo*90-Degree(a),color)
    a-convexo*th/R
  Next
EndProcedure
radio.f=190
Repeat
  ExamineKeyboard():ExamineMouse()
  px.f=MouseX():py.f=MouseY():di.f-MouseWheel()/13
  MouseDeltaX():MouseDeltaY()
  If MouseButton(#PB_MouseButton_Left)
    pz.f-0.01
  ElseIf MouseButton(#PB_MouseButton_Right)
    pz.f+0.01
  ElseIf KeyboardReleased(#PB_Key_Up)
    u.b!2
  EndIf
  radio.f+pz
  ClearScreen(0)
  StartDrawing(ScreenOutput())
  DrawingMode(#PB_2DDrawing_Outlined)
  For t.a=0 To 1
    Circle(px.f,py.f,radio-t*20,$FABADA)
  Next
  DrawCircularText(px.f,py,f,radio,di,"This is a PureBasic function tip for 2D classic screen",$AABBCC,u.b-1)
  StopDrawing()
  FlipBuffers():Delay(16)
Until KeyboardPushed(#PB_Key_Escape)
CloseScreen():End

[BarryG]

Interesting! Thanks.

[SPH]

Very nice

Original

[Kwai chang caine]

Yes never see this effect
Thanks for sharing