[squeak-dev] The Trunk: Graphics-jdr.84.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Oct 28 03:20:16 UTC 2009


Andreas Raab uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-jdr.84.mcz

==================== Summary ====================

Name: Graphics-jdr.84
Author: jdr
Time: 27 October 2009, 6:17:33 am
UUID: d65885ed-8bde-4ede-b96a-5e80c5fdbc15
Ancestors: Graphics-jdr.83

correct reading of gray PNMs

=============== Diff against Graphics-jmv.82 ===============

Item was changed:
  ----- Method: PNMReadWriter>>readGray (in category 'reading') -----
  readGray
+ 	"gray form, return ColorForm with gray ramp"
+ 	| form poker |
- 	"gray form"
- 	| val form poker |
  	maxValue > 255 ifTrue:[self error:'Gray value > 8 bits not supported in Squeak'].
  	stream binary.
+ 	form := ColorForm extent: cols at rows depth: depth.
+ 	form colors: nil.
- 	form := Form extent: cols at rows depth: depth.
  	poker := BitBlt current bitPokerToForm: form.
  	0 to: rows-1 do: [:y |
  		0 to: cols-1 do: [:x |
+ 			|val|
  			val := stream next.
  			poker pixelAt: x at y put: val.
  		]
  	].
+ 	"a better way is using a gamma corrected palette"
+ 	form colors: ((0 to: 255) collect:[:c|
+ 		c > maxValue
+ 			ifTrue:[Color white]
+ 			ifFalse:[Color gray: (c/maxValue) asFloat]]).
+ 	form colors at: 1 put: (Color black).
  	^form
  !




More information about the Squeak-dev mailing list