home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Graphics / PerfectPaint / rexx / text / Tiger.rx < prev   
Text File  |  1999-12-23  |  1KB  |  90 lines
  1. /*
  2.     Arexx Text Script
  3. */
  4.  
  5.     options results
  6.   parse ARG Port x y b
  7.     ADDRESS value Port
  8.  
  9.     pp_GetDepth
  10.     depth=result
  11.     IF depth<24 then DO    
  12.         pp_Warn 'Only*for*24Bits*version.'
  13.         EXIT
  14.     END
  15.  
  16.     pp_AvoidRefresh
  17.  
  18.     pp_GetHeightT
  19.     H=result
  20.  
  21.     pp_GetWidthT
  22.     W=result
  23.  
  24.     xx=x-W/2
  25.     yy=y-H/2
  26.  
  27.     pp_SpareOnOff
  28.  
  29.     pp_ClosestColor 0 0 0
  30.     Black=result
  31.  
  32.     pp_ClosestColor 255 255 255
  33.     White=result
  34.  
  35.     pp_SetApen White
  36.     pp_SetBpen Black
  37.  
  38.     pp_Compose 0 100 0
  39.  
  40.     pp_EffectOn
  41.     pp_Spray 1 100
  42.     pp_BoxF xx-2 yy-2 xx+W+3 yy+H+3
  43.  
  44.  
  45.     pp_ConvInit 1 159 0
  46.     pp_Conv 0 2 4 5 4 2
  47.     pp_Conv 1 4 9 12 9 4
  48.     pp_Conv 2 5 12 15 12 5
  49.     pp_Conv 3 4 9 12 9 4
  50.     pp_Conv 4 2 4 5 4 2
  51.  
  52.     pp_BoxF xx-2 yy-2 xx+W+3 yy+H+3
  53.     pp_BoxF xx-2 yy-2 xx+W+3 yy+H+3
  54.  
  55.     A=-1
  56.     B=-2
  57.     pp_ConvInit 1 1 128
  58.     pp_Conv 0 1 1 1 0 0
  59.     pp_Conv 1 1 2 2 0 0
  60.     pp_Conv 2 1 2 0 B A
  61.     pp_Conv 3 0 0 B B A
  62.     pp_Conv 4 0 0 A A A
  63.  
  64.     pp_BoxF xx-2 yy-2 xx+W+3 yy+H+3
  65.  
  66.     pp_SpareOnOff
  67.     pp_UpdateUndoBox xx-2 yy-2 xx+W+3 yy+H+3
  68.  
  69.     pp_SetApen Black
  70.     pp_Airbrush 100 5
  71.     pp_TextDraw x y
  72.  
  73.     pp_Spare
  74.     pp_TextDraw x y
  75.     
  76.     pp_PermitRefresh
  77.  
  78.     pp_EffectOff
  79.     
  80. EXIT
  81.  
  82.     
  83.  
  84.     
  85.  
  86.  
  87.     
  88.  
  89.     
  90.