Data commit

Task/Animation/PicoLisp/animation-1.l

@@ -0,0 +1,14 @@
+#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
+
+(prin "^[[?9h")  # Mouse reporting on
+
+(setq Dir 1  Text (chop "Hello World! "))
+
+(loop
+   (prin (do Dir (rot Text)))
+   (when (= "^[" (key 200))
+      (key) (key)
+      (when (= " " (key))  # Left button
+         (setq Dir (if (= 1 Dir) 12 1)) )
+      (key) (key) )
+   (do (length Text) (prin "^H")) )

Task/Animation/PicoLisp/animation-2.l

@@ -0,0 +1,18 @@
+#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
+
+(load "@ext.l" "@lib/http.l" "@lib/xhtml.l" "@lib/form.l")
+
+(one *Dir)
+
+(de start ()
+   (app)
+   (action
+      (html 0 "Animation" "@lib.css" NIL
+         (form NIL
+            (gui '(+Button)
+               '(pack (do *Dir (rot '`(chop "Hello World! "))))
+               '(setq *Dir (if (= 1 *Dir) 12 1)) )
+            (gui '(+Click +Auto +Button) 400 'This 1000 "Start") ) ) ) )
+
+(server 8080 "!start")
+(wait)

Task/Animation/PicoLisp/animation-3.l

@@ -0,0 +1,22 @@
+#!ersatz/pil
+
+(setq
+   Dir 1
+   Text (chop "Hello World! ")
+   Frame (java "javax.swing.JFrame" T "Animation")
+   Label (java "javax.swing.JLabel" T (pack Text)) )
+
+(java Label 'addMouseListener
+   (interface "java.awt.event.MouseListener"
+      'mouseClicked '((Ev) (setq Dir (if (= 1 Dir) 12 1)))
+      'mouseEntered nil
+      'mouseExited nil
+      'mousePressed nil
+      'mouseReleased nil ) )
+
+(java Frame 'add Label)
+(java Frame 'pack)
+(java Frame 'setVisible T)
+(loop
+   (wait 200)
+   (java Label 'setText (pack (do Dir (rot Text)))) )