Rendering学習日記

• RenderMan
• 2013.11.17 Sunday

球体の色を徐々に変化させてみた。
guile-rmanとAqsis1.6　(CentOS6.4 64bitで稼働。)

#!/usr/bin/guile -s

!#



(use-modules (rman rispec))

(use-modules (rman utilities))



(RiBegin "test7.rib")

  (RiDisplay "sphere7.tif" "file" "rgb")

  (RiFormat 640 480 1)

  (RiProjection "perspective" '("fov" 40.0))

  (RiTranslate 0 0 6)

  (RiPixelFilter RiBoxFilter 1 1)

  (RiWorldBegin)

      (RiLightSource "ambientlight" (list "intensity" 0.2))

      (RiLightSource "distantlight" (list "intensity" 1.2 

                                        "uniform point from"  (Point 3 3 -3)))



(define (test x)

    (define posx -3)

    (define col 0.2)

    (define col2 0.9)

    (let ((n 0))

        (while (< n x)

    (RiTransformBegin)

    (set! posx (+ posx 1 ))

    (RiTranslate posx 0 0 )

    (set! col (+ col .2))

    (set! col2 (- col2 .2))

    (RiColor (Color col .2 col2))

    (RiSurface "plastic")

    (RiSphere 0.5 -0.5 0.5 360)

    (set! n (+ n 1))

 (RiTransformEnd)

)))



(test 5)



  (RiWorldEnd)

(RiEnd)

• -
• -