equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libview' }" |
12 "{ Package: 'stx:libview' }" |
14 |
13 |
15 Image subclass:#Depth2Image |
14 Image subclass:#Depth2Image |
16 instanceVariableNames:'' |
15 instanceVariableNames:'' |
17 classVariableNames:'' |
16 classVariableNames:'' |
443 |
442 |
444 imageBits isNil ifTrue:[ |
443 imageBits isNil ifTrue:[ |
445 ^ nil |
444 ^ nil |
446 ]. |
445 ]. |
447 |
446 |
448 form := Form width:width height:height depth:usedDeviceDepth on:aDevice. |
447 form := Form width:width height:height depth:usedDeviceDepth onDevice:aDevice. |
449 form isNil ifTrue:[^ nil]. |
448 form isNil ifTrue:[^ nil]. |
450 form initGC. |
449 form initGC. |
451 |
450 |
452 form |
451 form |
453 copyBitsFrom:imageBits |
452 copyBitsFrom:imageBits |
458 x:0 y:0 |
457 x:0 y:0 |
459 toX:0 y:0. |
458 toX:0 y:0. |
460 |
459 |
461 ^ form |
460 ^ form |
462 |
461 |
463 "Created: 20.10.1995 / 22:05:10 / cg" |
462 "Created: / 20-10-1995 / 22:05:10 / cg" |
464 "Modified: 21.10.1995 / 19:30:26 / cg" |
463 "Modified: / 29-05-2007 / 19:22:29 / cg" |
465 ! |
464 ! |
466 |
465 |
467 greyImageAsTrueColorFormOn:aDevice |
466 greyImageAsTrueColorFormOn:aDevice |
468 "return a true-color device-form for the grey-image receiver. |
467 "return a true-color device-form for the grey-image receiver. |
469 Supports true color devices with depths: 8, 16, 24 and 32" |
468 Supports true color devices with depths: 8, 16, 24 and 32" |
995 ! ! |
994 ! ! |
996 |
995 |
997 !Depth2Image class methodsFor:'documentation'! |
996 !Depth2Image class methodsFor:'documentation'! |
998 |
997 |
999 version |
998 version |
1000 ^ '$Header: /cvs/stx/stx/libview/Depth2Image.st,v 1.48 2005-07-13 14:03:09 cg Exp $' |
999 ^ '$Header: /cvs/stx/stx/libview/Depth2Image.st,v 1.49 2007-05-29 17:20:02 cg Exp $' |
1001 ! ! |
1000 ! ! |