group.dat

《3D图形编程指南》一书的原码

type light {int [4]int int int int}
type group {int ptr ptr ptr int ptr}
type application { ptr ptr }

var [2]ptr objects [data/rgb8/poly.dat data/rgb8/bicubic.dat]
var [8]int centres [0 0 300 0  0 -200 700 0]
var [8]int orients [0 0 128 0  0 0 128 0]
var light l1 {1 [0 0 0 0] 20 20 20}
var light l2 {4 [0 0 127 0] 255 255 255}
var [2]ptr lights [l1 l2]

var group group {2 objects centres orients 2 lights}
var application application { group group }

export application