;;;; "cylinder.scm" Marbled Cylinder
;; Copyright 2004 Aubrey Jaffer

(require 'solid)

(define bluestone
  (solid:texture "greystone.jpg" (solid:color '(.3 .3 .5) .65)))
(define bouquets
  (solid:texture "TM-bouquets.jpg" (solid:color '(.3 .3 .5) .65)))

(define caps (solid:cylinder -159.15494309189534e-3 1 bluestone))
(define cylinder (solid:cylinder 159.15494309189534e-3 -1 bouquets))

(define patio
  (let ((repeat 9))
    (solid:translation
     '(0 -1.5 0)
     (solid:box `(,(* 15 repeat) 3 ,(* 15 repeat))
		(solid:texture "TM-damask-white.jpg"
			       (solid:color '(.9 .9 .95) .5)
			       repeat)))))

(vrml-to-file
 "cylinder.wrl"
 (world:info "Marbled Cylinder")
 "NavigationInfo {headlight FALSE avatarSize [0.01, 0.01, 0.01]}"

 (solid:translation '(0 .5 0) (scene:viewpoints 1.3))
 (scene:sky-and-dirt)
 (scene:sun 42 340 9 2 1.5)
 (solid:translation '(0 .52 0) caps cylinder)
 (solid:scale 25.4e-3 patio))

;;(system "freewrl --geometry 480x576 cylinder.wrl")
(system "freewrl --geometry 400x600 cylinder.wrl")