Flex Graphics Test

Vista Smalltalk Site

This is a graphics test using the Lisp interpreter running in IE7 using Adobe Flash 9 - it should work on most versions of Windows, Macintosh and Linux. There is a link to the executable (about 240 kb) on the main Vista Smalltalk site.

There are three functions: “add-shape”, “add-shapes”, and “test-shapes”.
Highlight each one separately, and use “Do It” or “Show It”.
Then highlight “(test-shapes)” and “Do It” – the shapes should appear in the right panel.

The interpreter has progressed substantially:
– closures are implemented
– macros are implemented (still some bugs)
– class structure partially implemented
– method calling partially implemented

Next steps are:
– add functions for building classes
– test Smalltalk semantics using Lisp syntax
– implement Smalltalk reader

Below is the Lisp code for the above sample.

(defun add-shape (type size x y)
  (sprite-add *canvas* type size x y)
  (sprite-add *canvas* type (* size 2)
                            (+ x (/ size 4))
                            (+ y (/ size 4)))
  (sprite-add *canvas* type (* size 3)
                            (+ x (/ size 2))
                            (+ y (/ size 2))))

(defun add-shapes (size x y)
  (add-shape "circle" size x y)
  (add-shape "square" size (+ x (/ size 3)) y)
  (add-shape "triangle" size (+ x (* 2 (/ size 3))) y))

(defun test-shapes ()
  (add-shapes 10 0 0)
  (add-shapes 30 50 50)
  (add-shapes 10 100 50)
  (add-shapes 20 50 100)
  (add-shapes 70 150 10)
  (add-shapes 30 0 230)
  (add-shapes 45 100 150))

(test-shapes)