The Trunk: MorphicExtras-kfr.225.mcz

Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-kfr.225.mcz

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

Name: MorphicExtras-kfr.225
Author: kfr
Time: 17 March 2018, 5:17:23.487749 pm
UUID: 78480405-7131-4243-8b61-5dbe706cfb8c
Ancestors: MorphicExtras-topa.224

Fix for EnvelopeEditorMorph so it can open

=============== Diff against MorphicExtras-topa.224 ===============

Item was changed:
  ----- Method: EnvelopeEditorMorph>>buildScalesIn: (in category 'editing') -----
  buildScalesIn: frame
  | env |
  env := envelope.
  pixPerTick := graphArea width // (self maxTime//10) max: 1.
  "hminortick := ( 1 + ( self maxTime // 800 ) ) * 10.
  hmajortick := ( 1 + ( self maxTime // 800 ) ) * 100."
  hScale := (Morph newBounds: ((graphArea left)@(frame top) corner: (self xFromMs: self maxTime)@(graphArea top - 1))) color: Color lightGreen.
  " hScale := (ScaleMorph newBounds: ((graphArea left)@(frame top) corner: (self xFromMs: self maxTime)@(graphArea top - 1)))
  start: 0 stop: self maxTime
  minorTick: hminortick minorTickLength: 3
  majorTick: hmajortick majorTickLength: 10
  caption: 'milliseconds' tickPrintBlock: [:v | v printString].
  "
  self addMorph: hScale.
  vScale := (Morph newBounds: (0@0 extent: (graphArea height)@(graphArea left - frame left))) color: Color lightGreen.
  "vScale := ScaleMorph newBounds: (0@0 extent: (graphArea height)@(graphArea left - frame left))."
+ "env name = 'pitch'
- env name = 'pitch'
  ifTrue:
  [env scale >= 2.0
  ifTrue:
  [vScale start: 0 stop: env scale
  minorTick: env scale / 24 minorTickLength: 3
  majorTick: env scale / 2.0 majorTickLength: 10
  caption: 'pitch (octaves)'
  tickPrintBlock: [:v | (v-(env scale/2)) asInteger printString]]
  ifFalse:
  [vScale start: 0 stop: env scale
  minorTick: 1.0/48.0 minorTickLength: 3
  majorTick: 1.0/12.0 majorTickLength: 10
  caption: 'pitch (half-steps)'
  tickPrintBlock: [:v | (v-(env scale/2)*12) rounded printString]]]
  ifFalse: [
  env name = 'random pitch:'
  ifTrue: [
  vScale start: 0.9 stop: 1.1
  minorTick: 0.2 / 50.0 minorTickLength: 3
  majorTick: 0.2 / 5.0 majorTickLength: 10
  caption: env name
  tickPrintBlock: [:v | v printString]]
  ifFalse: [
  vScale start: 0 stop: env scale
  minorTick: env scale / 50.0 minorTickLength: 3
  majorTick: env scale / 5.0 majorTickLength: 10
  caption: env name
  tickPrintBlock: [:v | v printString]].
+ ]."
- ].
  vScale := TransformationMorph new asFlexOf: vScale.
  vScale angle: Float pi / 2.0.
  self addMorph: vScale.
  vScale position: (frame left)@(graphArea top-1) - (3@1).
  !