common.pal

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

type pixel byte
type colours [256]{int int int}
type intensities [32][256]pixel
type palette {int ptr ptr}

var colours colours
[
 { 29 34 10 }
 { 40 43 14 }
 { 42 46 8 }
 { 42 45 19 }
 { 49 45 4 }
 { 53 52 6 }
 { 55 51 20 }
 { 57 60 20 }
 { 64 55 12 }
 { 74 57 16 }
 { 74 57 24 }
 { 67 69 11 }
 { 68 66 27 }
 { 75 69 10 }
 { 66 74 28 }
 { 76 74 27 }
 { 71 76 42 }
 { 74 86 14 }
 { 79 84 24 }
 { 76 84 33 }
 { 82 86 12 }
 { 74 87 45 }
 { 90 87 13 }
 { 90 86 28 }
 { 85 87 41 }
 { 123 49 0 }
 { 86 96 33 }
 { 87 99 21 }
 { 99 90 16 }
 { 82 99 41 }
 { 99 90 28 }
 { 90 90 53 }
 { 123 66 0 }
 { 132 49 0 }
 { 99 99 20 }
 { 90 107 24 }
 { 86 97 59 }
 { 99 99 28 }
 { 90 107 33 }
 { 132 57 0 }
 { 90 103 45 }
 { 99 99 45 }
 { 132 66 0 }
 { 99 107 24 }
 { 107 99 24 }
 { 90 101 60 }
 { 140 57 0 }
 { 107 103 33 }
 { 99 111 33 }
 { 99 107 45 }
 { 107 107 24 }
 { 99 103 57 }
 { 107 104 43 }
 { 97 106 66 }
 { 99 115 45 }
 { 144 66 0 }
 { 107 115 24 }
 { 115 107 33 }
 { 107 115 33 }
 { 107 107 57 }
 { 115 107 41 }
 { 107 115 45 }
 { 145 76 0 }
 { 96 111 76 }
 { 115 115 33 }
 { 104 117 57 }
 { 115 115 45 }
 { 156 66 0 }
 { 115 123 33 }
 { 111 123 45 }
 { 156 74 0 }
 { 123 115 45 }
 { 107 119 70 }
 { 99 115 90 }
 { 119 123 45 }
 { 123 119 45 }
 { 117 120 57 }
 { 107 115 82 }
 { 167 63 0 }
 { 160 82 0 }
 { 156 90 0 }
 { 115 132 45 }
 { 107 120 84 }
 { 118 121 69 }
 { 167 74 2 }
 { 115 132 57 }
 { 107 123 86 }
 { 165 82 12 }
 { 123 132 41 }
 { 123 127 57 }
 { 132 123 49 }
 { 123 132 49 }
 { 115 123 82 }
 { 123 123 70 }