ImageEditor.st
changeset 2571 8b182cc4cac7
parent 2567 903843f8a824
child 2572 1c09be361688
equal deleted inserted replaced
2570:4e663bc64364 2571:8b182cc4cac7
   171     [:g|                             
   171     [:g|                             
   172         colorMap add: (Color redByte: (g*255//26) ceiling greenByte: (g*255//26) ceiling blueByte: (g*255//26) ceiling)
   172         colorMap add: (Color redByte: (g*255//26) ceiling greenByte: (g*255//26) ceiling blueByte: (g*255//26) ceiling)
   173     ].
   173     ].
   174 
   174 
   175     ^ Dictionary new
   175     ^ Dictionary new
       
   176         at: #depth32 put:(FixedPalette redShift:16 redMask:16rFF greenShift:8 greenMask:16rFF blueShift:0 blueMask:16rFF);
   176         at: #depth24 put:(FixedPalette redShift:16 redMask:16rFF greenShift:8 greenMask:16rFF blueShift:0 blueMask:16rFF);
   177         at: #depth24 put:(FixedPalette redShift:16 redMask:16rFF greenShift:8 greenMask:16rFF blueShift:0 blueMask:16rFF);
   177         at: #masked24 put:(FixedPalette redShift:16 redMask:16rFF greenShift:8 greenMask:16rFF blueShift:0 blueMask:16rFF);
   178         at: #masked24 put:(FixedPalette redShift:16 redMask:16rFF greenShift:8 greenMask:16rFF blueShift:0 blueMask:16rFF);
   178         at: #depth16 put:(FixedPalette redShift:11 redMask:16r1F greenShift:5 greenMask:16r3F blueShift:0 blueMask:16r1F);
   179         at: #depth16 put:(FixedPalette redShift:11 redMask:16r1F greenShift:5 greenMask:16r3F blueShift:0 blueMask:16r1F);
   179         at: #masked16 put:(FixedPalette redShift:11 redMask:16r1F greenShift:5 greenMask:16r3F blueShift:0 blueMask:16r1F);
   180         at: #masked16 put:(FixedPalette redShift:11 redMask:16r1F greenShift:5 greenMask:16r3F blueShift:0 blueMask:16r1F);
   180         at: #depth8  put: colorMap;
   181         at: #depth8  put: colorMap;
   196     "Modified: / 31.7.1998 / 01:57:34 / cg"
   197     "Modified: / 31.7.1998 / 01:57:34 / cg"
   197 !
   198 !
   198 
   199 
   199 namesOfColorMaps
   200 namesOfColorMaps
   200     ^ Dictionary new
   201     ^ Dictionary new
       
   202         at: #depth32 put: '32-plane (rgba)';
   201         at: #depth24 put: '24-plane';
   203         at: #depth24 put: '24-plane';
   202         at: #masked24 put: '24-plane + mask';
   204         at: #masked24 put: '24-plane + mask';
   203         at: #depth16 put: '16-plane';
   205         at: #depth16 put: '16-plane';
   204         at: #masked16 put: '16-plane + mask';
   206         at: #masked16 put: '16-plane + mask';
   205         at: #depth8  put: ' 8-plane';
   207         at: #depth8  put: ' 8-plane';
   316 #colorMap8
   318 #colorMap8
   317 'Convert to depth-8 image.'
   319 'Convert to depth-8 image.'
   318 
   320 
   319 #colorMap8M
   321 #colorMap8M
   320 'Convert to depth-8 image plus mask.'
   322 'Convert to depth-8 image plus mask.'
       
   323 
       
   324 #colorMap24
       
   325 'Convert to depth-24 image (rgb).'
       
   326 
       
   327 #colorMap32
       
   328 'Convert to depth-32 image (rgba).'
   321 
   329 
   322 #colorMapTable
   330 #colorMapTable
   323 'Shows a list of used colors of the image.'
   331 'Shows a list of used colors of the image.'
   324 
   332 
   325 #compressColormap
   333 #compressColormap
  1873                         translateLabel: true
  1881                         translateLabel: true
  1874                         argument: masked24
  1882                         argument: masked24
  1875                         choice: colorMapMode
  1883                         choice: colorMapMode
  1876                         choiceValue: masked24
  1884                         choiceValue: masked24
  1877                       )
  1885                       )
       
  1886                      (MenuItem
       
  1887                         label: '-'
       
  1888                       )
       
  1889                      (MenuItem
       
  1890                         activeHelpKey: colorMap32
       
  1891                         label: '32-Plane (rgba)'
       
  1892                         itemValue: colorMapMode:
       
  1893                         translateLabel: true
       
  1894                         argument: depth32
       
  1895                         choice: colorMapMode
       
  1896                         choiceValue: depth32
       
  1897                       )
  1878                      )
  1898                      )
  1879                     nil
  1899                     nil
  1880                     nil
  1900                     nil
  1881                   )
  1901                   )
  1882                 )
  1902                 )