Re: LOGO-L> one-liners

[George Mills <mills@softronix.com>]

This is not a contest entry just having fun:

Don't let the complexity or time it takes to draw something
in Logo limit you on what you can animate. By using this technique
I could of drawn 60 Mandelbrots (one a day each) then played them
back to back over a period of few seconds for a timelapse movie.

to strangeclock
;
; Clock that rotates face to hand
; This progam requires significant memory
; First rotation will flicker, let it go around at
; least once and it will smooth out.
;
setpensize [5 5]
; record 60 "faces"
repeat 60~
  [
  ; wash up
  cs
  ; tilt face
  rt 6*repcount
  ; draw face
  pu
  repeat 12 [fd 110 pd label repcount pu bk 110 rt 30]
  ; draw hand
  setheading 90
  pd
  fd 100
  rt 90+45
  fd 20
  bk 20
  lt 90+45
  lt 90+45
  fd 20
  ; find place to take picture
  pu
  setpos [-130 -130]
  ; advance film
  setbitindex repcount
  ; take picture of what is interesting
  bitcopy 260 260
  ]
; show pictures from where we took them
setpos [-130 -130]
ht
; flip through pictures a few times
repeat 1000~
  [
  ; take top picture and put at the bottom of the stack of 60
  setbitindex (remainder repcount 60) + 1
  ; look at it
  bitpaste
  ; admire
  wait 40
  ]
end

-- 
===============================================================
George Mills
email: mills@softronix.com
http://www.softronix.com
The www page contains some very powerful educational software.
Our single most important investment is our kids.

---------------------------------------------------------------
Please post messages to the Logo forum to logo-l@gsn.org.  Mail
questions about the list administration to logofdn@gsn.org.  To
unsubscribe send    unsubscribe logo-l    to majordomo@gsn.org.