initial week 6 commit

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