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!