fp2/week6/mart/QA_shapes.icl

   1 implementation module QA_shapes
   2
   3 import QA, StdReal
   4
   5 //      deze module definieert een aantal eenvoudige vorm-naam elementen
   6
   7 d    :== px 40.0
   8 font :== normalFontDef "Times" 40.0
   9
  10 queries :: [QA]
  11 queries
  12         = [(rect d d,                                      "square")
  13           ,(circle d <@< {strokewidth=zero},               "circle")
  14           ,(ellipse d (d /. 2) <@< {strokewidth=zero},     "ellipse")
  15           ,(text font "Hello",                             "text")
  16           ,(margin (d /. 2,px zero) (xline Nothing d),     "xline")
  17           ,(margin (px zero,d /. 2) (yline Nothing d),     "yline")
  18           ,(line Nothing Slash d d,                        "slash")
  19           ,(line Nothing Backslash d d,                    "backslash")
  20           ,(polygon  Nothing [(d/.2,zero),(d,d),(zero,d)], "triangle")
  21           ,(polyline Nothing [(d/.2,zero),(d,d),(zero,d),(d/.2,zero)], "polyline")
  22           ,(fitx (d /. 1.2)
  23               (overlay [(AtMiddleX,AtMiddleY),(AtMiddleX,AtMiddleY)]
  24                        []
  25                        [rect d d,rotate (deg 45.0) (rect d d)]
  26                        Nothing),                           "star")
  27           ]