;;
;; makes a duck
;;
;;  M. Geroch
;;  TV Digital Lighting HW 5
;; Spring, 1996
;;




(world
  (camera "main" "perspective" 'from '#<0 3 6> 
	  'to '#<0 0 0> 'fov 45)
  (camera "top" "perspective" 'from '#<0.884 6.3 1.14> 
	  'to '#<0 0 0> 'fov 45)

  (light "ambientlight" 'intensity 0.5)
  (light "distantlight" 'from '#<5 10 5> 'to '#<0 0 0> 'intensity 2)

  (ri-attribute "displacementbound"
                'sphere 0.5
                'coordinatesystem "shader")

  
;; pond
  (separator
    (color 0.420 0.550 0.420)
    (rotate -90 x-axis)
    (disk 'radius 5 'height -1.9)
    )

;; position for viewing
  (translate 0 -0.5 0)
  (rotate -40 y-axis)




;; duck neck/head
  (separator
    (color 0.0 0.368 0.015)
    (surface "irides" 'bright_color #<0.0 0.368 0.015 > 
	     'dark_color #<0.0 0.1 0.455>
	     'Ks 0.8 'roughness 0.15 
	     'specular_color #<0.0 0.568 0.015>)    
    ;; duck neck
    (separator
      (translate 0 -1 0)
      (rotate -90 x-axis)
      (displacement "fluffy" 'Km 0.04 'scrunch 5 'Kmtex 0.028
		    'texturename "/nfs/grumpy/frames/geroch/Pix/shadedisp.tx")
      (cylinder 'radius 0.49 'zmax 2)  
      (separator
	(translate 0 0 0.35)
	(color 0.909 1.0 0.909)
	(displacement "fluffy" 'Km 0.03 'scrunch 0.25)
	(surface "neck_band" 'fade_to_color '#<0.21875 0.02734 0.04297>
		 'bandtop 0.33 'bandbottom 0.22 'fuzz 0.08 'epsilon 0.15)
	(cylinder 'radius 0.51 'zmax 0.7)) )
    ;; duck head
    (separator
      (translate 0 1.13 0.26)
      (rotate 13 x-axis)
      (scale 0.59 0.63 0.83)
      (displacement "fluffy" 'Km 0.04 'scrunch 10)
      (sphere)
      ;; eyes
      (separator
	(color 0.1 0.1 0.1)
	(displacement "fluffy" 'Km 0.01 'scrunch 1)
	(surface "plastic" 'Ka 0.3 'Ks 0.9 'roughness 0.05)
	(separator
	  (translate 0.95 0.2 0.2)
	  (rotate 20 x-axis)
	  (rotate -20 y-axis)
	  (scale 0.06 0.09 0.17)
	  (sphere) )
	(separator
	  (translate -0.95 0.2 0.2)
	  (rotate 20 x-axis)
	  (rotate 20 y-axis)
	  (scale 0.06 0.09 0.17)
	  (sphere) ) )
      ;; bill
      (separator
	(color 0.933 0.678 0.054)
	(surface "duck_bill_color" 'Ks 0.3 )
	(displacement "duck_bill_shape" 'Km 0.02 'scrunch 10)
	(translate 0 -0.1 0.9)
	(scale 0.4 0.14 0.8)
	
	(sphere) )
      )
    )

;; duck body
  (separator
    (color 0.545 0.450 0.333)
    (displacement "fluffy" 'Km 0.01  'scrunch 15 'Kmtex 0.12 
		  'texturename "/nfs/grumpy/frames/geroch/Pix/duckbackdisp.tx")
    (surface "texfile" 
	     'texturename "/nfs/grumpy/frames/geroch/Pix/duckbackcolor.tx"
	     'Ka 0.5 'Kd 0.5 'Ks 0.1 'roughness 0.2)
    (translate 0 -1 -1.3)
    (rotate 180 y-axis)
    (rotate -90 z-axis)
    (scale 1 1 2)
    (sphere) )
  )





(define (render-now)
  (render 'format 512
	  ))


(define (render-save)
  (render 'format 512 
         'display-type "file"
         'display-name "/nfs/grumpy/frames/geroch/ShaderClass/HW4/duck.rgb"
	 ))


(define (render-top)
  (render 'format 256 
	  'camera "top"
         'display-type "file"
         'display-name "/nfs/grumpy/frames/geroch/ShaderClass/HW4/ducktop.rgb"
	 ))