www.pudn.com > 3dgprsrc.rar > GROUP.DAT


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