home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Graphics / PerfectPaint / rexx / text / HalfCircle_Text.rx < prev    next >
Text File  |  1999-08-27  |  763b  |  59 lines
  1. /*
  2.     Arexx Text Script
  3. */
  4.  
  5.     call addlib("rexxmathlib.library", 5, -30, 0)
  6.  
  7.     options results
  8.   parse ARG Port x1 y1 b
  9.     ADDRESS value Port
  10.  
  11.     Pi=3.1415926/180
  12.     
  13.     pp_AvoidRefresh
  14.  
  15.     r=100
  16.  
  17.     pp_DialogInit 150 55 "*Half*Circle*Text*" 1
  18.         pp_Integer 0 60 5 50 16 "Radius" 1 r
  19.     pp_Dialog
  20.     rc=result
  21.     if rc=0 then
  22.         do
  23.             pp_PermitRefresh
  24.             EXIT
  25.         end    
  26.  
  27.     pp_UpdateUndo    
  28.  
  29.     pp_GetText
  30.     texte=result
  31.     
  32.     pp_GetDialog 0
  33.     r=result
  34.  
  35.     s0=length(texte)
  36.  
  37.     a=180/(s0-1)
  38.     j=1
  39.     alpha=90
  40.  
  41.   DO i=270 To -270 by a*-1
  42.     x = trunc(Sin(i*Pi)*r+x1+0.5,0)
  43.     y = trunc(Cos(i*Pi)*r+y1+0.5,0)
  44.         t=substr(texte,j,1)
  45.  
  46.         if t~="   " then DO
  47.             pp_TextRotate alpha
  48.             pp_TextMake t
  49.             pp_TextDraw x y
  50.         end
  51.         alpha=alpha-a
  52.         j=j+1
  53.     END
  54.  
  55.     pp_Refresh
  56.     pp_TextRestore
  57.     pp_TextMake
  58.  
  59.     pp_PermitRefresh