equal
deleted
inserted
replaced
603 "all colors are available, this is easy now" |
603 "all colors are available, this is easy now" |
604 |
604 |
605 f := Form width:width height:height fromArray:self bits onDevice:aDevice. |
605 f := Form width:width height:height fromArray:self bits onDevice:aDevice. |
606 f notNil ifTrue:[ |
606 f notNil ifTrue:[ |
607 f colorMap:(Array with:color0 with:color1). |
607 f colorMap:(Array with:color0 with:color1). |
|
608 "special: depth1 forms are drawn with fg on bg paint" |
|
609 f setPaint:color0 on:color1. |
608 |
610 |
609 "/ remember deviceForm |
611 "/ remember deviceForm |
610 (device isNil or:[deviceForm isNil]) ifTrue:[ |
612 (device isNil or:[deviceForm isNil]) ifTrue:[ |
611 device := aDevice. |
613 device := aDevice. |
612 deviceForm := f. |
614 deviceForm := f. |
613 maskedPixelsAre0 := nil. |
615 maskedPixelsAre0 := nil. |
614 ] |
616 ]. |
615 ]. |
617 ]. |
616 ^ f |
618 ^ f |
617 |
619 |
618 "Modified: / 29-05-2007 / 19:32:09 / cg" |
620 "Modified: / 29-05-2007 / 19:32:09 / cg" |
619 ! ! |
621 ! ! |
770 ! ! |
772 ! ! |
771 |
773 |
772 !Depth1Image class methodsFor:'documentation'! |
774 !Depth1Image class methodsFor:'documentation'! |
773 |
775 |
774 version |
776 version |
775 ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.60 2014-04-09 08:23:34 stefan Exp $' |
777 ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.61 2014-04-09 10:19:01 stefan Exp $' |
776 ! |
778 ! |
777 |
779 |
778 version_CVS |
780 version_CVS |
779 ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.60 2014-04-09 08:23:34 stefan Exp $' |
781 ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.61 2014-04-09 10:19:01 stefan Exp $' |
780 ! ! |
782 ! ! |
781 |
783 |