/*
	Arexx Text Script
*/

	call addlib("rexxmathlib.library", 5, -30, 0)

	options results
  parse ARG Port x1 y1 b
	ADDRESS value Port

	Pi=3.1415926/180
	
	pp_AvoidRefresh

	r=100

	pp_DialogInit 150 55 "*Half*Circle*Text*" 1
		pp_Integer 0 60 5 50 16 "Radius" 1 r
	pp_Dialog
	rc=result
	if rc=0 then
		do
			pp_PermitRefresh
			EXIT
		end	

	pp_UpdateUndo	

	pp_GetText
	texte=result
	
	pp_GetDialog 0
	r=result

	s0=length(texte)

	a=180/(s0-1)
	j=1
	alpha=90

  DO i=270 To -270 by a*-1
    x = trunc(Sin(i*Pi)*r+x1+0.5,0)
    y = trunc(Cos(i*Pi)*r+y1+0.5,0)
		t=substr(texte,j,1)

		if t~="   " then DO
			pp_TextRotate alpha
			pp_TextMake t
			pp_TextDraw x y
		end
		alpha=alpha-a
		j=j+1
	END

	pp_Refresh
	pp_TextRestore
	pp_TextMake

	pp_PermitRefresh