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/rgb32/bicubic.dat data/rgb32/poly.dat]
var [8]int centres [0 0 0 0  0 0 0 0]
var [8]int orients [0 0 0 0  0 0 0 0]
var light l1 {1 [0 0 0 0] 15 15 15}
var light l2 {2 [0 0 80 0] 250 250 250}
var light l3 {2 [-500 -500 0 0] 110 110 110}
var [3]ptr lights [l1 l2 l3]

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

export application