chiark / gitweb /
size-tests: break out org_oblong
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 12 Aug 2012 22:10:41 +0000 (23:10 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 12 Aug 2012 22:10:41 +0000 (23:10 +0100)
size-tests.m-g

index f2743a80e015127e757894b0b15cc7d07064815e..72c196bf74d7502968ba5ba759e2abf18fa7349a 100644 (file)
@@ -65,6 +65,27 @@ M82 ; use absolute distances for extrusion
  !draw @0.500,@0.500 @4.500,@0.500 @4.500,@19.500 @0.500,@19.500 @0.500,@0.500
 !}
 
  !draw @0.500,@0.500 @4.500,@0.500 @4.500,@19.500 @0.500,@19.500 @0.500,@0.500
 !}
 
+!org_oblong(){
+; original test oblong
+
+!draw 68.498,79.498 \
+71.502,79.498 \
+71.502,82.502 \
+68.498,82.502 \
+68.498,79.588 \
+*67.899,78.899 \
+72.101,78.899 \
+72.101,83.101 \
+67.899,83.101 \
+67.899,78.989 \
+*67.300,78.300 \
+72.700,78.300 \
+72.700,83.700 \
+67.300,83.700 \
+67.300,78.390 \
+
+!}
+
 !layer(){
 
 ;--------------------
 !layer(){
 
 ;--------------------
@@ -114,23 +135,7 @@ M82 ; use absolute distances for extrusion
 !orgx=30
 !inner_longrect()
 
 !orgx=30
 !inner_longrect()
 
-; original test oblong
-
-!draw 68.498,79.498 \
-71.502,79.498 \
-71.502,82.502 \
-68.498,82.502 \
-68.498,79.588 \
-*67.899,78.899 \
-72.101,78.899 \
-72.101,83.101 \
-67.899,83.101 \
-67.899,78.989 \
-*67.300,78.300 \
-72.700,78.300 \
-72.700,83.700 \
-67.300,83.700 \
-67.300,78.390 \
+!org_oblong()
 
 !}
 
 
 !}