LOGO-L> slowdraw

[MHELHEFNY@FRCU.EUN.EG]

;Hello George Mills
;Here is another form of the slowdraw procedure;which may look like 
;a real slowdraw.
;(p.s. in this version you can't use slowdraw 0; you also
;must assigne a value for the speed befor using the
;slowdraw procedure).
;Regards
;Mhelhefny.
;--------------------------------

to slowdraw :speed
make "redefp "true
  copydef "origforward "forward
  copydef "origback    "back
  erase "fd
  define "fd [[d][repeat :speed[origforward :d/:speed wait 1]]]
  erase "bk
  define "bk [[d][repeat :speed[origback    :d/:speed wait 1]]]
  copydef "forward "fd
  copydef "back    "bk
end

to demo
make "speed 60 slowdraw :speed
cs repeat 3[cstar 50]
end

to cstar :size
fd :size
lt 120
fd 2 * :size
lt 60
fd 2 * :size
lt 120
fd :size
rt 60
end
---------------------------------------------------------------
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.