write-pbrt-directive ( directive -- )

Vocabulary

pbrt

Inputs

directive

an object

Outputs

None

Definition

IN: pbrt

GENERIC: write-pbrt-directive ( directive -- )

Methods

USING: accessors kernel pbrt pbrt.private ;

M: pbrt-accelerator write-pbrt-directive
    [ type>> ] [ params>> ] bi "Accelerator" write-type-params ;


USING: accessors io pbrt ;

M: pbrt-active-transform write-pbrt-directive
    "ActiveTransform " write mode>> write ;


USING: accessors kernel pbrt pbrt.private ;

M: pbrt-area-light write-pbrt-directive
    [ type>> ] [ params>> ] bi
    "AreaLightSource" write-type-params ;


USING: io kernel pbrt ;

M: pbrt-attribute-begin write-pbrt-directive
    drop "AttributeBegin" write ;


USING: io kernel pbrt ;

M: pbrt-attribute-end write-pbrt-directive
    drop "AttributeEnd" write ;


USING: accessors io kernel pbrt pbrt.private ;

M: pbrt-attribute write-pbrt-directive
    "Attribute " write
    [ target>> write-quoted ] [ params>> write-params ] bi ;


USING: accessors kernel pbrt pbrt.private ;

M: pbrt-camera write-pbrt-directive
    [ type>> ] [ params>> ] bi "Camera" write-type-params ;


USING: accessors io pbrt pbrt.private ;

M: pbrt-color-space write-pbrt-directive
    "ColorSpace " write name>> write-quoted ;


USING: accessors io pbrt pbrt.private ;

M: pbrt-concat-transform write-pbrt-directive
    "ConcatTransform [" write matrix>> write-numbers " ]" write
    ;


USING: accessors io pbrt pbrt.private ;

M: pbrt-coord-sys-transform write-pbrt-directive
    "CoordSysTransform " write name>> write-quoted ;


USING: accessors io pbrt pbrt.private ;

M: pbrt-coordinate-system write-pbrt-directive
    "CoordinateSystem " write name>> write-quoted ;


USING: accessors kernel pbrt pbrt.private ;

M: pbrt-film write-pbrt-directive
    [ type>> ] [ params>> ] bi "Film" write-type-params ;


USING: io kernel pbrt ;

M: pbrt-identity write-pbrt-directive drop "Identity" write ;


USING: accessors io pbrt pbrt.private ;

M: pbrt-import write-pbrt-directive
    "Import " write filename>> write-quoted ;


USING: accessors io pbrt pbrt.private ;

M: pbrt-include write-pbrt-directive
    "Include " write filename>> write-quoted ;


USING: accessors kernel pbrt pbrt.private ;

M: pbrt-integrator write-pbrt-directive
    [ type>> ] [ params>> ] bi "Integrator" write-type-params ;


USING: accessors kernel pbrt pbrt.private ;

M: pbrt-light-source write-pbrt-directive
    [ type>> ] [ params>> ] bi "LightSource" write-type-params ;


USING: accessors combinators.smart io pbrt pbrt.private ;

M: pbrt-look-at write-pbrt-directive
    "LookAt" write {
        [ eye-x>> ]
        [ eye-y>> ]
        [ eye-z>> ]
        [ look-x>> ]
        [ look-y>> ]
        [ look-z>> ]
        [ up-x>> ]
        [ up-y>> ]
        [ up-z>> ]
    } cleave>array write-numbers ;


USING: accessors io kernel pbrt pbrt.private ;

M: pbrt-make-named-medium write-pbrt-directive
    "MakeNamedMedium" write
    [ " " write name>> write-quoted ] [ params>> write-params ]
    bi ;


USING: accessors kernel pbrt pbrt.private ;

M: pbrt-material write-pbrt-directive
    [ type>> ] [ params>> ] bi "Material" write-type-params ;


USING: accessors io kernel pbrt pbrt.private ;

M: pbrt-medium-interface write-pbrt-directive
    "MediumInterface" write
    [ " " write interior>> write-quoted ]
    [ " " write exterior>> write-quoted ] bi ;


USING: accessors io kernel pbrt pbrt.private ;

M: pbrt-named-material write-pbrt-directive
    "MakeNamedMaterial" write
    [ " " write name>> write-quoted ] [ params>> write-params ]
    bi ;


USING: accessors io pbrt pbrt.private ;

M: pbrt-object-begin write-pbrt-directive
    "ObjectBegin " write name>> write-quoted ;


USING: io kernel pbrt ;

M: pbrt-object-end write-pbrt-directive drop "ObjectEnd" write ;


USING: accessors io pbrt pbrt.private ;

M: pbrt-object-instance write-pbrt-directive
    "ObjectInstance " write name>> write-quoted ;


USING: accessors kernel pbrt pbrt.private ;

M: pbrt-option write-pbrt-directive
    [ type>> ] [ params>> ] bi "Option" write-type-params ;


USING: accessors kernel pbrt pbrt.private ;

M: pbrt-pixel-filter write-pbrt-directive
    [ type>> ] [ params>> ] bi "PixelFilter" write-type-params ;


USING: io kernel pbrt ;

M: pbrt-reverse-orientation write-pbrt-directive
    drop "ReverseOrientation" write ;


USING: accessors combinators.smart io pbrt pbrt.private ;

M: pbrt-rotate write-pbrt-directive
    "Rotate" write
    { [ angle>> ] [ x>> ] [ y>> ] [ z>> ] } cleave>array
    write-numbers ;


USING: accessors kernel pbrt pbrt.private ;

M: pbrt-sampler write-pbrt-directive
    [ type>> ] [ params>> ] bi "Sampler" write-type-params ;


USING: accessors combinators.smart io pbrt pbrt.private ;

M: pbrt-scale write-pbrt-directive
    "Scale" write { [ x>> ] [ y>> ] [ z>> ] } cleave>array
    write-numbers ;


USING: accessors kernel pbrt pbrt.private ;

M: pbrt-shape write-pbrt-directive
    [ type>> ] [ params>> ] bi "Shape" write-type-params ;


USING: accessors combinators io pbrt pbrt.private ;

M: pbrt-texture write-pbrt-directive
    {
        [ "Texture " write name>> write-quoted ]
        [ " " write value-type>> write-quoted ]
        [ " " write class>> write-quoted ]
        [ params>> write-params ]
    } cleave ;


USING: io kernel pbrt ;

M: pbrt-transform-begin write-pbrt-directive
    drop "TransformBegin" write ;


USING: io kernel pbrt ;

M: pbrt-transform-end write-pbrt-directive
    drop "TransformEnd" write ;


USING: accessors io kernel pbrt pbrt.private ;

M: pbrt-transform-times write-pbrt-directive
    "TransformTimes" write
    [ " " write start>> write-number ]
    [ " " write end>> write-number ] bi ;


USING: accessors io pbrt pbrt.private ;

M: pbrt-transform write-pbrt-directive
    "Transform [" write matrix>> write-numbers " ]" write ;


USING: accessors combinators.smart io pbrt pbrt.private ;

M: pbrt-translate write-pbrt-directive
    "Translate" write { [ x>> ] [ y>> ] [ z>> ] } cleave>array
    write-numbers ;


USING: accessors io pbrt pbrt.private ;

M: pbrt-use-material write-pbrt-directive
    "NamedMaterial" write " " write name>> write-quoted ;


USING: io kernel pbrt ;

M: pbrt-world-begin write-pbrt-directive
    drop "WorldBegin" write ;


USING: io kernel pbrt ;

M: pbrt-world-end write-pbrt-directive drop "WorldEnd" write ;