t

[fp1415.git] / 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 (file)
index fdb1a54..0000000
--- a/fp2/week6/mart/QA_shapes.icl
+++ /dev/null
@@ -1,27 +0,0 @@
-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