equal
deleted
inserted
replaced
19 |
19 |
20 Depth1Image comment:' |
20 Depth1Image comment:' |
21 COPYRIGHT (c) 1993 by Claus Gittinger |
21 COPYRIGHT (c) 1993 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.12 1995-03-18 05:10:16 claus Exp $ |
24 $Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.13 1995-10-23 16:58:41 cg Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !Depth1Image class methodsFor:'documentation'! |
27 !Depth1Image class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.12 1995-03-18 05:10:16 claus Exp $ |
45 $Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.13 1995-10-23 16:58:41 cg Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
450 this is easy, since Form already supports colorMaps |
450 this is easy, since Form already supports colorMaps |
451 " |
451 " |
452 f := Form width:width height:height fromArray:bytes. |
452 f := Form width:width height:height fromArray:bytes. |
453 f colorMap:colorMap. |
453 f colorMap:colorMap. |
454 ^ f |
454 ^ f |
|
455 ! |
|
456 |
|
457 paletteImageAsTrueColorFormOn:aDevice |
|
458 "since all devices must support monochrome images, and |
|
459 a 2-entry colormap is implemented by ST/X's drawForm methods, |
|
460 we can do this on all color devices as a palette image." |
|
461 |
|
462 ^ self paletteImageAsPseudoFormOn:aDevice |
455 ! ! |
463 ! ! |
456 |
464 |
457 !Depth1Image methodsFor:'magnification'! |
465 !Depth1Image methodsFor:'magnification'! |
458 |
466 |
459 magnifyRowFrom:srcBytes offset:srcStart |
467 magnifyRowFrom:srcBytes offset:srcStart |