Extraire des sprites d'un grand png tel que ceux que l'on trouve sur http://gaurav.munjal.us/Universal-LPC-Spritesheet-Character-Generator/. L'image ci-dessous montre un sprite une fois habillé.
PNGReadWriter
.
binaryReadStreamDo:
.asFileReference
ou FileSystem workingDirectory
si votre fichier se trouve à coté du fichier pharo.image./
pour indiquer le nom d'un fichier. width
and height
.form copy: aRectangle
. | form sprites |
form := 'images/Sprites.png' asFileReference
binaryReadStreamDo: [ :stream | PNGReadWriter formFromStream: stream ].
sprites := OrderedCollection new.
0 to: (form width - 64) by: 64 do: [ :x |
0 to: (form height - 64) by: 64 do: [ :y |
sprites add: (form copy: (x@y corner: (x+64)@(y+64)))]].
sprites