From d556e5508fe89ce51708b6914ae78a00aaa01ad8 Mon Sep 17 00:00:00 2001
From: Mart Lubbers
Date: Fri, 29 May 2015 14:47:41 +0200
Subject: t

---
 fp2/week6/mart/QA_shapes.icl | 27 ---------------------------
 1 file changed, 27 deletions(-)
 delete mode 100644 fp2/week6/mart/QA_shapes.icl

(limited to 'fp2/week6/mart/QA_shapes.icl')

diff --git a/fp2/week6/mart/QA_shapes.icl b/fp2/week6/mart/QA_shapes.icl
deleted file mode 100644
index fdb1a54..0000000
--- a/fp2/week6/mart/QA_shapes.icl
+++ /dev/null
@@ -1,27 +0,0 @@
-implementation module QA_shapes
-
-import QA, StdReal
-
-//	deze module definieert een aantal eenvoudige vorm-naam elementen
-
-d    :== px 40.0
-font :== normalFontDef "Times" 40.0
-
-queries :: [QA]
-queries
-	= [(rect d d,                                      "square")
-	  ,(circle d <@< {strokewidth=zero},               "circle")
-	  ,(ellipse d (d /. 2) <@< {strokewidth=zero},     "ellipse")
-	  ,(text font "Hello",                             "text")
-	  ,(margin (d /. 2,px zero) (xline Nothing d),     "xline")
-	  ,(margin (px zero,d /. 2) (yline Nothing d),     "yline")
-	  ,(line Nothing Slash d d,                        "slash")
-	  ,(line Nothing Backslash d d,                    "backslash")
-	  ,(polygon  Nothing [(d/.2,zero),(d,d),(zero,d)], "triangle")
-	  ,(polyline Nothing [(d/.2,zero),(d,d),(zero,d),(d/.2,zero)], "polyline")
-	  ,(fitx (d /. 1.2) 
-	      (overlay [(AtMiddleX,AtMiddleY),(AtMiddleX,AtMiddleY)] 
-	               [] 
-	               [rect d d,rotate (deg 45.0) (rect d d)] 
-	               Nothing),                           "star")
-	  ]
-- 
cgit v1.2.3