;; example chair.al

(world
  (camera "main" "perspective" 'from '#<2 1 9.37 > 'to '#<0 0 0> 'fov 40)
; (camera "main" "perspective" 'from '#<2 3 3> 'to '#<0 0 0> 'fov 45)
  (light "ambientlight" 'intensity .3)
  (light-shadows #t)
  (light "distantlight" 'from '#<5 10 11> 'to '#<0 0 0> 'intensity 1)
  (light "distantlight" 'from '#<-5 10 11> 'to '#<0 0 0> 'intensity 1)
;;  (light "spotlight" 'from '#<0 2 -4> 'to '#<0 0 0> 'intensity 35)
  (surface "plastic") 
 

;  (axes)

; river bed
(separator
    (translate 0 -2 4)
    (rotate 0 y-axis)
    (color 0.3 0.6 0.3)
    (uscale 6)
   (displacement "riverbed" 'width 0.2 'pool 0.35)
  (ri-attribute "displacementbound" 'sphere .3 'coordinatesystem "shader")
   (patch "bilinear" 'P '(#<-1 0 1> #<1 0 1> #<-1 0 -1> #<1 0 -1>)))

(separator
    (translate 0 -1.4 4)
    (rotate 0 y-axis)
    (color .1 .6 .8)
    (uscale 6)
    (displacement "dwater")
    (surface "falls" 'wcolor '(.1 .6 .8))
  (ri-attribute "displacementbound" 'sphere .1 'coordinatesystem "shader")
   (patch "bilinear" 'P '(#<-1 0 1> #<1 0 1> #<-1 0 -1> #<1 0 -1>)))


;back wall falls
(separator
    (translate 0 0 -6.2)
    (rotate 90 x-axis)
    (color .3 .3 .3)
    (uscale 3)
    (scale 4 1 2)
     (surface "matte") 
;;   (surface "blue_marble")
    (displacement "rockfalls" 'width 0.14)
    (ri-attribute "displacementbound" 'sphere .2 'coordinatesystem "shader") 
    (box))

(separator
    (translate 0 10 -4)
    (rotate 90 x-axis)
    (color .1 .6 .8)
    (scale 2.5 2.5 15)
    (displacement "wfallsd" )
    (surface "mistfall" 'mistc '(.1 .6 .8) 'trans 2 )
;;  (ri-attribute "displacementbound" 'sphere .3 'coordinatesystem "shader")
;   (axes)
  (cylinder))


(separator
    (translate -7 -1 -2.5)
    (scale 2 2 12)
    (surface "blue_marble" )
    (displacement "rocksides")
    (color 1 .7 .5) 
    (rotate 90 z-axis)
    (ri-attribute "displacementbound" 'sphere .1 'coordinatesystem "shader")
    (cylinder))
  

(separator
    (translate 6.5 -1 -2.5)
    (scale 2 2 12)
    (surface "blue_marble" )
     (color 1 .7 .5) 
  ;  (displacement "rocksides")
    (rotate 90 z-axis)
    (ri-attribute "displacementbound" 'sphere .1 'coordinatesystem "shader")
    (cylinder))
 

(separator 
  
)


(separator
  (surface "mist" 'trans .85 'mistc '(0.8 0.8 0.9))
;  (ri-attribute "displacementbound" 'sphere .2 'coordinatesystem "shader")  
;  (displacement "rocksides")
  (casts-shadows #f)
  (color 1 0 0)
  (translate 0 -1.35 -1.5)
  (uscale 0.5)
  (separator
    (sphere)
  )
  (separator
    (translate -.5 .1 0.1)
    (uscale 1.4)
    (sphere)
  )
  (separator
    (translate .9 .1 0.1)
    (uscale 1.75)
    (sphere)
  )
  (separator
    (translate -1 .2 0.1)
    (uscale 1.6)
    (sphere)
  )
  (separator
    (translate -2 .1 0.25)
    (scale 1 1.3 1.2)
    (sphere)
  )
  (separator
    (translate 2 .1 0.1)
    (sphere)
  )
  (separator
    (translate 2.8 .3 -.9)
    (sphere)
  )
  (separator
    (translate -2.9 .8 0.1)
    (sphere)
  )
  (separator
    (translate 3.35 .4 -1.2)
    (sphere)
  )
  (separator
    (translate -3.5 .25 -1)
    (sphere)
  )
  (separator
    (translate 4.4 .35 -1.5)
    (scale 2 1 1)
    (sphere)
  )
  (separator
    (translate 6.25 .05 -1.8)
    (scale 1 1 1)
    (sphere)
  )
  (separator
    (translate -4.5 .1 -1.6)
    (scale 2 1 1)
    (sphere)
  )
)




 
)




;; (render 'display-name "room_assing1" 'display-type  "file" 'format '(512 512))


;(render 'format 256)