home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Graphics / PerfectPaint / rexx / box / Button_Off.rx < prev    next >
Text File  |  2000-08-16  |  1KB  |  78 lines
  1. /* Script Rexx
  2.     Button for Box*/
  3.  
  4.     options results
  5.   parse ARG Port x1 y1 x2 y2 b
  6.  
  7.   ADDRESS value Port
  8.     pp_AvoidRefresh
  9.  
  10.  
  11.     if (x2<x1) then do
  12.         a=x1
  13.         x1=x2
  14.         x2=a
  15.     end
  16.  
  17.     if (y2<y1) then do
  18.         a=y1
  19.         y1=y2
  20.         y2=a
  21.     end
  22.  
  23.     a=5
  24.     b=a*2
  25.     if (x2-x1<b) then do
  26.         x2=x1+b+1
  27.     end
  28.     if (y2-y1<b) then do
  29.         y2=y1+b+1
  30.     end
  31.  
  32.     pp_UpdateUndoBox x1-2 y1-2 x2+2 y2+2
  33.  
  34.     pp_GetApen
  35.   color=result
  36.  
  37.     pp_BoxF x1+1 y1+1 x2-1 y2-1
  38.  
  39.     pp_ClosestColorL color 70
  40.     pp_SetApen result
  41.     pp_StartPoly
  42.     pp_AddPoly x1            y1
  43.     pp_AddPoly x2            y1
  44.     pp_AddPoly (x2-a)    (y1+a)
  45.     pp_AddPoly (x1+a)    (y1+a)
  46.     pp_EndPolyF
  47.  
  48.     pp_ClosestColorD color 70
  49.     pp_SetApen result
  50.     pp_StartPoly
  51.     pp_AddPoly x1            y2
  52.     pp_AddPoly (x1+a)    (y2-a)
  53.     pp_AddPoly (x2-a)    (y2-a)
  54.     pp_AddPoly x2            y2
  55.     pp_EndPolyF
  56.  
  57.     pp_ClosestColorL color 30
  58.     pp_SetApen result
  59.     pp_StartPoly
  60.     pp_AddPoly x1            y1
  61.     pp_AddPoly (x1+a)    (y1+a)
  62.     pp_AddPoly (x1+a)    (y2-a)
  63.     pp_AddPoly x1            y2
  64.     pp_EndPolyF
  65.  
  66.     pp_ClosestColorD color 30
  67.     pp_SetApen result
  68.     pp_StartPoly
  69.     pp_AddPoly x2            y1
  70.     pp_AddPoly x2            y2
  71.     pp_AddPoly (x2-a)    (y2-a)
  72.     pp_AddPoly (x2-a)    (y1+a)
  73.     pp_EndPolyF
  74.  
  75.     pp_SetApen color
  76.   pp_BoxF (x1+a+1) (y1+a+1) (x2-a-1) (y2-a-1)
  77.  
  78.     pp_PermitRefresh