Nicolas Cellier uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-nice.392.mcz

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

Name: EToys-nice.392
Author: nice
Time: 10 May 2020, 6:20:16.982605 pm
UUID: 43a15c49-4926-4f07-8285-8803a430afef
Ancestors: EToys-mt.391

Use Float32Array explicitely

=============== Diff against EToys-mt.391 ===============

Item was changed:
  ----- Method: FishEyeMorph>>calculateTransform (in category 'initialization') -----
  calculateTransform
  	| stepX stepY rect tx ty arrayX arrayY |
  	(gridNum x = 0 or: [gridNum y = 0]) ifTrue: [^self].
  	stepX := srcExtent x // gridNum x.
  	stepY := srcExtent y // gridNum y.
  
+ 	arrayX := (1 to: gridNum y + 1) collect: [:j | Float32Array new: gridNum x + 1].
+ 	arrayY := (1 to: gridNum y + 1) collect: [:j |  Float32Array new: gridNum x + 1].
- 	arrayX := (1 to: gridNum y + 1) collect: [:j | FloatArray new: gridNum x + 1].
- 	arrayY := (1 to: gridNum y + 1) collect: [:j |  FloatArray new: gridNum x + 1].
  
  	0 to: gridNum y do: [:j |
  		0 to: gridNum x do: [:i |
  			(arrayX at: (j + 1)) at: (i + 1) put: i*stepX.
  			(arrayY at: (j + 1)) at: (i + 1) put: j*stepY.
  		].
  	].
  
  	0 to: gridNum y do: [:j |
  		self transformX: (arrayX at: (j+1)).
  		self transformY: (arrayY at: (j+1)).
  	].
  
  	0 to: gridNum y do: [:j |
  		arrayX at: (j+1) put: ((1 to: gridNum x +1) collect: [:i | ((arrayX at: (j+1)) at: i) asInteger]).
  		arrayY at: (j+1) put: ((1 to: gridNum x +1) collect: [:i | ((arrayY at: (j+1)) at: i) asInteger]).
  	].
  
  
  	clipRects := (1 to: gridNum y) collect: [:j | Array new: gridNum x].
  	toRects := (1 to: gridNum y) collect: [:j |  Array new: gridNum x].
  	quads := (1 to: gridNum y) collect: [:j |  Array new: gridNum x].
  	0 to: gridNum y - 1 do: [:j |
  		0 to: gridNum x- 1 do: [:i |
  			rect := (((arrayX at: (j+1)) at: (i+1))@((arrayY at: (j+1)) at: (i+1)))
  						corner: ((arrayX at: (j+2)) at: (i+2))@((arrayY at: (j+2)) at: (i+2)).
  			(clipRects at: j+1) at: i+1 put: rect.
  
  			rect width >= stepX ifTrue: [rect := rect expandBy: (1 at 0)].
  			rect height >= stepY ifTrue: [rect := rect expandBy: (0 at 1)].
  			(toRects at: j+1) at: i+1 put: rect.
  
  			tx := (i)*stepX.
  			ty := (j)*stepY.
  			(quads at: j+1) at: i+1
  						put: {(tx)@(ty). (tx)@(ty+stepY). (tx+stepX)@(ty+stepY). (tx+stepX)@(ty)}.
  		].
  	].
  
  !

Item was changed:
+ Float32Array variableWordSubclass: #KedamaFloatArray
- FloatArray variableWordSubclass: #KedamaFloatArray
  	instanceVariableNames: ''
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Etoys-StarSqueak'!