group.dat

来自「《3D图形编程指南》一书的原码」· DAT 代码 · 共 16 行

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

var [2]ptr objects [data/ci8/poly.dat data/ci8/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] 0}
var light l2 {4 [0 0 127 0] 31}
var [2]ptr lights [l1 l2]

var group group {2 objects centres orients 2 lights}
var application application { group data/ci8/common.pal }

export application