[squeak-dev] The Trunk: MorphicExtras-kfr.225.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Mar 17 16:26:15 UTC 2018


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 at 0 extent: (graphArea height)@(graphArea left - frame left))) color: Color lightGreen.
  	"vScale := ScaleMorph newBounds: (0 at 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 at 1).
  !



More information about the Squeak-dev mailing list