Rendering学習日記

• RenderMan
• 2013.11.17 Sunday

guileで乱数を発生させた。毎回変化させるには、
(set! *random-state* (random-state-from-platform))
を記述しておいた。
(RiColor (Color (random 1.0) (random 1.0) (random 1.0)))
たぶん、0から1までの乱数と思われる。

#!/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)

    (set! *random-state* (random-state-from-platform))

    (let ((n 0))

        (while (< n x)

    (RiTransformBegin)

    (set! posx (+ posx 1 ))

    (RiTranslate posx 0 0 )

    (RiColor (Color (random 1.0) (random 1.0) (random 1.0)))

    (RiSurface "plastic")

    (RiSphere 0.5 -0.5 0.5 360)

    (set! n (+ n 1))

 (RiTransformEnd)

)))



(test 5)



  (RiWorldEnd)

(RiEnd)

• -
• -