Drawingframe test (chap 5)

1 files changed, 28 insertions, 0 deletions

diff --git a/objectio/drawingframe.icl b/objectio/drawingframe.icl
new file mode 100644
index 0000000..1f6c8db
--- /dev/null
+++ b/objectio/drawingframe.icl
@@ -0,0 +1,28 @@
+module drawingframe
+
+// ********************************************************************************
+// Clean tutorial example program.
+//
+// This program defines a framework in which one can test drawing functions.
+// The program relies on a function, example, of type *Picture -> *Picture.
+// ********************************************************************************
+
+import StdEnv, StdIO
+
+Start :: *World -> *World
+Start world = startIO SDI Void (snd o openWindow Void testwindow) [ProcessClose closeProcess] world
+
+testwindow = Window "Test Drawing" NilLS [
+    WindowViewSize size, 
+    WindowClose (noLS closeProcess),
+    WindowLook True (\_ _->example),
+    WindowViewDomain {corner1=origin,corner2=maxdomain}
+    ]
+where
+    size = {w=200,h=50}
+    origin = {x=(-20),y=(-20)}
+    maxdomain = {x=origin.x+size.w,y=origin.y+size.h}
+
+// Here, example draws the string "Pop" at zero
+example = drawAt zero "Pop"
+