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