From eae6512719b20ad71e93c957581db3c744570ba9 Mon Sep 17 00:00:00 2001
From: Mart Lubbers
Date: Tue, 26 May 2015 20:17:55 +0200
Subject: initial week 6 commit

---
 fp2/week6/mart/QA_shapes.icl | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create 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
new file mode 100644
index 0000000..fdb1a54
--- /dev/null
+++ b/fp2/week6/mart/QA_shapes.icl
@@ -0,0 +1,27 @@
+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