LOGO-L> Re: DEMO

[George Mills <mills@softronix.com>]

Good catch

;; 
;; Spirals, by Meyer A. Billmers
;;  
;; This procedure makes pretty spirals. I suggest you first do a 
;; hideturtle so the drawing will proceed at a reasonable rate.
;; 
;; angle   is the amount of turn at each piece, 
;; repeat  is the number of turns before the distance is incremented,
and
;; incr    is the amount of distance increment.
;; segs    is the number of segments to draw
;; 
;; Suggested fun spirals:
;;     spiral 90 2 10 100
;;     spiral 91 2 10 100
;;     spiral 60 3 10 100
;;     spiral 61 3 10 50
;;     spiral 179 2 5 200
;;     spiral 20 10 4 100
;; 


Yehuda Katz wrote:
> 
> Hi George,
> 
> In your LOGOLIB you have a Demo file, which includes the following
> procedure. It takes 4 inputs, but the suggestions show only 3 inputs.
> 
> =========================================================
> to spiral :angle :repeat :incr :segs
> ;;
> ;; Spirals, by Meyer A. Billmers
> ;;
> ;; This procedure makes pretty spirals. I suggest you first do a
> ;; hideturtle so the drawing will proceed at a reasonable rate.
> ;;
> ;; angle   is the amount of turn at each piece,
> ;; repeat  is the number of turns before the distance is incremented,
> and
> ;; incr    is the amount of distance increment.
> ;;
> ;; Suggested fun spirals:
> ;;     spiral 90 2 10
> ;;     spiral 91 2 10
> ;;     spiral 60 3 10
> ;;     spiral 61 3 10
> ;;     spiral 179 2 5
> ;;     spiral 20 10 4
> ;;
> localmake "len :incr
> localmake "ctr 0
> repeat :segs ~
>   [ ~
>   fd :len ~
>   rt :angle ~
>   make "ctr :ctr + 1 ~
>   if :ctr = :repeat ~
>      [ ~
>      make "ctr 0 ~
>      make "len :len + :incr ~
>      ] ~
>   ]
> 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.