;; Impromptu-extended Logo examples

;; Load and evaluate the turtle-graphics.scm library first

;; Read the comments in that library file for details of the syntax of this implementation 

;;;;;;;;;;;;;;

;; music

;;;;;;;;;;;;;;

(tg:make piano (au:make-node "aumu" "dls " "appl"))

(au:connect-node piano 0 *au:output-node* 0)

(au:update-graph)

(play-note (now) piano 60 100 10000)

(tg:to (drunk-diatonic-melody pitch time)

    (tg:repeat 16 (play-note time piano pitch (random 50 110) 10000) 

            (tg:make pitch-center (round (+ pitch (- (* (random) 8) 4))))

            (tg:set-pos 15 (* (- pitch-center pitch) 8))

            (set! pitch (pc:random (- pitch-center 2) (+ pitch-center 2) '(0 2 4 5 7 9)))

            (set! time (+ time 11000))))

(tg:clear-screen)

(drunk-diatonic-melody 60 (now))

;;;;;;;;;;;;;;;;;;;;;

;; voice synthesis

;;;;;;;;;;;;;;;;;;;;;

(define voice1 (au:get-speech-channel))

(define voice2 (au:get-speech-channel))

(au:speak (now) voice1 "hello")

(tg:to (random-choice lst)

    (tg:item (+ (random (tg:count lst)) 1) lst))

(tg:make nouns (list "men" "women" "wind" "moon" "forest"))

(tg:make verbs (list "thinks" "runs" "laughs" "plays" "dreams"))

(tg:make adjectives (list "beautiful" "magical" "blue" "silent" "large" "new"))

(tg:make predicates (list "under" "over" "beside" "above" "on" "about"))

(tg:make articles (list "the" "several" "one" "each"))

(tg:to (haiku)

    (au:speak (now) voice1 (random-choice verbs))

    (au:speak (+ (now) 30000) voice2 (random-choice predicates))

    (au:speak (+ (now) 60000) voice1  (random-choice nouns))

    (au:speak (+ (now) 110000) voice2  (random-choice articles))

    (au:speak (+ (now) 140000) voice1  (random-choice adjectives))

    (au:speak (+ (now) 170000) voice2  (random-choice nouns))

    (au:speak (+ (now) 210000) voice1  (random-choice verbs))

    (au:speak (+ (now) 240000) voice2  (random-choice predicates))

    (au:speak (+ (now) 270000) voice1  (random-choice adjectives))

    (au:speak (+ (now) 300000) voice2  (random-choice nouns)))

(haiku)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; drawing with images

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Have a small image, about 160 pixels square,ready to use for this example

;; Replace the file path in the code with the absolute path to your image.

(tg:set-bg 1 1 1 1)

(tg:clear-screen)

(define image (gfx:load-image "/Users/browna/Desktop/Leaves.png"))

(gfx:set-image-size image 160 120)

(tg:to (image-circle :size)

    (tg:pen-up)

    (tg:set-pos -260 -100)

    (tg:repeat 12 

            (gfx:draw-image (now) canvas image 0.5 (list (tg:first position) (tg:but-first position)))

            (tg:forward :size)

            (tg:right 30)))

(tg:clear-screen)

(image-circle 100)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; temporal recursion - Braitenberg Vehicle

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(tg:clear-screen)

(tg:pen-down)

(tg:make go #t)

(tg:to (drive :speed)

    (tg:forward 6)

    (tg:set-pc (random) (random) (random) 1)

    (if (> (tg:get-x) 300) (tg:left (/ (- (tg:get-x) 300) 55)) (tg:right (/ (- (tg:get-x) 300) 35)))

    (if (> (tg:get-y) 300) (tg:left (/ (- (tg:get-y) 300) 30)) (tg:right (/ (- (tg:get-y) 300) 46)))

    (if go (callback (+ (now) (- *second* (* 500 :speed))) 'drive :speed)))

;; start - evaluate (tg:to (drive.. first.

(tg:clear-screen)

(tg:make go #t)

(drive 80) ;; 100 kph speed limit

;; end by changing the go flag

(tg:make go #f)