sketch experiment 3 - animation

Nikolaus Gradwohl2020-10-08T16:32:59+00:00

For experiment number 4 of my exploration of the commonlisp based sketch framewor, I started working with animations.

experiment no 4

obviously my previous sketches have been animations as well - they just drew the same picture at every frame.

(defsketch blub (
  (title "sketch ex4")
  (width 400)
  (height 400)
  (f 0)
  (p 0)
)
  (incf f 0.1)
  (background (rgb 1 1 1))
  (dotimes (i 100)
    (setf p (- f (/ i 5)))
    (with-pen (make-pen :stroke (rgb 0 0 0 0.1))
      (ellipse (/ width 2) (/ height 2)
               (* 100 (sin (/ p 10))) (* 100 (cos (/ p 17))))
    )
  )
)
Tweet This! submit to reddit Digg! Tags: | no comments | no trackbacks

See also:

sketch experiment 8 - circles animated
sketch experiment 7 - osc events
sketch experiment 6 - color
sketch experiment 5 - grid
sketch experiment 3 - circles

Trackbacks

Comments

Leave a response

Leave a comment