beta 2011.10.05 23:32

1 files changed, 52 insertions, 56 deletions

diff --git a/metapost/context/base/mp-butt.mp b/metapost/context/base/mp-butt.mp
index cf580211e..3ae3dc983 100644
--- a/metapost/context/base/mp-butt.mp
+++ b/metapost/context/base/mp-butt.mp
@@ -1,6 +1,6 @@
 %D \module
 %D   [       file=mp-butt.mp,
-%D        version=2000.05.31, 
+%D        version=2000.05.31,
 %D          title=\CONTEXT\ \METAPOST\ graphics,
 %D       subtitle=buttons,
 %D         author=Hans Hagen,
@@ -8,68 +8,64 @@
 %D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
 %C
 %C This module is part of the \CONTEXT\ macro||package and is
-%C therefore copyrighted by \PRAGMA. See licen-en.pdf for 
-%C details. 
+%C therefore copyrighted by \PRAGMA. See licen-en.pdf for
+%C details.
 
-if unknown context_tool :    input mp-tool ; fi ; 
-if   known context_butt : endinput         ; fi ; 
+if unknown context_tool :    input mp-tool ; fi ;
+if   known context_butt : endinput         ; fi ;
 
-boolean context_butt ; context_butt := true ; 
+boolean context_butt ; context_butt := true ;
 
-def some_button (expr button_type    , 
-                      button_size    ,
-                      button_linecolor , 
-                      button_fillcolor ) = 
+def some_button (expr button_type, button_size, button_linecolor, button_fillcolor) =
 
-  numeric button_linewidth ; button_linewidth := button_size/10 ;
+    numeric button_linewidth ; button_linewidth := button_size/10 ;
 
-  drawoptions (withpen pencircle scaled button_linewidth 
-               withcolor button_linecolor) ;
+    drawoptions (withpen pencircle scaled button_linewidth withcolor button_linecolor) ;
 
-  path p    ; p := unitsquare scaled button_size ;
-  numeric d ; d := button_size ;
-  numeric l ; l := button_linewidth ;
+    path p    ; p := unitsquare scaled button_size ;
+    numeric d ; d := button_size ;
+    numeric l ; l := button_linewidth ;
 
-  fill p withcolor button_fillcolor ; draw p ;
+    fill p withcolor button_fillcolor ; draw p ;
 
-  if     button_type=101 : 
-    draw (d-2l,2l)--(2l,.5d)--(d-2l,d-2l)--cycle ;
-  elseif button_type=102 : 
-    draw (2l,2l)--(d-2l,.5d)--(2l,d-2l)--cycle ;
-  elseif button_type=103 : 
-    for i=2l step 2l until d-2l :
-      draw (2l,i)--(2l  ,i) ;
-      draw (4l,i)--(d-2l,i) ;
-    endfor ;
-  elseif button_type=104 : 
-    for i=2l step 2l until d-2l :
-      draw (2l   ,i)--(d/2-l,i) ;
-      draw (d/2+l,i)--(d-2l ,i) ;
-    endfor ;
-  elseif button_type=105 : 
-    fill fullcircle scaled (.2d) shifted (.5d,.7d) ; 
-    fill fullcircle xscaled (.6d) yscaled d shifted (.5d,0) ; 
-    clip currentpicture to p ;
-    draw p ; 
-  elseif button_type=106 :
-    draw (2l,2l)--(d-2l,d-2l) ;
-    draw (d-2l,2l)--(2l,d-2l) ;
-  elseif button_type=107 :
-    p := (3l,d-2l)--(d-3l,d-2l)--(.5d,4l)--cycle ; 
-    fill p ; draw p ; 
-    draw (.5d,2l) ; 
-  elseif button_type=108 : 
-    draw (.5d,2l)--(d-2l,d-2l)--(2l,d-2l)--cycle ; 
-  elseif button_type=109 : 
-    draw (.5d,d-2l)--(d-2l,2l)--(2l,2l)--cycle ; 
-  elseif button_type=110 : 
-    button_linewidth := button_linewidth/2 ;  
-    draw p enlarged (-2l,-l) ;
-    for i=2l step l until d-2l : 
-      draw (3l,i)--(d-3l,i) ; 
-    endfor ; 
-  fi ; 
+    if     button_type = 101 :
+        draw (d-2l,2l)--(2l,.5d)--(d-2l,d-2l)--cycle ;
+    elseif button_type = 102 :
+        draw (2l,2l)--(d-2l,.5d)--(2l,d-2l)--cycle ;
+    elseif button_type = 103 :
+        for i=2l step 2l until d-2l :
+            draw (2l,i)--(2l  ,i) ;
+            draw (4l,i)--(d-2l,i) ;
+        endfor ;
+    elseif button_type = 104 :
+        for i=2l step 2l until d-2l :
+            draw (2l   ,i)--(d/2-l,i) ;
+            draw (d/2+l,i)--(d-2l ,i) ;
+        endfor ;
+    elseif button_type = 105 :
+        fill fullcircle scaled (.2d) shifted (.5d,.7d) ;
+        fill fullcircle xscaled (.6d) yscaled d shifted (.5d,0) ;
+        clip currentpicture to p ;
+        draw p ;
+    elseif button_type = 106 :
+        draw (2l,2l)--(d-2l,d-2l) ;
+        draw (d-2l,2l)--(2l,d-2l) ;
+    elseif button_type = 107 :
+        p := (3l,d-2l)--(d-3l,d-2l)--(.5d,4l)--cycle ;
+        fill p ; draw p ;
+        draw (.5d,2l) ;
+    elseif button_type = 108 :
+        draw (.5d,2l)--(d-2l,d-2l)--(2l,d-2l)--cycle ;
+    elseif button_type = 109 :
+        draw (.5d,d-2l)--(d-2l,2l)--(2l,2l)--cycle ;
+    elseif button_type = 110 :
+        button_linewidth := button_linewidth/2 ;
+        draw p enlarged (-2l,-l) ;
+        for i=2l step l until d-2l :
+            draw (3l,i)--(d-3l,i) ;
+        endfor ;
+    fi ;
 
-enddef ; 
+enddef ;
 
-endinput ; 
+endinput ;