poly.dat

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

type pixel short
type polygon { int pixel int int int int ptr int ptr ptr }
type polygon_object { int ptr int ptr int ptr int ptr }

var int opt 0x1
var pixel colour 0xff00
var int texture_size 8
var ptr texture data/rgb16/wood.pic
var [348]int vertices
[
 -120 95 -147 0
 -120 -55 -147 0
 -120 -55 -77 0
 -120 95 -77 0
 -40 95 -147 0
 -40 95 -77 0
 -40 -55 -77 0
 -40 -55 -147 0
 -90 45 -67 0
 -90 -105 -67 0
 -90 -105 3 0
 -90 45 3 0
 -10 45 3 0
 -10 45 -67 0
 -10 -105 3 0
 -10 -105 -67 0
 70 45 -197 0
 70 -105 -197 0
 70 -105 -127 0
 70 45 -127 0
 150 45 -127 0
 150 45 -197 0
 150 -105 -127 0
 150 -105 -197 0
 70 105 43 0
 70 -45 43 0
 70 -45 113 0
 70 105 113 0
 150 105 113 0
 150 105 43 0
 150 -45 113 0
 150 -45 43 0
 80 20 -127 0
 80 20 43 0
 80 -20 43 0
 80 -20 -127 0
 140 -20 -127 0
 140 20 -127 0
 140 20 43 0
 140 -20 43 0
 -150 55 -67 0
 50 55 -67 0
 50 80 -67 0
 -150 80 -67 0
 -55 55 23 0
 20 55 23 0
 20 80 23 0
 -55 80 23 0
 -55 80 83 0
 20 80 83 0
 20 55 83 0
 -55 55 83 0
 50 55 23 0
 -150 55 23 0
 -150 80 23 0
 50 55 83 0
 -150 55 83 0
 -150 55 153 0
 50 55 153 0
 50 80 153 0
 -150 80 153 0
 -150 80 83 0
 -150 -85 153 0
 -150 -85 108 0
 -150 55 108 0
 -95 55 108 0
 -95 -85 108 0
 -95 -85 153 0
 -95 55 153 0
 -115 -20 168 0
 115 -20 168 0
 115 -50 168 0
 -115 -50 168 0
 -115 -50 198 0
 115 -50 198 0
 115 -20 198 0
 -115 -20 198 0
 50 80 23 0
 50 80 83 0
 20 80 153 0
 -55 80 153 0
 -55 80 -67 0
 20 80 -67 0
 20 55 -67 0
 -55 55 -67 0
 -55 55 153 0
 20 55 153 0
]
var [30]int v0 [0 0 0 0 0 0  1 0 0 0 150 0  2 0 0 0 150 70  3 0 0 0 0 70  0 0 0 0 0 0]
var polygon p0 {@opt @colour 0 0 0 @texture_size @texture 4 v0 0}
var [30]int v1 [0 0 0 0 0 0  3 0 0 0 70 0  5 0 0 0 70 80  4 0 0 0 0 80  0 0 0 0 0 0]
var polygon p1 {@opt @colour 0 0 0 @texture_size @texture 4 v1 0}
var [30]int v2 [3 0 0 0 0 0  2 0 0 0 150 0  6 0 0 0 150 80  5 0 0 0 0 80  3 0 0 0 0 0]
var polygon p2 {@opt @colour 0 0 0 @texture_size @texture 4 v2 0}
var [30]int v3 [4 0 0 0 0 0  7 0 0 0 150 0  1 0 0 0 150 80  0 0 0 0 0 80  4 0 0 0 0 0]
var polygon p3 {@opt @colour 0 0 0 @texture_size @texture 4 v3 0}
var [30]int v4 [7 0 0 0 0 0  4 0 0 0 150 0  5 0 0 0 150 70  6 0 0 0 0 70  7 0 0 0 0 0]
var polygon p4 {@opt @colour 0 0 0 @texture_size @texture 4 v4 0}
var [30]int v5 [7 0 0 0 0 0  6 0 0 0 70 0  2 0 0 0 70 80  1 0 0 0 0 80  7 0 0 0 0 0]
var polygon p5 {@opt @colour 0 0 0 @texture_size @texture 4 v5 0}
var [30]int v6 [8 0 0 0 0 0  9 0 0 0 150 0  10 0 0 0 150 70  11 0 0 0 0 70  8 0 0 0 0 0]
var polygon p6 {@opt @colour 0 0 0 @texture_size @texture 4 v6 0}
var [30]int v7 [8 0 0 0 0 0  11 0 0 0 70 0  12 0 0 0 70 80  13 0 0 0 0 80  8 0 0 0 0 0]
var polygon p7 {@opt @colour 0 0 0 @texture_size @texture 4 v7 0}
var [30]int v8 [11 0 0 0 0 0  10 0 0 0 150 0  14 0 0 0 150 80  12 0 0 0 0 80  11 0 0 0 0 0]
var polygon p8 {@opt @colour 0 0 0 @texture_size @texture 4 v8 0}
var [30]int v9 [13 0 0 0 0 0  15 0 0 0 150 0  9 0 0 0 150 80  8 0 0 0 0 80  13 0 0 0 0 0]
var polygon p9 {@opt @colour 0 0 0 @texture_size @texture 4 v9 0}
var [30]int v10 [15 0 0 0 0 0  13 0 0 0 150 0  12 0 0 0 150 70  14 0 0 0 0 70  15 0 0 0 0 0]
var polygon p10 {@opt @colour 0 0 0 @texture_size @texture 4 v10 0}
var [30]int v11 [15 0 0 0 0 0  14 0 0 0 70 0  10 0 0 0 70 80  9 0 0 0 0 80  15 0 0 0 0 0]
var polygon p11 {@opt @colour 0 0 0 @texture_size @texture 4 v11 0}
var [30]int v12 [16 0 0 0 0 0  17 0 0 0 150 0  18 0 0 0 150 70  19 0 0 0 0 70  16 0 0 0 0 0]
var polygon p12 {@opt @colour 0 0 0 @texture_size @texture 4 v12 0}
var [30]int v13 [16 0 0 0 0 0  19 0 0 0 70 0  20 0 0 0 70 80  21 0 0 0 0 80  16 0 0 0 0 0]
var polygon p13 {@opt @colour 0 0 0 @texture_size @texture 4 v13 0}
var [30]int v14 [19 0 0 0 0 0  18 0 0 0 150 0  22 0 0 0 150 80  20 0 0 0 0 80  19 0 0 0 0 0]
var polygon p14 {@opt @colour 0 0 0 @texture_size @texture 4 v14 0}
var [30]int v15 [21 0 0 0 0 0  23 0 0 0 150 0  17 0 0 0 150 80  16 0 0 0 0 80  21 0 0 0 0 0]
var polygon p15 {@opt @colour 0 0 0 @texture_size @texture 4 v15 0}
var [30]int v16 [23 0 0 0 0 0  21 0 0 0 150 0  20 0 0 0 150 70  22 0 0 0 0 70  23 0 0 0 0 0]
var polygon p16 {@opt @colour 0 0 0 @texture_size @texture 4 v16 0}
var [30]int v17 [23 0 0 0 0 0  22 0 0 0 70 0  18 0 0 0 70 80  17 0 0 0 0 80  23 0 0 0 0 0]
var polygon p17 {@opt @colour 0 0 0 @texture_size @texture 4 v17 0}
var [30]int v18 [24 0 0 0 0 0  25 0 0 0 150 0  26 0 0 0 150 70  27 0 0 0 0 70  24 0 0 0 0 0]
var polygon p18 {@opt @colour 0 0 0 @texture_size @texture 4 v18 0}
var [30]int v19 [24 0 0 0 0 0  27 0 0 0 70 0  28 0 0 0 70 80  29 0 0 0 0 80  24 0 0 0 0 0]
var polygon p19 {@opt @colour 0 0 0 @texture_size @texture 4 v19 0}
var [30]int v20 [27 0 0 0 0 0  26 0 0 0 150 0  30 0 0 0 150 80  28 0 0 0 0 80  27 0 0 0 0 0]
var polygon p20 {@opt @colour 0 0 0 @texture_size @texture 4 v20 0}
var [30]int v21 [29 0 0 0 0 0  31 0 0 0 150 0  25 0 0 0 150 80  24 0 0 0 0 80  29 0 0 0 0 0]
var polygon p21 {@opt @colour 0 0 0 @texture_size @texture 4 v21 0}
var [30]int v22 [31 0 0 0 0 0  29 0 0 0 150 0  28 0 0 0 150 70  30 0 0 0 0 70  31 0 0 0 0 0]
var polygon p22 {@opt @colour 0 0 0 @texture_size @texture 4 v22 0}
var [30]int v23 [31 0 0 0 0 0  30 0 0 0 70 0  26 0 0 0 70 80  25 0 0 0 0 80  31 0 0 0 0 0]
var polygon p23 {@opt @colour 0 0 0 @texture_size @texture 4 v23 0}
var [30]int v24 [32 0 0 0 0 0  35 0 0 0 40 0  34 0 0 0 40 170  33 0 0 0 0 170  32 0 0 0 0 0]
var polygon p24 {@opt @colour 0 0 0 @texture_size @texture 4 v24 0}
var [30]int v25 [36 0 0 0 0 0  37 0 0 0 40 0  38 0 0 0 40 170  39 0 0 0 0 170  36 0 0 0 0 0]
var polygon p25 {@opt @colour 0 0 0 @texture_size @texture 4 v25 0}
var [30]int v26 [34 0 0 0 0 0  35 0 0 0 170 0  36 0 0 0 170 60  39 0 0 0 0 60  34 0 0 0 0 0]
var polygon p26 {@opt @colour 0 0 0 @texture_size @texture 4 v26 0}
var [30]int v27 [32 0 0 0 0 0  33 0 0 0 170 0  38 0 0 0 170 60  37 0 0 0 0 60  32 0 0 0 0 0]
var polygon p27 {@opt @colour 0 0 0 @texture_size @texture 4 v27 0}
var [30]int v28 [40 0 0 0 0 0  43 0 0 0 25 0  42 0 0 0 25 200  41 0 0 0 0 200  40 0 0 0 0 0]
var polygon p28 {@opt @colour 0 0 0 @texture_size @texture 4 v28 0}
var [30]int v29 [44 0 0 0 0 0  45 0 0 0 75 0  46 0 0 0 75 25  47 0 0 0 0 25  44 0 0 0 0 0]
var polygon p29 {@opt @colour 0 0 0 @texture_size @texture 4 v29 0}
var [30]int v30 [48 0 0 0 0 0  49 0 0 0 75 0  50 0 0 0 75 25  51 0 0 0 0 25  48 0 0 0 0 0]
var polygon p30 {@opt @colour 0 0 0 @texture_size @texture 4 v30 0}
var [30]int v31 [44 0 0 0 0 0  47 0 0 0 25 0  48 0 0 0 25 60  51 0 0 0 0 60  44 0 0 0 0 0]
var polygon p31 {@opt @colour 0 0 0 @texture_size @texture 4 v31 0}
var [30]int v32 [46 0 0 0 0 0  45 0 0 0 25 0  50 0 0 0 25 60  49 0 0 0 0 60  46 0 0 0 0 0]
var polygon p32 {@opt @colour 0 0 0 @texture_size @texture 4 v32 0}
var [30]int v33 [52 0 0 0 0 0  55 0 0 0 60 0  50 0 0 0 60 30  45 0 0 0 0 30  52 0 0 0 0 0]
var polygon p33 {@opt @colour 0 0 0 @texture_size @texture 4 v33 0}
var [30]int v34 [51 0 0 0 0 0  56 0 0 0 95 0  53 0 0 0 95 60  44 0 0 0 0 60  51 0 0 0 0 0]
var polygon p34 {@opt @colour 0 0 0 @texture_size @texture 4 v34 0}
var [30]int v35 [61 0 0 0 0 0  48 0 0 0 95 0  47 0 0 0 95 60  54 0 0 0 0 60  61 0 0 0 0 0]
var polygon p35 {@opt @colour 0 0 0 @texture_size @texture 4 v35 0}
var [30]int v36 [60 0 0 0 0 0  57 0 0 0 25 0  58 0 0 0 25 200  59 0 0 0 0 200  60 0 0 0 0 0]
var polygon p36 {@opt @colour 0 0 0 @texture_size @texture 4 v36 0}
var [30]int v37 [59 0 0 0 0 0  58 0 0 0 25 0  41 0 0 0 25 220  42 0 0 0 0 220  59 0 0 0 0 0]
var polygon p37 {@opt @colour 0 0 0 @texture_size @texture 4 v37 0}
var [30]int v38 [57 0 0 0 0 0  64 0 0 0 45 0  63 0 0 0 45 140  62 0 0 0 0 140  57 0 0 0 0 0]
var polygon p38 {@opt @colour 0 0 0 @texture_size @texture 4 v38 0}
var [30]int v39 [65 0 0 0 0 0  68 0 0 0 45 0  67 0 0 0 45 140  66 0 0 0 0 140  65 0 0 0 0 0]
var polygon p39 {@opt @colour 0 0 0 @texture_size @texture 4 v39 0}
var [30]int v40 [57 0 0 0 0 0  62 0 0 0 140 0  67 0 0 0 140 55  68 0 0 0 0 55  57 0 0 0 0 0]
var polygon p40 {@opt @colour 0 0 0 @texture_size @texture 4 v40 0}
var [30]int v41 [63 0 0 0 0 0  64 0 0 0 140 0  65 0 0 0 140 55  66 0 0 0 0 55  63 0 0 0 0 0]
var polygon p41 {@opt @colour 0 0 0 @texture_size @texture 4 v41 0}
var [30]int v42 [63 0 0 0 0 0  66 0 0 0 55 0  67 0 0 0 55 45  62 0 0 0 0 45  63 0 0 0 0 0]
var polygon p42 {@opt @colour 0 0 0 @texture_size @texture 4 v42 0}
var [30]int v43 [69 0 0 0 0 0  70 0 0 0 230 0  71 0 0 0 230 30  72 0 0 0 0 30  69 0 0 0 0 0]
var polygon p43 {@opt @colour 0 0 0 @texture_size @texture 4 v43 0}
var [30]int v44 [73 0 0 0 0 0  74 0 0 0 230 0  75 0 0 0 230 30  76 0 0 0 0 30  73 0 0 0 0 0]
var polygon p44 {@opt @colour 0 0 0 @texture_size @texture 4 v44 0}
var [30]int v45 [69 0 0 0 0 0  76 0 0 0 30 0  75 0 0 0 30 230  70 0 0 0 0 230  69 0 0 0 0 0]
var polygon p45 {@opt @colour 0 0 0 @texture_size @texture 4 v45 0}
var [30]int v46 [73 0 0 0 0 0  72 0 0 0 30 0  71 0 0 0 30 230  74 0 0 0 0 230  73 0 0 0 0 0]
var polygon p46 {@opt @colour 0 0 0 @texture_size @texture 4 v46 0}
var [30]int v47 [71 0 0 0 0 0  70 0 0 0 30 0  75 0 0 0 30 30  74 0 0 0 0 30  71 0 0 0 0 0]
var polygon p47 {@opt @colour 0 0 0 @texture_size @texture 4 v47 0}
var [30]int v48 [69 0 0 0 0 0  72 0 0 0 30 0  73 0 0 0 30 30  76 0 0 0 0 30  69 0 0 0 0 0]
var polygon p48 {@opt @colour 0 0 0 @texture_size @texture 4 v48 0}
var [30]int v49 [49 0 0 0 0 0  79 0 0 0 70 0  59 0 0 0 70 30  78 0 0 0 0 30  49 0 0 0 0 0]
var polygon p49 {@opt @colour 0 0 0 @texture_size @texture 4 v49 0}
var [30]int v50 [48 0 0 0 0 0  80 0 0 0 70 0  79 0 0 0 70 75  49 0 0 0 0 75  48 0 0 0 0 0]
var polygon p50 {@opt @colour 0 0 0 @texture_size @texture 4 v50 0}
var [30]int v51 [48 0 0 0 0 0  61 0 0 0 95 0  60 0 0 0 95 70  80 0 0 0 0 70  48 0 0 0 0 0]
var polygon p51 {@opt @colour 0 0 0 @texture_size @texture 4 v51 0}
var [30]int v52 [43 0 0 0 0 0  54 0 0 0 90 0  47 0 0 0 90 95  81 0 0 0 0 95  43 0 0 0 0 0]
var polygon p52 {@opt @colour 0 0 0 @texture_size @texture 4 v52 0}
var [30]int v53 [81 0 0 0 0 0  47 0 0 0 90 0  46 0 0 0 90 75  82 0 0 0 0 75  81 0 0 0 0 0]
var polygon p53 {@opt @colour 0 0 0 @texture_size @texture 4 v53 0}
var [30]int v54 [82 0 0 0 0 0  46 0 0 0 90 0  77 0 0 0 90 30  42 0 0 0 0 30  82 0 0 0 0 0]
var polygon p54 {@opt @colour 0 0 0 @texture_size @texture 4 v54 0}
var [30]int v55 [41 0 0 0 0 0  52 0 0 0 90 0  45 0 0 0 90 30  83 0 0 0 0 30  41 0 0 0 0 0]
var polygon p55 {@opt @colour 0 0 0 @texture_size @texture 4 v55 0}
var [30]int v56 [45 0 0 0 0 0  44 0 0 0 75 0  84 0 0 0 75 90  83 0 0 0 0 90  45 0 0 0 0 0]
var polygon p56 {@opt @colour 0 0 0 @texture_size @texture 4 v56 0}
var [30]int v57 [44 0 0 0 0 0  53 0 0 0 95 0  40 0 0 0 95 90  84 0 0 0 0 90  44 0 0 0 0 0]
var polygon p57 {@opt @colour 0 0 0 @texture_size @texture 4 v57 0}
var [30]int v58 [57 0 0 0 0 0  56 0 0 0 70 0  51 0 0 0 70 95  85 0 0 0 0 95  57 0 0 0 0 0]
var polygon p58 {@opt @colour 0 0 0 @texture_size @texture 4 v58 0}
var [30]int v59 [85 0 0 0 0 0  51 0 0 0 70 0  50 0 0 0 70 75  86 0 0 0 0 75  85 0 0 0 0 0]
var polygon p59 {@opt @colour 0 0 0 @texture_size @texture 4 v59 0}
var [30]int v60 [86 0 0 0 0 0  50 0 0 0 70 0  55 0 0 0 70 30  58 0 0 0 0 30  86 0 0 0 0 0]
var polygon p60 {@opt @colour 0 0 0 @texture_size @texture 4 v60 0}
var [30]int v61 [40 0 0 0 0 0  57 0 0 0 220 0  60 0 0 0 220 25  43 0 0 0 0 25  40 0 0 0 0 0]
var polygon p61 {@opt @colour 0 0 0 @texture_size @texture 4 v61 0}
var [30]int v62 [58 0 0 0 0 0  41 0 0 0 220 0  42 0 0 0 220 25  59 0 0 0 0 25  58 0 0 0 0 0]
var polygon p62 {@opt @colour 0 0 0 @texture_size @texture 4 v62 0}
var [30]int v63 [46 0 0 0 0 0  49 0 0 0 60 0  78 0 0 0 60 30  77 0 0 0 0 30  46 0 0 0 0 0]
var polygon p63 {@opt @colour 0 0 0 @texture_size @texture 4 v63 0}
var [64]ptr polygons [p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38 p39 p40 p41 p42 p43 p44 p45 p46 p47 p48 p49 p50 p51 p52 p53 p54 p55 p56 p57 p58 p59 p60 p61 p62 p63 ]
var polygon_object object {1 0 64 polygons 87 vertices 0 0}

export object