[squeak-dev] The Trunk: MorphicExtras-ct.274.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Apr 15 14:54:46 UTC 2021


Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-ct.274.mcz

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

Name: MorphicExtras-ct.274
Author: ct
Time: 1 October 2019, 11:32:45.306339 pm
UUID: bc7c8985-f585-c947-bc21-9e9a0009b9f6
Ancestors: MorphicExtras-ct.270

Add ScorePlayerMorph example

This commit is part of reconstruction of Objectland (also known as "The Worlds of Squeak"). For more information, see: http://forum.world.st/The-Inbox-MorphicExtras-ct-267-mcz-td5104764.html

=============== Diff against MorphicExtras-ct.267 ===============

Item was added:
+ ----- Method: MIDIScore class>>extraExample (in category '*MorphicExtras-examples') -----
+ extraExample
+ 	"(ScorePlayerMorph on: MIDIScore extraExample) openInWorld"
+ 
+ 	| tracks |
+ 	tracks := self extraExampleTrackData collect: [:track | (ReferenceStream on:
+ 		(Base64MimeConverter mimeDecodeToBytes: track readStream)) next].
+ 	^ self new
+ 		tracks: tracks values trackInfo: tracks keys;
+ 		ticksPerQuarterNote: 96;
+ 		tempoMap: self extraExampleTempoMap;
+ 		yourself!

Item was added:
+ ----- Method: MIDIScore class>>extraExampleTempoMap (in category '*MorphicExtras-examples') -----
+ extraExampleTempoMap
+ 
+ 	^ {0->750000 . 26496->769230 . 26592->789473 . 26688->810810 . 26784->833333 . 26880->857142 . 26976->882352 . 27072->909090}
+ 		collect: [:tempoData | TempoEvent time: tempoData key tempo: tempoData value]!

Item was added:
+ ----- Method: MIDIScore class>>extraExampleTrackData (in category '*MorphicExtras-examples') -----
(excessive size, no diff calculated)

Item was added:
+ ----- Method: ScorePlayerMorph class>>extraExample (in category '*MorphicExtras-examples') -----
+ extraExample
+ 	"ScorePlayerMorph extraExample openInHand"
+ 
+ 	^ self on: MIDIScore extraExample!



More information about the Squeak-dev mailing list