1136 |
1136 |
1137 "Note: It is slow to build this palette, so it should be cached for quick access." |
1137 "Note: It is slow to build this palette, so it should be cached for quick access." |
1138 "(Color colorPaletteForDepth: 16 extent: 190@60) display" |
1138 "(Color colorPaletteForDepth: 16 extent: 190@60) display" |
1139 |
1139 |
1140 | basicHue x y c startHue palette transHt vSteps transCaption grayWidth hSteps | |
1140 | basicHue x y c startHue palette transHt vSteps transCaption grayWidth hSteps | |
1141 Smalltalk isSmalltalkX ifTrue:[ |
1141 |
|
1142 "/ Smalltalk isSmalltalkX ifTrue:[ |
1142 palette := Image extent:chartExtent depth:24. |
1143 palette := Image extent:chartExtent depth:24. |
1143 palette photometric:#rgb. |
1144 palette photometric:#rgb. |
1144 palette data:(ByteArray new:chartExtent x * chartExtent y * 3). |
1145 palette data:(ByteArray new:chartExtent x * chartExtent y * 3). |
1145 ] ifFalse:[ |
1146 "/ ] ifFalse:[ |
1146 palette := Form extent: chartExtent depth: depth. |
1147 "/ palette := Form extent: chartExtent depth: depth. |
1147 ]. |
1148 "/ ]. |
1148 transCaption := "(DisplayText text: 'no color' asText textStyle: (TextConstants at: #ComicPlain)) form storeString" |
1149 transCaption := "(DisplayText text: 'no color' asText textStyle: (TextConstants at: #ComicPlain)) form storeString" |
1149 (Form extent: 34@9 depth: 1 |
1150 (Form extent: 34@9 depth: 1 |
1150 fromArray: #(0 0 256 0 256 0 3808663859 2147483648 2491688266 2147483648 2491688266 0 2491688266 0 2466486578 0 0 0) |
1151 fromArray: #(0 0 256 0 256 0 3808663859 2147483648 2491688266 2147483648 2491688266 0 2491688266 0 2466486578 0 0 0) |
1151 offset: 0@0). |
1152 offset: 0@0). |
1152 transHt := transCaption height. |
1153 transHt := transCaption height. |