equal
deleted
inserted
replaced
498 isMasked := (imageMask pixelAtX:x y:y) == 0 |
498 isMasked := (imageMask pixelAtX:x y:y) == 0 |
499 ]. |
499 ]. |
500 isMasked ifTrue:[ |
500 isMasked ifTrue:[ |
501 outStream nextPut:(map at:maskColorIndex) |
501 outStream nextPut:(map at:maskColorIndex) |
502 ] ifFalse:[ |
502 ] ifFalse:[ |
503 clr := image atX:x y:y. |
503 clr := image colorAtX:x y:y. |
504 idx := usedColors indexOf:clr. |
504 idx := usedColors indexOf:clr. |
505 outStream nextPut:(map at:idx) |
505 outStream nextPut:(map at:idx) |
506 ] |
506 ] |
507 ]. |
507 ]. |
508 outStream nextPutLine:'",'. |
508 outStream nextPutLine:'",'. |
509 ]. |
509 ]. |
510 outStream nextPutLine:'};'. |
510 outStream nextPutLine:'};'. |
511 outStream close. |
511 outStream close. |
512 |
512 |
513 "Modified: 24.4.1997 / 16:56:08 / cg" |
513 "Modified: 24.4.1997 / 21:33:03 / cg" |
514 ! ! |
514 ! ! |
515 |
515 |
516 !XPMReader class methodsFor:'documentation'! |
516 !XPMReader class methodsFor:'documentation'! |
517 |
517 |
518 version |
518 version |
519 ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.31 1997-04-24 18:33:40 cg Exp $' |
519 ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.32 1997-04-24 19:33:14 cg Exp $' |
520 ! ! |
520 ! ! |
521 XPMReader initialize! |
521 XPMReader initialize! |