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/rgb16/bicubic.dat data/rgb16/poly.dat]
var [8]int centres [-50 -50 700 0  50 50 700 0]
var [8]int orients [14 48 14 0  54 54 0 0]
var light l1 {1 [0 0 0 0] 40 40 40}
var light l2 {4 [0 0 127 0] 230 230 230}
var [2]ptr lights [l1 l2]
var group group {2 objects centres orients 2 lights}
var application application { group group }

export application