Commit d87c4257 authored by Dave Cooper's avatar Dave Cooper
Browse files

added more to geometry chapter

parent cd720d7b
(in-package :gdl-user)
(define-object display-color (base-object)
:input-slots ((number-of-boxes 5))
:computed-slots ((length 10)
(width (* (the length) +phi+))
(height (* (the width) +phi+))
(color-list (list :red :orange :yellow :blue :indigo :violet)))
:objects ((boxes :type 'box
:sequence (:size (the number-of-boxes))
:display-controls (list :color (or (nth (the-child index)
(the color-list)) :black)
:line-thickness 2)
:center (translate (the center)
:right (* (the width) (the-child index))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment