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/BinSearchTreeImage.icl | 57 +++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 fp2/week6/mart/BinSearchTreeImage.icl

(limited to 'fp2/week6/mart/BinSearchTreeImage.icl')

diff --git a/fp2/week6/mart/BinSearchTreeImage.icl b/fp2/week6/mart/BinSearchTreeImage.icl
new file mode 100644
index 0000000..1662608
--- /dev/null
+++ b/fp2/week6/mart/BinSearchTreeImage.icl
@@ -0,0 +1,57 @@
+module BinSearchTreeImage
+
+/* Instructions:
+
+(1) copy BinTree.(i/d)cl and BinSearchTree.(i/d)cl from Practicum to
+    {iTasks-SDK}\Experiments\SVG_tests\
+    
+(2) in these modules change the type
+
+    :: Tree a = Node a (Tree a) (Tree a) | Leaf
+    
+    to
+    
+    :: BTree a = BLeaf | BNode a (BTree a) (BTree a)	// ORDER OF DATACONSTRUCTORS IS ESSENTIAL!!
+    
+    and adapt the corresponding function definitions.
+    
+(3) this main file (BinSearchTreeImage.icl) must be in the same folder:
+    {iTasks-SDK}\Experiments\SVG_tests\
+    
+(4) create a new project and set de environment to 'iTasks'
+
+(5) Bring-Up-To-Date and start generated application
+
+(6) Open a browser and navigate to localhost.
+    The application creates two tasks:
+    (a) The task on the left allows you to enter subsequent elements that are inserted in the tree, one after another.
+    (b) The task on the right must be finished by you by writing the function treeImage. This function must render the tree structure in such a way
+        that Nodes of the same depth have the same y-coordinate, and the root having the smallest y-coordinate.
+*/
+
+import iTasks								// de algemene iTask API
+import iTasks.API.Extensions.SVG.SVGlet		// specialiseer task editors
+from   StdFunc import flip
+
+import BinSearchTree						// type definition of Tree and sample trees z0 .. z8
+derive class iTask BTree
+
+Start				:: *World -> *World
+Start world			= startEngine [publish "/" (WebApp []) (\_ -> task)] world
+
+task				:: Task [Int]
+task				= withShared [] (\sharedList ->
+						(  (updateSharedInformation (Title "Edit list") [] sharedList <<@ ArrangeHorizontal)
+						   -||-
+						   (viewSharedInformation (Title "Tree view") [imageView treeImage` (\_ _ -> Nothing)] sharedList <<@ ArrangeHorizontal)
+						) <<@ ArrangeHorizontal
+					  ) <<@ FullScreen
+
+font				= normalFontDef "Courier New" fonthoogte
+fonthoogte			= 14.0
+
+treeImage`			:: [Int] *TagSource -> Image m
+treeImage` nrs tags	= treeImage (foldl (flip insertTree) BLeaf nrs) tags
+
+treeImage			:: (BTree Int) *TagSource -> Image m
+treeImage tree ts   = text (normalFontDef "Courier New" 12.0) "I need to draw a tree!"
-- 
cgit v1.2.3