etoys-dev October 2012

etoys-dev@lists.squeakfoundation.org

12 participants
30 discussions

Etoys Inbox: EnvelopeEditorRevival-kfr.2.mcz
by commits＠source.squeak.org 24 Oct '12

24 Oct '12

A new version of EnvelopeEditorRevival was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/EnvelopeEditorRevival-kfr.2.mcz ==================== Summary ==================== Name: EnvelopeEditorRevival-kfr.2 Author: kfr Time: 24 October 2012, 8:41:50 am UUID: b53d6123-ce47-b040-a8a6-0161d9731ea3 Ancestors: Newer version from Squeak 4.3. ScaleMorph not changed ==================== Snapshot ==================== SystemOrganization addCategory: #EnvelopeEditorRevival! RectangleMorph subclass: #EnvelopeEditorMorph instanceVariableNames: 'sound soundName envelope hScale vScale graphArea pixPerTick limits limitXs limitHandles line prevMouseDown sampleDuration showAllEnvelopes denominator keyboard' classVariableNames: '' poolDictionaries: '' category: 'EnvelopeEditorRevival'! ----- Method: EnvelopeEditorMorph class>>openOn:title: (in category 'as yet unclassified') ----- openOn: aSound title: aString (self basicNew initOnSound: aSound title: aString) openInWorld! ----- Method: EnvelopeEditorMorph>>acceptGraphPoint:at: (in category 'editing') ----- acceptGraphPoint: p at: index | ms val points whichLim linePoint other boundedP | boundedP := p adhereTo: graphArea bounds. ms := self msFromX: boundedP x. points := envelope points. ms := self constrain: ms adjacentTo: index in: points. (index = 1 or: [(whichLim := limits indexOf: index) > 0]) ifTrue: [ms := (points at: index) x]. val := self valueFromY: boundedP y. points at: index put: ms @ val. linePoint := (self xFromMs: ms) @ (self yFromValue: val). (whichLim notNil and: [whichLim between: 1 and: 2]) ifTrue: [other := limits at: 3 - whichLim. points at: other put: (points at: other) x @ val. line verticesAt: other put: (line vertices at: other) x @ linePoint y]. envelope setPoints: points loopStart: limits first loopEnd: limits second. ^ linePoint! ----- Method: EnvelopeEditorMorph>>addControls (in category 'construction') ----- addControls | chooser | chooser := PopUpChoiceMorph new extent: 200 @ 20; contentsClipped: 'Editing: ' , envelope name; target: self; actionSelector: #chooseFrom:envelopeItem:; getItemsSelector: #curveChoices. chooser arguments: (Array with: chooser). self addMorph: chooser. chooser align: chooser bounds topLeft with: graphArea bounds bottomLeft + (0 @ 5). chooser := PopUpChoiceMorph new extent: 250 @ 20; contentsClipped: 'Timbre: ' , soundName; target: self; actionSelector: #chooseFrom:soundItem:; getItemsSelector: #soundChoices. chooser arguments: (Array with: chooser). self addMorph: chooser. chooser align: chooser bounds topRight with: graphArea bounds bottomRight + (-50 @ 5)! ----- Method: EnvelopeEditorMorph>>addCurves (in category 'construction') ----- addCurves | aLine verts | sound envelopes do: [:env | (showAllEnvelopes or: [env == envelope]) ifTrue: [verts := env points collect: [:p | (self xFromMs: p x) @ (self yFromValue: p y)]. aLine := EnvelopeLineMorph basicNew vertices: verts borderWidth: 1 borderColor: (self colorForEnvelope: env). env == envelope ifTrue: [aLine borderWidth: 2. line := aLine] ifFalse: [aLine on: #mouseUp send: #clickOn:evt:from: to: self withValue: env. self addMorph: aLine]]]. self addMorph: line! ----- Method: EnvelopeEditorMorph>>addCustomMenuItems:hand: (in category 'menu') ----- addCustomMenuItems: menu hand: aHandMorph super addCustomMenuItems: menu hand: aHandMorph. menu addLine. envelope updateSelector = #ratio: ifTrue: [menu add: 'choose denominator...' translated action: #chooseDenominator:]. menu add: 'adjust scale...' translated action: #adjustScale:. SoundPlayer isReverbOn ifTrue: [menu add: 'turn reverb off' translated target: SoundPlayer selector: #stopReverb] ifFalse: [menu add: 'turn reverb on' translated target: SoundPlayer selector: #startReverb]. menu addLine. menu add: 'get sound from lib' translated action: #chooseSound:. menu add: 'put sound in lib' translated action: #saveSound:. menu add: 'read sound from disk...' translated action: #readFromDisk:. menu add: 'save sound on disk...' translated action: #saveToDisk:. menu add: 'save library on disk...' translated action: #saveLibToDisk:! ----- Method: EnvelopeEditorMorph>>addEnvelopeNamed: (in category 'editing') ----- addEnvelopeNamed: envName | points env | points := OrderedCollection new. points add: 0 @ 0.0; add: (envelope points at: envelope loopStartIndex) x @ 1.0; add: (envelope points at: envelope loopEndIndex) x @ 1.0; add: envelope points last x @ 0.0. envName = 'volume' ifTrue: [env := VolumeEnvelope points: points loopStart: 2 loopEnd: 3. env target: sound; scale: 0.7]. envName = 'modulation' ifTrue: [env := Envelope points: (points collect: [:p | p x @ 0.5]) loopStart: 2 loopEnd: 3. env target: sound; updateSelector: #modulation:; scale: sound modulation * 2.0]. envName = 'pitch' ifTrue: [env := PitchEnvelope points: (points collect: [:p | p x @ 0.5]) loopStart: 2 loopEnd: 3. env target: sound; updateSelector: #pitch:; scale: 0.5]. envName = 'random pitch:' ifTrue: [env := RandomEnvelope for: #pitch:. points := OrderedCollection new. points add: 0 @ (env delta * 5 + 0.5); add: (envelope points at: envelope loopStartIndex) x @ (env highLimit - 1 * 5 + 0.5); add: (envelope points at: envelope loopEndIndex) x @ (env highLimit - 1 * 5 + 0.5); add: envelope points last x @ (env lowLimit - 1 * 5 + 0.5). env setPoints: points loopStart: 2 loopEnd: 3. env target: sound]. envName = 'ratio' ifTrue: [denominator := 9999. env := Envelope points: (points collect: [:p | p x @ 0.5]) loopStart: 2 loopEnd: 3. env target: sound; updateSelector: #ratio:; scale: sound ratio * 2.0]. env ifNotNil: [sound addEnvelope: env. self editEnvelope: env]! ----- Method: EnvelopeEditorMorph>>addHandlesIn: (in category 'construction') ----- addHandlesIn: frame | handle | handle := PolygonMorph vertices: (Array with: 0 @ 0 with: 8 @ 0 with: 4 @ 8) color: Color orange borderWidth: 1 borderColor: Color black. handle addMorph: ((RectangleMorph newBounds: ((self handleOffset: handle) - (2 @ 0) extent: 1 @ (graphArea height - 2)) color: Color orange) borderWidth: 0). limitHandles := Array with: handle with: handle veryDeepCopy with: handle veryDeepCopy. 1 to: limitHandles size do: [:i | handle := limitHandles at: i. handle on: #mouseDown send: #limitHandleMove:event:from: to: self withValue: i. handle on: #mouseMove send: #limitHandleMove:event:from: to: self withValue: i. self addMorph: handle. handle position: (self xFromMs: (envelope points at: (limits at: i)) x) @ graphArea top - (self handleOffset: handle)]! ----- Method: EnvelopeEditorMorph>>addKeyboard (in category 'construction') ----- addKeyboard keyboard := PianoKeyboardMorph new soundPrototype: sound. keyboard align: keyboard bounds bottomCenter with: bounds bottomCenter - (0 @ 4). self addMorph: keyboard! ----- Method: EnvelopeEditorMorph>>adjustScale: (in category 'menu') ----- adjustScale: evt | scaleString oldScale baseValue | oldScale := envelope scale. scaleString := UIManager default request: 'Enter the new full-scale value...' initialAnswer: oldScale printString. scaleString isEmpty ifTrue: [^ self]. envelope scale: (Number readFrom: scaleString) asFloat. baseValue := envelope updateSelector = #pitch: ifTrue: [0.5] ifFalse: [0.0]. envelope setPoints: (envelope points collect: [:p | p x @ (p y - baseValue * oldScale / envelope scale + baseValue min: 1.0 max: 0.0)]) loopStart: limits first loopEnd: limits second. self buildView! ----- Method: EnvelopeEditorMorph>>buildGraphAreaIn: (in category 'construction') ----- buildGraphAreaIn: frame | r y | graphArea := RectangleMorph newBounds: (frame left + 60 @ (frame top + 60) corner: frame right + 1 @ (frame bottom - 120)) color: Color lightGreen lighter lighter. graphArea borderWidth: 1; borderColor: Color black. self addMorph: graphArea. (envelope updateSelector = #pitch: and: [envelope scale <= 2.0]) ifTrue: [r := graphArea innerBounds. 0.0 to: 1.0 by: 1.0 / 12.0 / envelope scale do: [:val | y := self yFromValue: val. graphArea addMorph: ((RectangleMorph newBounds: (r left @ y extent: r width @ 1) color: Color veryLightGray) borderWidth: 0)]]. (envelope updateSelector = #ratio: and: [denominator ~= 9999]) ifTrue: [r := graphArea innerBounds. (0.0 to: 1.0 by: 1.0 / denominator / envelope scale) do: [:v | y := self yFromValue: v. graphArea addMorph: ((RectangleMorph newBounds: (r left @ y extent: r width @ 1) color: Color veryLightGray) borderWidth: 0)]]! ----- Method: EnvelopeEditorMorph>>buildScalesIn: (in category 'construction') ----- buildScalesIn: frame | env hmajortick hminortick | env := envelope. pixPerTick := graphArea width // (self maxTime // 10) max: 1. hminortick := 1 + (self maxTime // 800) * 10. hmajortick := 1 + (self maxTime // 800) * 100. 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 := ScaleMorph newBounds: (0 @ 0 extent: graphArea height @ (graphArea left - frame left)). 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) - (2 @ 1)! ----- Method: EnvelopeEditorMorph>>buildView (in category 'construction') ----- buildView | frame | self color: Color lightGreen. self removeAllMorphs. frame := self innerBounds. self buildGraphAreaIn: frame. self buildScalesIn: frame. self addHandlesIn: frame. self addCurves. line addHandles. self addControls. self addKeyboard! ----- Method: EnvelopeEditorMorph>>chooseDenominator: (in category 'menu') ----- chooseDenominator: evt | menu | menu := MenuMorph new. (Integer primesUpTo: 30) do: [:i | menu add: i printString target: self selector: #setDenominator: argument: i]. menu addLine. menu add: 'none' target: self selector: #setDenominator: argument: 9999. menu popUpEvent: evt in: self world! ----- Method: EnvelopeEditorMorph>>chooseEnvelope: (in category 'menu') ----- chooseEnvelope: choice | name | (choice beginsWith: 'edit ') ifTrue: [name := choice copyFrom: 'edit ' size + 1 to: choice size. ^ self editEnvelope: (sound envelopes detect: [:env | env name = name])]. (choice beginsWith: 'add ') ifTrue: [name := choice copyFrom: 'add ' size + 1 to: choice size. ^ self addEnvelopeNamed: name]. (choice beginsWith: 'remove ') ifTrue: [^ self removeEnvelope]! ----- Method: EnvelopeEditorMorph>>chooseFrom:envelopeItem: (in category 'menu') ----- chooseFrom: chooserMorph envelopeItem: item | name | (item beginsWith: 'edit ') ifTrue: [name := item copyFrom: 'edit ' size + 1 to: item size. self editEnvelope: (sound envelopes detect: [:env | env name = name])]. (item beginsWith: 'add ') ifTrue: [name := item copyFrom: 'add ' size + 1 to: item size. self addEnvelopeNamed: name]. (item beginsWith: 'remove ') ifTrue: [self removeEnvelope]. chooserMorph contentsClipped: envelope name! ----- Method: EnvelopeEditorMorph>>chooseFrom:soundItem: (in category 'menu') ----- chooseFrom: chooserMorph soundItem: item self editSoundNamed: item! ----- Method: EnvelopeEditorMorph>>chooseSound: (in category 'menu') ----- chooseSound: evt | menu | menu := MenuMorph new. menu add: 'new...' target: self selector: #editNewSound. menu addLine. AbstractSound soundNames do: [:name | menu add: name target: self selector: #editSoundNamed: argument: name]. menu popUpEvent: evt in: self world! ----- Method: EnvelopeEditorMorph>>clickOn:evt:from: (in category 'editing') ----- clickOn: env evt: anEvent from: aLine self editEnvelope: env! ----- Method: EnvelopeEditorMorph>>clickOnLine:evt:envelope: (in category 'editing') ----- clickOnLine: arg1 evt: arg2 envelope: arg3 (arg3 isMorph and: [arg3 eventHandler notNil]) ifTrue: [arg3 eventHandler fixReversedValueMessages]. ^ self clickOn: arg1 evt: arg2 from: arg3! ----- Method: EnvelopeEditorMorph>>colorForEnvelope: (in category 'construction') ----- colorForEnvelope: env | name index | name := env name. index := #('volume' 'modulation' 'pitch' 'ratio' ) indexOf: name ifAbsent: [5]. ^ Color perform: (#(#red #green #blue #magenta #black ) at: index)! ----- Method: EnvelopeEditorMorph>>constrain:adjacentTo:in: (in category 'editing') ----- constrain: xVal adjacentTo: ix in: points | newVal | newVal := xVal. ix > 1 ifTrue: [newVal := newVal max: (points at: ix - 1) x]. ix < points size ifTrue: [newVal := newVal min: (points at: ix + 1) x]. ^ newVal! ----- Method: EnvelopeEditorMorph>>curveChoices (in category 'construction') ----- curveChoices | extant others | extant := sound envelopes collect: [:env | env name]. others := #('volume' 'modulation' 'pitch' 'random pitch:' 'ratio' ) reject: [:x | (extant includes: x) | (x = 'pitch' & (extant includes: 'random pitch:')) | (x = 'random pitch:' & (extant includes: 'pitch'))]. ^ (extant collect: [:name | 'edit ' , name]) , (others collect: [:name | 'add ' , name]) , (sound envelopes size > 1 ifTrue: [Array with: 'remove ' , envelope name] ifFalse: [Array new])! ----- Method: EnvelopeEditorMorph>>deletePoint: (in category 'editing') ----- deletePoint: ix (limits includes: ix) ifTrue: [^ false]. 1 to: limits size do: [:i | (limits at: i) > ix ifTrue: [limits at: i put: (limits at: i) - 1]]. envelope setPoints: (envelope points copyReplaceFrom: ix to: ix with: Array new) loopStart: limits first loopEnd: limits second. ^ true! ----- Method: EnvelopeEditorMorph>>editEnvelope: (in category 'initialization') ----- editEnvelope: env envelope := env. limits := Array with: envelope loopStartIndex with: envelope loopEndIndex with: envelope points size. limitXs := limits collect: [:i | (envelope points at: i) x]. self buildView! ----- Method: EnvelopeEditorMorph>>editNewSound (in category 'menu') ----- editNewSound | known i | known := AbstractSound soundNames. i := 0. [soundName := 'unnamed' , i printString. known includes: soundName] whileTrue: [i := 1 + 1]. soundName := soundName. self editSound: FMSound default copy! ----- Method: EnvelopeEditorMorph>>editSound: (in category 'initialization') ----- editSound: aSound | p | (aSound respondsTo: #envelopes) ifFalse: [UIManager default inform: 'You selected a ' , aSound class name , '.' , String cr , 'I can''t handle these kinds of sounds.'. ^ self]. sound := aSound. sound envelopes isEmpty ifTrue: [p := OrderedCollection new. p add: 0 @ 0.0; add: 10 @ 1.0; add: 100 @ 1.0; add: 120 @ 0.0. sound addEnvelope: (VolumeEnvelope points: p loopStart: 2 loopEnd: 3)]. self editEnvelope: sound envelopes first. keyboard soundPrototype: sound! ----- Method: EnvelopeEditorMorph>>editSoundNamed: (in category 'menu') ----- editSoundNamed: name name = 'new...' ifTrue: [^ self editNewSound]. soundName := name. self editSound: (AbstractSound soundNamed: soundName) copy! ----- Method: EnvelopeEditorMorph>>extent: (in category 'geometry') ----- extent: newExtent super extent: (newExtent max: (self maxTime // 10 * 3 + 700 max: 500) @ 350). self buildView! ----- Method: EnvelopeEditorMorph>>handleOffset: (in category 'construction') ----- handleOffset: handle ^ handle width // 2 + 1 @ handle height! ----- Method: EnvelopeEditorMorph>>initOnSound:title: (in category 'initialization') ----- initOnSound: aSound title: title sound := aSound. soundName := title. self initialize! ----- Method: EnvelopeEditorMorph>>initialize (in category 'initialization') ----- initialize super initialize. prevMouseDown := false. showAllEnvelopes := true. soundName ifNil: [soundName := 'test']. self editSound: (sound ifNil: [FMSound brass1 copy]). sound duration: 0.25. denominator := 7. self extent: 10 @ 10! ----- Method: EnvelopeEditorMorph>>insertPointAfter: (in category 'editing') ----- insertPointAfter: ix | points pt | points := envelope points. (points at: ix + 1) x - (points at: ix) x < 20 ifTrue: [^ false]. pt := (points at: ix + 1) + (points at: ix) // 2. 1 to: limits size do: [:i | (limits at: i) > ix ifTrue: [limits at: i put: (limits at: i) + 1]]. envelope setPoints: (points copyReplaceFrom: ix + 1 to: ix with: (Array with: pt)) loopStart: limits first loopEnd: limits second. ^ true! ----- Method: EnvelopeEditorMorph>>limitHandleMove:event:from: (in category 'editing') ----- limitHandleMove: index event: evt from: handle | ix p x ms limIx points | ix := limits at: index. p := evt cursorPoint adhereTo: graphArea bounds. ms := self msFromX: p x + (self handleOffset: handle) x. sound envelopes do: [:env | limIx := env perform: (#(#loopStartIndex #loopEndIndex #decayEndIndex ) at: index). ms := self constrain: ms adjacentTo: limIx in: env points]. x := self xFromMs: ms. handle position: x @ graphArea top - (self handleOffset: handle). line verticesAt: ix put: x @ (line vertices at: ix) y. sound envelopes do: [:env | limIx := env perform: (#(#loopStartIndex #loopEndIndex #decayEndIndex ) at: index). points := env points. points at: limIx put: ms @ (points at: limIx) y. env setPoints: points loopStart: env loopStartIndex loopEnd: env loopEndIndex]! ----- Method: EnvelopeEditorMorph>>limitHandleMoveEvent:from:index: (in category 'editing') ----- limitHandleMoveEvent: arg1 from: arg2 index: arg3 (arg3 isMorph and: [arg3 eventHandler notNil]) ifTrue: [arg3 eventHandler fixReversedValueMessages]. ^ self limitHandleMove: arg1 event: arg2 from: arg3! ----- Method: EnvelopeEditorMorph>>maxTime (in category 'scaling') ----- maxTime ^ (envelope points at: limits last) x + 100! ----- Method: EnvelopeEditorMorph>>msFromX: (in category 'scaling') ----- msFromX: x ^ x - graphArea left // pixPerTick * 10! ----- Method: EnvelopeEditorMorph>>playNothing (in category 'playing') ----- playNothing ^ self! ----- Method: EnvelopeEditorMorph>>readFileNamed: (in category 'menu') ----- readFileNamed: fileName | snd | snd := Compiler evaluate: (FileStream readOnlyFileNamed: fileName) contentsOfEntireFile. soundName := fileName copyFrom: 1 to: fileName size - 4. self editSound: snd! ----- Method: EnvelopeEditorMorph>>readFromDisk: (in category 'menu') ----- readFromDisk: evt | menu | menu := MenuMorph new. (FileDirectory default fileNamesMatching: '*.fmp') do: [:fileName | menu add: fileName target: self selector: #readFileNamed: argument: fileName]. menu popUpEvent: evt in: self world! ----- Method: EnvelopeEditorMorph>>removeEnvelope (in category 'menu') ----- removeEnvelope (UIManager default confirm: 'Really remove ' , envelope name , '?') ifFalse: [^ self]. sound removeEnvelope: envelope. self editEnvelope: sound envelopes first! ----- Method: EnvelopeEditorMorph>>saveLibToDisk: (in category 'menu') ----- saveLibToDisk: evt | newName f snd | newName := UIManager default request: 'Please confirm name for library...' initialAnswer: 'MySounds'. newName isEmpty ifTrue: [^ self]. f := FileStream newFileNamed: newName , '.fml'. AbstractSound soundNames do: [:name | snd := AbstractSound soundNamed: name. true ifTrue: [f nextChunkPut: 'AbstractSound soundNamed: ' , name , ' put: ' , snd storeString; cr; cr] ifFalse: [self inform: name , ' is not currently storable']]. f close! ----- Method: EnvelopeEditorMorph>>saveSound: (in category 'menu') ----- saveSound: evt | newName | newName := UIManager default request: 'Please confirm name for save...' initialAnswer: soundName. newName isEmpty ifTrue: [^ self]. AbstractSound soundNamed: newName put: sound. soundName := newName! ----- Method: EnvelopeEditorMorph>>saveToDisk: (in category 'menu') ----- saveToDisk: evt | newName f | newName := UIManager default request: 'Please confirm name for save...' initialAnswer: soundName. newName isEmpty ifTrue: [^ self]. f := FileStream newFileNamed: newName , '.fmp'. sound storeOn: f. f close! ----- Method: EnvelopeEditorMorph>>setDenominator: (in category 'menu') ----- setDenominator: denom denominator := denom. self buildView! ----- Method: EnvelopeEditorMorph>>soundBeingEdited (in category 'initialization') ----- soundBeingEdited ^ sound! ----- Method: EnvelopeEditorMorph>>soundChoices (in category 'construction') ----- soundChoices ^ #('new...' ) , AbstractSound soundNames! ----- Method: EnvelopeEditorMorph>>step (in category 'stepping and presenter') ----- step | mouseDown hand | hand := self world firstHand. (bounds containsPoint: hand position) ifFalse: [^ self]. mouseDown := hand lastEvent redButtonPressed. mouseDown not & prevMouseDown ifTrue: [limitXs = (limits collect: [:i | (envelope points at: i) x]) ifFalse: [self editEnvelope: envelope]]. prevMouseDown := mouseDown! ----- Method: EnvelopeEditorMorph>>stepTime (in category 'testing') ----- stepTime ^ 100! ----- Method: EnvelopeEditorMorph>>valueFromY: (in category 'scaling') ----- valueFromY: y | value | value := (graphArea bottom - y) asFloat / graphArea height. envelope updateSelector = #ratio: ifTrue: [^ (value * envelope scale * denominator) rounded asFloat / denominator / envelope scale]. ^ value! ----- Method: EnvelopeEditorMorph>>wantsRoundedCorners (in category 'rounding') ----- wantsRoundedCorners ^ Preferences roundedWindowCorners or: [super wantsRoundedCorners]! ----- Method: EnvelopeEditorMorph>>xFromMs: (in category 'scaling') ----- xFromMs: ms ^ graphArea left + (ms // 10 * pixPerTick)! ----- Method: EnvelopeEditorMorph>>yFromValue: (in category 'scaling') ----- yFromValue: val ^ graphArea bottom - (val * graphArea height)! RectangleMorph subclass: #ScaleMorph instanceVariableNames: 'caption start stop minorTick minorTickLength majorTick majorTickLength tickPrintBlock' classVariableNames: 'ClassVarName1 ClassVarName2' poolDictionaries: '' category: 'EnvelopeEditorRevival'! ----- Method: ScaleMorph>>buildLabels (in category 'as yet unclassified') ----- buildLabels | scale x1 y1 y2 x captionMorph tickMorph loopStart | self removeAllMorphs. caption ifNotNil: [captionMorph := StringMorph contents: caption. captionMorph align: captionMorph bounds bottomCenter with: self bounds bottomCenter - (0 @ majorTickLength) - (0 @ (captionMorph height + 2)). self addMorph: captionMorph]. tickPrintBlock ifNotNil: [scale := self innerBounds width - 1 / (stop - start max: 0.1) asFloat. x1 := self innerBounds left. y1 := self innerBounds bottom. y2 := y1 - majorTickLength. loopStart := (start / majorTick) ceiling * majorTick. loopStart to: stop by: majorTick do: [:v | x := x1 + (scale * (v - start)). tickMorph := StringMorph contents: (tickPrintBlock value: v). tickMorph align: tickMorph bounds bottomCenter with: x @ y2. tickMorph left < self left ifTrue: [tickMorph position: self left @ tickMorph top]. tickMorph right > self right ifTrue: [tickMorph position: self right - tickMorph width @ tickMorph top]. self addMorph: tickMorph]]! ----- Method: ScaleMorph>>drawOn: (in category 'as yet unclassified') ----- drawOn: aCanvas | scale x1 y1 y2 x y3 even yy loopStart checkStart | super drawOn: aCanvas. scale := self innerBounds width - 1 / (stop - start) asFloat. x1 := self innerBounds left. y1 := self innerBounds bottom - 1. y2 := y1 - minorTickLength. loopStart := (start / minorTick) ceiling * minorTick. loopStart to: stop by: minorTick do: [:v | x := x1 + (scale * (v - start)). aCanvas line: x @ y1 to: x @ y2 width: 1 color: Color black]. x1 := self innerBounds left. y2 := y1 - majorTickLength. y3 := y1 - (minorTickLength + majorTickLength // 2). even := true. loopStart := (start / majorTick) ceiling * majorTick. checkStart := (start / (majorTick / 2.0)) ceiling * majorTick. checkStart = (loopStart * 2) ifFalse: [loopStart := checkStart / 2.0. even := false]. loopStart to: stop by: majorTick / 2.0 do: [:v | x := x1 + (scale * (v - start)). yy := even ifTrue: [y2] ifFalse: [y3]. aCanvas line: x @ y1 to: x @ yy width: 1 color: Color black. even := even not]! ----- Method: ScaleMorph>>extent: (in category 'as yet unclassified') ----- extent: newExtent | pixPerTick newWidth | pixPerTick := newExtent x - (self borderWidth * 2) - 1 / ((stop - start) asFloat / minorTick). pixPerTick := pixPerTick detentBy: 0.1 atMultiplesOf: 1.0 snap: false. newWidth := pixPerTick * ((stop - start) asFloat / minorTick) + (self borderWidth * 2) + 1. super extent: newWidth @ newExtent y. self buildLabels! ----- Method: ScaleMorph>>initialize (in category 'as yet unclassified') ----- initialize super initialize. borderWidth := 0. color := Color lightGreen. start := 0. stop := 100. minorTick := 1. majorTick := 10. minorTickLength := 3. majorTickLength := 10. caption := 'sample'. tickPrintBlock := [:v | v printString]! ----- Method: ScaleMorph>>start:stop:minorTick:minorTickLength:majorTick:majorTickLength:caption:tickPrintBlock: (in category 'as yet unclassified') ----- start: strt stop: stp minorTick: mnt minorTickLength: mntLen majorTick: mjt majorTickLength: mjtLen caption: cap tickPrintBlock: blk start := strt. stop := stp. minorTick := mnt. minorTickLength := mntLen. majorTick := mjt. majorTickLength := mjtLen. caption := cap. tickPrintBlock := blk fixTemps. self buildLabels! PolygonMorph subclass: #EnvelopeLineMorph instanceVariableNames: 'editor' classVariableNames: '' poolDictionaries: '' category: 'EnvelopeEditorRevival'! ----- Method: EnvelopeLineMorph>>defaultColor (in category 'initialization') ----- defaultColor ^ Color transparent! ----- Method: EnvelopeLineMorph>>dragVertex:event:fromHandle: (in category 'editing') ----- dragVertex: ix event: evt fromHandle: handle | p | super dragVertex: ix event: evt fromHandle: handle. p := owner acceptGraphPoint: evt cursorPoint at: ix. self verticesAt: ix put: p! ----- Method: EnvelopeLineMorph>>dropVertex:event:fromHandle: (in category 'editing') ----- dropVertex: ix event: evt fromHandle: handle | oldVerts | oldVerts := vertices. super dropVertex: ix event: evt fromHandle: handle. vertices = oldVerts ifFalse: [owner deletePoint: ix]! ----- Method: EnvelopeLineMorph>>newVertex:event:fromHandle: (in category 'editing') ----- newVertex: ix event: evt fromHandle: handle (owner insertPointAfter: ix) ifFalse: [^ self]. super newVertex: ix event: evt fromHandle: handle. self verticesAt: ix + 1 put: (owner acceptGraphPoint: evt cursorPoint at: ix + 1)! ----- Method: EnvelopeLineMorph>>vertices:borderWidth:borderColor: (in category 'as yet unclassified') ----- vertices: verts borderWidth: bw borderColor: bc super initialize. vertices := verts. borderWidth := bw. borderColor := bc. closed := false. arrows := #none. self computeBounds!

1 0

Etoys Inbox: EnvelopeEditorRevival-kfr.1.mcz
by commits＠source.squeak.org 23 Oct '12

23 Oct '12

A new version of EnvelopeEditorRevival was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/EnvelopeEditorRevival-kfr.1.mcz ==================== Summary ==================== Name: EnvelopeEditorRevival-kfr.1 Author: kfr Time: 23 October 2012, 1:29:38 pm UUID: 1cd87ee6-8007-0140-abff-0680e1816067 Ancestors: EnvelopeEditor was removed from image due to copyright issues. Here it is revived with a new ScaleMorph. ScaleMorph is reimplemented from Russell Swan's version. ==================== Snapshot ==================== SystemOrganization addCategory: #EnvelopeEditorRevival! RectangleMorph subclass: #EnvelopeEditorMorph instanceVariableNames: 'sound soundName envelope hScale vScale graphArea pixPerTick limits limitXs limitHandles line prevMouseDown sampleDuration showAllEnvelopes denominator keyboard' classVariableNames: '' poolDictionaries: '' category: 'EnvelopeEditorRevival'! ----- Method: EnvelopeEditorMorph class>>openOn:title: (in category 'as yet unclassified') ----- openOn: aSound title: aString "EnvelopeEditorMorph openOn: (AbstractSound soundNamed: 'brass1') copy title: 'brass1'" (self basicNew initOnSound: aSound title: aString) openInWorld! ----- Method: EnvelopeEditorMorph>>acceptGraphPoint:at: (in category 'editing') ----- acceptGraphPoint: p at: index | ms val points whichLim linePoint other boundedP | boundedP := p adhereTo: graphArea bounds. ms := self msFromX: boundedP x. points := envelope points. ms := self constrain: ms adjacentTo: index in: points. (index = 1 or: [(whichLim := limits indexOf: index) > 0]) ifTrue: ["Limit points must not move laterally" ms := (points at: index) x]. val := self valueFromY: boundedP y. points at: index put: ms @ val. linePoint := (self xFromMs: ms) @ (self yFromValue: val). (whichLim notNil and: [whichLim between: 1 and: 2]) ifTrue: ["Loop start and loop end must be tied together " other := limits at: 3 - whichLim. "1 <--> 2" points at: other put: (points at: other) x @ val. line vertices at: other put: (line vertices at: other) x @ linePoint y. line computeBounds]. "Make sure envelope feels the change in points array... " envelope setPoints: points loopStart: (limits at: 1) loopEnd: (limits at: 2). ^ linePoint! ----- Method: EnvelopeEditorMorph>>addControls (in category 'construction') ----- addControls | chooser | chooser _ PopUpChoiceMorph new extent: 180@40; contentsClipped: 'editing ' , envelope name; target: self; actionSelector: #chooseFrom:envelopeItem:; getItemsSelector: #curveChoices. chooser arguments: (Array with: chooser). self addMorph: chooser. chooser align: chooser bounds topLeft with: graphArea bounds bottomLeft + (0@5). chooser _ PopUpChoiceMorph new extent: 180@40; contentsClipped: 'duration: ' , self durationName; target: self; actionSelector: #chooseFrom:durationItem:; getItemsSelector: #durationChoices. chooser arguments: (Array with: chooser). self addMorph: chooser. chooser align: chooser bounds topRight with: graphArea bounds bottomRight + (-50@5). ! ----- Method: EnvelopeEditorMorph>>addCurves (in category 'construction') ----- addCurves "Add the polyLine corresponding to the currently selected envelope, and possibly all the others, too." | verts aLine | sound envelopes do: [:env | (showAllEnvelopes or: [env == envelope]) ifTrue: [verts _ env points collect: [:p | (self xFromMs: p x) @ (self yFromValue: p y)]. aLine _ EnvelopeLineMorph basicNew vertices: verts borderWidth: 1 borderColor: (self colorForEnvelope: env). env == envelope ifTrue: [aLine borderWidth: 2. line _ aLine] ifFalse: [aLine on: #mouseUp send: #clickOnLine:evt:envelope: to: self withValue: env. self addMorph: aLine]]]. self addMorph: line "add the active one last (in front)"! ----- Method: EnvelopeEditorMorph>>addCustomMenuItems:hand: (in category 'menu') ----- addCustomMenuItems: menu hand: aHandMorph super addCustomMenuItems: menu hand: aHandMorph. menu addLine. envelope updateSelector = #ratio: ifTrue: [menu add: 'choose denominator...' action: #chooseDenominator:]. menu add: 'adjust scale...' action: #adjustScale:. SoundPlayer isReverbOn ifTrue: [menu add: 'turn reverb off' target: SoundPlayer selector: #stopReverb] ifFalse: [menu add: 'turn reverb on' target: SoundPlayer selector: #startReverb]. menu addLine. menu add: 'get sound from lib' action: #chooseSound:. menu add: 'put sound in lib' action: #saveSound:. menu add: 'read sound from disk...' action: #readFromDisk:. menu add: 'save sound on disk...' action: #saveToDisk:. menu add: 'save library on disk...' action: #saveLibToDisk:. ! ----- Method: EnvelopeEditorMorph>>addEnvelopeNamed: (in category 'menu') ----- addEnvelopeNamed: envName | points env | points := OrderedCollection new. points add: 0(a)0.0; add: (envelope points at: envelope loopStartIndex) x(a)1.0; add: (envelope points at: envelope loopEndIndex) x(a)1.0; add: (envelope points last) x(a)0.0. envName = 'volume' ifTrue: [env := VolumeEnvelope points: points loopStart: 2 loopEnd: 3. env target: sound; scale: 0.7]. envName = 'modulation' ifTrue: [env := Envelope points: (points collect: [:p | p x @ 0.5]) loopStart: 2 loopEnd: 3. env target: sound; updateSelector: #modulation:; scale: sound modulation*2.0]. envName = 'pitch' ifTrue: [env := PitchEnvelope points: (points collect: [:p | p x @ 0.5]) loopStart: 2 loopEnd: 3. env target: sound; updateSelector: #pitch:; scale: 0.5]. envName = 'ratio' ifTrue: [denominator := 9999. "No gridding" env := Envelope points: (points collect: [:p | p x @ 0.5]) loopStart: 2 loopEnd: 3. env target: sound; updateSelector: #ratio:; scale: sound ratio*2.0]. env ifNotNil: [sound addEnvelope: env. self editEnvelope: env]! ----- Method: EnvelopeEditorMorph>>addHandlesIn: (in category 'construction') ----- addHandlesIn: frame | handle | handle := PolygonMorph vertices: (Array with: 0@0 with: 12@0 with: 6@12) color: Color orange borderWidth: 1 borderColor: Color black. handle addMorph: ((RectangleMorph newBounds: ((self handleOffset: handle)-(2@0) extent: 1@(graphArea height-2)) color: Color orange) borderWidth: 0). limitHandles := Array with: handle with: handle fullCopy with: handle fullCopy. 1 to: limitHandles size do: [:i | handle := limitHandles at: i. handle on: #mouseStillDown send: #limitHandleMove:event:from: to: self withValue: i. self addMorph: handle. handle position: ((self xFromMs: (envelope points at: (limits at: i)) x) @ (graphArea top)) - (self handleOffset: handle)]! ----- Method: EnvelopeEditorMorph>>addKeyboard (in category 'construction') ----- addKeyboard keyboard := PianoKeyboardMorph new soundPrototype: sound. keyboard align: keyboard bounds bottomCenter with: bounds bottomCenter - (0@4). self addMorph: keyboard! ----- Method: EnvelopeEditorMorph>>adjustScale: (in category 'menu') ----- adjustScale: evt | scaleString oldScale baseValue | oldScale := envelope scale. scaleString := FillInTheBlank request: 'Enter the new full-scale value...' initialAnswer: oldScale printString. scaleString isEmpty ifTrue: [^ self]. envelope scale: (Number readFrom: scaleString) asFloat. baseValue := envelope updateSelector = #pitch: ifTrue: [0.5] ifFalse: [0.0]. envelope setPoints: (envelope points collect: [:p | p x @ (p y - baseValue * oldScale / envelope scale + baseValue min: 1.0 max: 0.0)]) loopStart: (limits at: 1) loopEnd: (limits at: 2). self buildView! ----- Method: EnvelopeEditorMorph>>buildGraphAreaIn: (in category 'construction') ----- buildGraphAreaIn: frame | r y | graphArea := RectangleMorph newBounds: ((frame left + 60) @ (frame top + 60) corner: (frame right+1) @ (frame bottom - 120)) color: Color lightGreen lighter lighter. graphArea borderWidth: 1. self addMorph: graphArea. (envelope updateSelector = #pitch: and: [envelope scale <= 2.0]) ifTrue: ["Show half-steps" r := graphArea innerBounds. 0.0 to: 1.0 by: 1.0/12.0/envelope scale do: [:val | y := self yFromValue: val. graphArea addMorph: ((RectangleMorph newBounds: (r left@y extent: r width@1) color: Color veryLightGray) borderWidth: 0)]]. (envelope updateSelector = #ratio: and: [denominator ~= 9999]) ifTrue: ["Show denominator gridding" r := graphArea innerBounds. (0.0 to: 1.0 by: 1.0/denominator/envelope scale) do: [:v | y := self yFromValue: v. graphArea addMorph: ((RectangleMorph newBounds: (r left@y extent: r width@1) color: Color veryLightGray) borderWidth: 0)]]. ! ----- Method: EnvelopeEditorMorph>>buildScalesIn: (in category 'construction') ----- buildScalesIn: frame | env | env _ envelope. pixPerTick _ graphArea width // (self maxTime//10) max: 1. hScale _ (ScaleMorph newBounds: ((graphArea left)@(frame top) corner: (self xFromMs: self maxTime)@(graphArea top - 1))) start: 0 stop: self maxTime minorTick: 10 minorTickLength: 3 majorTick: 100 majorTickLength: 10 caption: 'milliseconds' tickPrintBlock: [:v | v printString]. self addMorph: hScale. vScale _ ScaleMorph newBounds: (0@0 extent: (graphArea height)@(graphArea left - frame left)). env updateSelector = #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: [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). ! ----- Method: EnvelopeEditorMorph>>buildView (in category 'construction') ----- buildView | frame | self color: Color lightGreen. self removeAllMorphs. frame := self innerBounds. self buildGraphAreaIn: frame. self buildScalesIn: frame. self addHandlesIn: frame. self addCurves. line addHandles. self addControls. self addKeyboard! ----- Method: EnvelopeEditorMorph>>chooseDenominator: (in category 'menu') ----- chooseDenominator: evt | menu | menu := MenuMorph new. (Integer primesUpTo: 30) do: [:i | menu add: i printString target: self selector: #setDenominator: argument: i]. menu addLine. menu add: 'none' target: self selector: #setDenominator: argument: 9999. menu popUpAt: evt hand position event: evt. ! ----- Method: EnvelopeEditorMorph>>chooseEnvelope: (in category 'menu') ----- chooseEnvelope: choice | name | (choice beginsWith: 'edit ') ifTrue: [name := choice copyFrom: 'edit ' size+1 to: choice size. ^ self editEnvelope: (sound envelopes detect: [:env | env name = name])]. (choice beginsWith: 'add ') ifTrue: [name := choice copyFrom: 'add ' size+1 to: choice size. ^ self addEnvelopeNamed: name]. (choice beginsWith: 'remove ') ifTrue: [^ self removeEnvelope "the current one"]. ! ----- Method: EnvelopeEditorMorph>>chooseFrom:durationItem: (in category 'menu') ----- chooseFrom: chooserMorph durationItem: item | str | (item first isDigit and: [item asNumber ~= 0]) ifTrue: [sampleDuration := item asNumber]. item = 'other' ifTrue: [str := FillInTheBlank request: 'duration in milliseconds' initialAnswer: sampleDuration printString. sampleDuration := str asNumber]. item = 'held' ifTrue: [sampleDuration := 9999]. sound duration: sampleDuration / 1000.0. chooserMorph contentsClipped: 'duration: ' , self durationName! ----- Method: EnvelopeEditorMorph>>chooseFrom:envelopeItem: (in category 'menu') ----- chooseFrom: chooserMorph envelopeItem: item | name | (item beginsWith: 'edit ') ifTrue: [name := item copyFrom: 'edit ' size+1 to: item size. self editEnvelope: (sound envelopes detect: [:env | env name = name])]. (item beginsWith: 'add ') ifTrue: [name := item copyFrom: 'add ' size+1 to: item size. self addEnvelopeNamed: name]. (item beginsWith: 'remove ') ifTrue: [self removeEnvelope "the current one"]. chooserMorph contentsClipped: envelope name! ----- Method: EnvelopeEditorMorph>>chooseFrom:soundItem: (in category 'menu') ----- chooseFrom: chooserMorph soundItem: item self editSoundNamed: item. ! ----- Method: EnvelopeEditorMorph>>chooseSound: (in category 'menu') ----- chooseSound: evt | menu | menu := MenuMorph new. menu add: 'new' target: self selector: #editNewSound. menu addLine. AbstractSound soundNames do: [:name | menu add: name target: self selector: #editSoundNamed: argument: name]. menu popUpInWorld ! ----- Method: EnvelopeEditorMorph>>clickOn:evt:from: (in category 'editing') ----- clickOn: env evt: anEvent from: aLine self editEnvelope: env! ----- Method: EnvelopeEditorMorph>>clickOnLine:evt:envelope: (in category 'editing') ----- clickOnLine: aLine evt: anEvent envelope: env self editEnvelope: env! ----- Method: EnvelopeEditorMorph>>colorForEnvelope: (in category 'construction') ----- colorForEnvelope: env | name index | name _ env name. index _ #('volume' 'modulation' 'pitch' 'ratio') indexOf: name ifAbsent: [5]. ^ Color perform: (#(red green blue magenta black) at: index)! ----- Method: EnvelopeEditorMorph>>constrain:adjacentTo:in: (in category 'editing') ----- constrain: xVal adjacentTo: ix in: points "Return xVal, restricted between points adjacent to vertX" | newVal | newVal := xVal. ix > 1 ifTrue: [newVal := newVal max: (points at: ix-1) x]. ix < points size ifTrue: [newVal := newVal min: (points at: ix+1) x]. ^ newVal! ----- Method: EnvelopeEditorMorph>>curveChoices (in category 'construction') ----- curveChoices | extant others | extant _ sound envelopes collect: [:env | env name]. others _ #('volume' 'modulation' 'pitch' 'ratio') reject: [:x | extant includes: x]. ^ (extant collect: [:name | 'edit ' , name]) , (others collect: [:name | 'add ' , name]) , (sound envelopes size > 1 ifTrue: [Array with: 'remove ' , envelope name] ifFalse: [Array new])! ----- Method: EnvelopeEditorMorph>>deletePoint: (in category 'editing') ----- deletePoint: ix "If the point is a limit point, return false, otherwise, delete the point at ix, and return true. " (limits includes: ix) ifTrue: [^ false]. 1 to: limits size do: [:i | "Decrease limit indices beyond the deletion" (limits at: i) > ix ifTrue: [limits at: i put: (limits at: i) - 1]]. envelope setPoints: (envelope points copyReplaceFrom: ix to: ix with: Array new) loopStart: (limits at: 1) loopEnd: (limits at: 2). ^ true! ----- Method: EnvelopeEditorMorph>>durationChoices (in category 'construction') ----- durationChoices ^ #( '125ms' '250ms' '500ms' '1000ms' '2000ms' 'other' 'held' )! ----- Method: EnvelopeEditorMorph>>durationName (in category 'construction') ----- durationName self durationChoices do: [:c | (c first isDigit and: [c asNumber = sampleDuration]) ifTrue: [^ c]]. sampleDuration = 9999 ifTrue: [^ 'held']. ^ sampleDuration printString ! ----- Method: EnvelopeEditorMorph>>editEnvelope: (in category 'initialization') ----- editEnvelope: env envelope := env. limits := Array with: envelope loopStartIndex with: envelope loopEndIndex with: envelope points size. limitXs := limits collect: [:i | (envelope points at: i) x]. self buildView! ----- Method: EnvelopeEditorMorph>>editNewSound (in category 'menu') ----- editNewSound | known i | known := AbstractSound soundNames. i := 0. [soundName := 'unnamed' , i printString. known includes: soundName] whileTrue: [i := 1+1]. soundName := soundName. self editSound: FMSound default copy! ----- Method: EnvelopeEditorMorph>>editSound: (in category 'initialization') ----- editSound: aSound | p | sound := aSound. sound envelopes isEmpty ifTrue: [ "provide a default volume envelope" p := OrderedCollection new. p add: 0(a)0.0; add: 10(a)1.0; add: 100(a)1.0; add: 120(a)0.0. sound addEnvelope: (VolumeEnvelope points: p loopStart: 2 loopEnd: 3)]. self editEnvelope: sound envelopes first. keyboard soundPrototype: sound. ! ----- Method: EnvelopeEditorMorph>>editSoundNamed: (in category 'menu') ----- editSoundNamed: name soundName := name. self editSound: (AbstractSound soundNamed: soundName) copy! ----- Method: EnvelopeEditorMorph>>extent: (in category 'scaling') ----- extent: newExtent super extent: (newExtent max: (self maxTime//10*3+50 max: 500) @ 400). self buildView! ----- Method: EnvelopeEditorMorph>>handleOffset: (in category 'construction') ----- handleOffset: handle "This is the offset from position to the bottom vertex" ^ (handle width//2+1) @ handle height ! ----- Method: EnvelopeEditorMorph>>initOnSound:title: (in category 'initialization') ----- initOnSound: aSound title: title sound := aSound. soundName := title. self initialize. ! ----- Method: EnvelopeEditorMorph>>initialize (in category 'initialization') ----- initialize super initialize. prevMouseDown := false. showAllEnvelopes := true. self editSound: (sound ifNil: [FMSound brass1 copy]). soundName ifNil: [soundName := 'test']. sampleDuration _ 250. sound duration: sampleDuration. sound duration: sampleDuration / 1000.0. denominator := 7. self extent: 10@10. "ie the minimum" ! ----- Method: EnvelopeEditorMorph>>insertPointAfter: (in category 'editing') ----- insertPointAfter: ix "If there is not enough roon (in x) then return false. Otherwise insert a point between ix and ix+1 and return true." | points pt | points := envelope points. (points at: ix + 1) x - (points at: ix) x < 20 ifTrue: [^ false]. pt := (points at: ix + 1) + (points at: ix) // 2. 1 to: limits size do: [:i | "Increase limit indices beyond the insertion" (limits at: i) > ix ifTrue: [limits at: i put: (limits at: i) + 1]]. envelope setPoints: (points copyReplaceFrom: ix + 1 to: ix with: (Array with: pt)) loopStart: (limits at: 1) loopEnd: (limits at: 2). ^ true! ----- Method: EnvelopeEditorMorph>>limitHandleMove:event:from: (in category 'editing') ----- limitHandleMove: index event: evt from: handle "index is the handle index = 1, 2 or 3" | ix p ms x points limIx | ix := limits at: index. "index of corresponding vertex" p := evt cursorPoint adhereTo: graphArea bounds. ms := self msFromX: p x + (self handleOffset: handle) x. "Constrain move to adjacent points on ALL envelopes " sound envelopes do: [:env | limIx := env perform: (#(#loopStartIndex #loopEndIndex #decayEndIndex ) at: index). ms := self constrain: ms adjacentTo: limIx in: env points]. "Update the handle, the vertex and the line being edited " x := self xFromMs: ms. handle position: x @ graphArea top - (self handleOffset: handle). line verticesAt: ix put: x @ (line vertices at: ix) y. sound envelopes do: [:env | limIx := env perform: (#(#loopStartIndex #loopEndIndex #decayEndIndex ) at: index). points := env points. points at: limIx put: ms @ (points at: limIx) y. env setPoints: points loopStart: env loopStartIndex loopEnd: env loopEndIndex]! ----- Method: EnvelopeEditorMorph>>limitHandleMoveEvent:from:index: (in category 'editing') ----- limitHandleMoveEvent: arg1 from: arg2 index: arg3 "Reorder the arguments for existing event handlers" (arg3 isMorph and:[arg3 eventHandler notNil]) ifTrue:[arg3 eventHandler fixReversedValueMessages]. ^self limitHandleMove: arg1 event: arg2 from: arg3! ----- Method: EnvelopeEditorMorph>>maxTime (in category 'scaling') ----- maxTime ^ (envelope points at: limits last) x + 100! ----- Method: EnvelopeEditorMorph>>msFromX: (in category 'scaling') ----- msFromX: x ^ (x - graphArea left)//pixPerTick*10! ----- Method: EnvelopeEditorMorph>>playChoices (in category 'construction') ----- playChoices ^ #(now afterEdits duringEdits)! ----- Method: EnvelopeEditorMorph>>playNothing (in category 'playing') ----- playNothing ! ----- Method: EnvelopeEditorMorph>>readFileNamed: (in category 'menu') ----- readFileNamed: fileName | snd | snd := Compiler evaluate: (FileStream readOnlyFileNamed: fileName) contentsOfEntireFile. soundName := fileName copyFrom: 1 to: fileName size-4. "---.fmp" self editSound: snd! ----- Method: EnvelopeEditorMorph>>readFromDisk: (in category 'menu') ----- readFromDisk: evt | menu | menu := MenuMorph new. (FileDirectory default fileNamesMatching: '*.fmp') do: [:fileName | menu add: fileName target: self selector: #readFileNamed: argument: fileName]. menu popUpAt: evt hand position event: evt. ! ----- Method: EnvelopeEditorMorph>>removeEnvelope (in category 'menu') ----- removeEnvelope (PopUpMenu confirm: 'Really remove ' , envelope name , '?') ifFalse: [^ self]. sound removeEnvelope: envelope. self editEnvelope: sound envelopes first.! ----- Method: EnvelopeEditorMorph>>saveLibToDisk: (in category 'menu') ----- saveLibToDisk: evt | newName f snd | newName := FillInTheBlank request: 'Please confirm name for library...' initialAnswer: 'MySounds'. newName isEmpty ifTrue: [^ self]. f := FileStream newFileNamed: newName , '.fml'. AbstractSound soundNames do: [:name | snd := AbstractSound soundNamed: name. "snd isStorable" true ifTrue: [f nextChunkPut: 'AbstractSound soundNamed: ' , name , ' put: ' , snd storeString; cr; cr] ifFalse: [PopUpMenu notify: name , ' is not currently storable']]. f close! ----- Method: EnvelopeEditorMorph>>saveSound: (in category 'menu') ----- saveSound: evt | newName | newName := FillInTheBlank request: 'Please confirm name for save...' initialAnswer: soundName. newName isEmpty ifTrue: [^ self]. AbstractSound soundNamed: newName put: sound. soundName := newName.! ----- Method: EnvelopeEditorMorph>>saveToDisk: (in category 'menu') ----- saveToDisk: evt | newName f | newName := FillInTheBlank request: 'Please confirm name for save...' initialAnswer: soundName. newName isEmpty ifTrue: [^ self]. f := FileStream newFileNamed: newName , '.fmp'. sound storeOn: f. f close! ----- Method: EnvelopeEditorMorph>>setDenominator: (in category 'menu') ----- setDenominator: denom denominator := denom. self buildView! ----- Method: EnvelopeEditorMorph>>soundBeingEdited (in category 'initialization') ----- soundBeingEdited ^ sound! ----- Method: EnvelopeEditorMorph>>soundChoices (in category 'construction') ----- soundChoices ^ #('new...') , AbstractSound soundNames! ----- Method: EnvelopeEditorMorph>>step (in category 'stepping') ----- step | mouseDown hand | hand := self world firstHand. (bounds containsPoint: hand position) ifFalse: [^ self]. mouseDown := hand lastEvent redButtonPressed. mouseDown not & prevMouseDown ifTrue: ["Mouse just went up" limitXs = (limits collect: [:i | (envelope points at: i) x]) ifFalse: ["Redisplay after changing limits" self editEnvelope: envelope]]. prevMouseDown := mouseDown! ----- Method: EnvelopeEditorMorph>>stepTime (in category 'stepping') ----- stepTime ^ 100! ----- Method: EnvelopeEditorMorph>>valueFromY: (in category 'scaling') ----- valueFromY: y "The convention is that envelope values are between 0.0 and 1.0" | value | value := (graphArea bottom - y) asFloat / (graphArea height). envelope updateSelector = #ratio: ifTrue: ["Ratio gets gridded by denominator" ^ (value * envelope scale * denominator) rounded asFloat / denominator / envelope scale]. ^ value! ----- Method: EnvelopeEditorMorph>>wantsRoundedCorners (in category 'rounding') ----- wantsRoundedCorners ^ Preferences roundedWindowCorners or: [super wantsRoundedCorners]! ----- Method: EnvelopeEditorMorph>>xFromMs: (in category 'scaling') ----- xFromMs: ms ^ graphArea left + (ms//10*pixPerTick)! ----- Method: EnvelopeEditorMorph>>yFromValue: (in category 'scaling') ----- yFromValue: val "The convention is that envelope values are between 0.0 and 1.0" ^ graphArea bottom - (val* (graphArea height))! RectangleMorph subclass: #ScaleMorph instanceVariableNames: 'caption start stop minorTick minorTickLength majorTick majorTickLength tickPrintBlock' classVariableNames: 'ClassVarName1 ClassVarName2' poolDictionaries: '' category: 'EnvelopeEditorRevival'! ----- Method: ScaleMorph>>buildLabels (in category 'as yet unclassified') ----- buildLabels | scale x1 y1 y2 x captionMorph tickMorph loopStart | self removeAllMorphs. caption ifNotNil: [captionMorph := StringMorph contents: caption. captionMorph align: captionMorph bounds bottomCenter with: self bounds bottomCenter - (0 @ majorTickLength) - (0 @ (captionMorph height + 2)). self addMorph: captionMorph]. tickPrintBlock ifNotNil: [scale := self innerBounds width - 1 / ((stop - start) max: 0.1 )asFloat. x1 := self innerBounds left. y1 := self innerBounds bottom. y2 := y1 - majorTickLength. "Start loop on multiple of majorTick" loopStart := (start / majorTick) ceiling * majorTick. loopStart to: stop by: majorTick do: [:v | x := x1 + (scale * (v - start)). tickMorph := StringMorph contents: (tickPrintBlock value: v). tickMorph align: tickMorph bounds bottomCenter with: x @ y2. tickMorph left < self left ifTrue: [tickMorph position: self left @ tickMorph top]. tickMorph right > self right ifTrue: [tickMorph position: self right - tickMorph width @ tickMorph top]. self addMorph: tickMorph]]! ----- Method: ScaleMorph>>drawOn: (in category 'as yet unclassified') ----- drawOn: aCanvas | scale x1 y1 y2 x y3 even yy loopStart checkStart | super drawOn: aCanvas. scale := self innerBounds width - 1 / (stop - start) asFloat. x1 := self innerBounds left. y1 := self innerBounds bottom - 1. y2 := y1 - minorTickLength. loopStart := (start / minorTick) ceiling * minorTick. loopStart to: stop by: minorTick do: [:v | x := x1 + (scale * (v - start)). aCanvas line: x @ y1 to: x @ y2 width: 1 color: Color black]. x1 := self innerBounds left. y2 := y1 - majorTickLength. y3 := y1 - (minorTickLength + majorTickLength // 2). even := true. "Make sure major ticks start drawing on a multiple of majorTick" loopStart := (start / majorTick) ceiling * majorTick. checkStart := (start / (majorTick / 2.0)) ceiling * majorTick. "Check to see if semimajor tick should be drawn before majorTick" checkStart = (loopStart * 2) ifFalse: [loopStart := checkStart / 2.0. even := false]. loopStart to: stop by: majorTick / 2.0 do: [:v | x := x1 + (scale * (v - start)). yy := even ifTrue: [y2] ifFalse: [y3]. aCanvas line: x @ y1 to: x @ yy width: 1 color: Color black. even := even not]! ----- Method: ScaleMorph>>extent: (in category 'as yet unclassified') ----- extent: newExtent | pixPerTick newWidth | pixPerTick := newExtent x - (self borderWidth * 2) - 1 / ((stop - start) asFloat / minorTick). pixPerTick := pixPerTick detentBy: 0.1 atMultiplesOf: 1.0 snap: false. newWidth := pixPerTick * ((stop - start) asFloat / minorTick) + (self borderWidth * 2) + 1. super extent: newWidth @ newExtent y. self buildLabels! ----- Method: ScaleMorph>>initialize (in category 'as yet unclassified') ----- initialize super initialize. borderWidth := 0. color := Color lightGreen. start := 0. stop := 100. minorTick := 1. majorTick := 10. minorTickLength := 3. majorTickLength := 10. caption := 'sample'. tickPrintBlock := [:v | v printString]! ----- Method: ScaleMorph>>start:stop:minorTick:minorTickLength:majorTick:majorTickLength:caption:tickPrintBlock: (in category 'as yet unclassified') ----- start: strt stop: stp minorTick: mnt minorTickLength: mntLen majorTick: mjt majorTickLength: mjtLen caption: cap tickPrintBlock: blk start := strt. stop := stp. minorTick := mnt. minorTickLength := mntLen. majorTick := mjt. majorTickLength := mjtLen. caption := cap. tickPrintBlock := blk fixTemps. self buildLabels! PolygonMorph subclass: #EnvelopeLineMorph instanceVariableNames: 'editor' classVariableNames: '' poolDictionaries: '' category: 'EnvelopeEditorRevival'! ----- Method: EnvelopeLineMorph>>defaultColor (in category 'initialization') ----- defaultColor "answer the default color/fill style for the receiver" ^ Color transparent! ----- Method: EnvelopeLineMorph>>dragVertex:event:fromHandle: (in category 'editing') ----- dragVertex: ix event: evt fromHandle: handle | p | super dragVertex: ix event: evt fromHandle: handle. p := owner acceptGraphPoint: evt cursorPoint at: ix. self verticesAt: ix put: p. ! ----- Method: EnvelopeLineMorph>>dragVertex:fromHandle:vertIndex: (in category 'as yet unclassified') ----- dragVertex: evt fromHandle: handle vertIndex: ix | p | super dragVertex: evt fromHandle: handle vertIndex: ix. p := owner acceptGraphPoint: evt cursorPoint at: ix. vertices at: ix put: p. self computeBounds! ----- Method: EnvelopeLineMorph>>dropVertex:event:fromHandle: (in category 'editing') ----- dropVertex: ix event: evt fromHandle: handle | oldVerts | oldVerts := vertices. super dropVertex: ix event: evt fromHandle: handle. vertices = oldVerts ifFalse: [owner deletePoint: ix "deleted a vertex"]! ----- Method: EnvelopeLineMorph>>dropVertex:fromHandle:vertIndex: (in category 'as yet unclassified') ----- dropVertex: evt fromHandle: handle vertIndex: ix | oldVerts | oldVerts := vertices. super dropVertex: evt fromHandle: handle vertIndex: ix. vertices = oldVerts ifFalse: [owner deletePoint: ix "deleted a vertex"]! ----- Method: EnvelopeLineMorph>>newVertex:event:fromHandle: (in category 'editing') ----- newVertex: ix event: evt fromHandle: handle "Install a new vertex if there is room." (owner insertPointAfter: ix) ifFalse: [^ self "not enough room"]. super newVertex: ix event: evt fromHandle: handle. self verticesAt: ix+1 put: (owner acceptGraphPoint: evt cursorPoint at: ix+1). ! ----- Method: EnvelopeLineMorph>>newVertex:fromHandle:afterVert: (in category 'as yet unclassified') ----- newVertex: evt fromHandle: handle afterVert: ix "Install a new vertex if there is room." (owner insertPointAfter: ix) ifFalse: [^ self "not enough room"]. super newVertex: evt fromHandle: handle afterVert: ix. vertices at: ix+1 put: (owner acceptGraphPoint: evt cursorPoint at: ix+1). self computeBounds! ----- Method: EnvelopeLineMorph>>vertices:borderWidth:borderColor: (in category 'as yet unclassified') ----- vertices: verts borderWidth: bw borderColor: bc super initialize. vertices := verts. color := Color transparent. borderWidth := bw. borderColor := bc. closed := false. arrows := #none. self computeBounds!

1 0

Further damage to Etoys Reference Manual
by Edward Cherlin 20 Oct '12

20 Oct '12

Wherever I look in Objects and More Objects since Rita split them, I find items missing essential text, up to and including the name of the object concerned; material out of order; object definitions that belong in Objects, arbitrarily moved; objects not moved that should have been; and objects missing entirely. Many of my notes on Squeak implementation of Etoys objects seem to have disappeared. I am sick at heart. Well, I suppose that I can recover everything via the history. But I don't like it. -- Edward Mokurai (默雷/निशब्दगर्ज/نشبدگرج) Cherlin Silent Thunder is my name, and Children are my nation. The Cosmos is my dwelling place, the Truth my destination. http://wiki.sugarlabs.org/go/Replacing_Textbooks

2 1

Object definitions
by Edward Mokurai Cherlin 19 Oct '12

19 Oct '12

I have repaired the obvious damage in the More Objects chapter, and I am now working on * Making sure that all objects are defined in the appropriate chapter, and that no essential information has been lost * Moving all information on Squeak implementations of Etoys objects to a new appendix, Morph Definitions * Putting moved information on Etoys components of Etoys objects back with their descriptions I remain unhappy about the extra work I am having to do in order to undo the damage I found this morning. -- Edward Mokurai (默雷/निशब्दगर्ज/نشبدگرج) Cherlin Silent Thunder is my name, and Children are my nation. The Cosmos is my dwelling place, the Truth my destination. http://wiki.sugarlabs.org/go/Replacing_Textbooks

2 1

Re: [etoys-dev] lost paint palettes
by Edward Cherlin 18 Oct '12

18 Oct '12

I do not get this behavior in Etoys 5.0 on Ubuntu Linux. When I drag the PaintBox out of view with the black handle, the border pops back into the window. Now, if I move it so that the short edge is at the edge of the window and then rotate it with the blue Halo tool or with a script, I can get it to disappear, with PaintBox's x = 1411, and PaintBox's left at 1293. But then I can get it back on the screen using the _round up strays_ selection in _playfield options..._ on the world menu (ctrl-alt-w or cmd-alt-w on different platforms). Subbu, which platform are you using? On Sun, October 14, 2012 3:02 pm, Harness, Kathleen wrote: > Hi Subbu, . > This below is using Etoys 5.0 on my PC. > Drag the paint palette out of view of the right side of the world with > left click and drag and it does show along the edge. > Drag the paint palette using the black halo handle and it moves out of > sight leaving just a little of the set of halo handles showing. Click on > the world and those handles vanish leaving just the paint area rectangle > and no way to get to that paint palette. > > After doing the above steps and shift drag around the remaining paint area > rectangle, the X will delete the area. Then try to open a new paint tool > from the Nav Bar and I get a paint area rectangle and brush still showing > and the message about only one paint tool at a time. Other objects in > Supplies, eg Text are still available for use as usual, it is just paint > tool's palette that is gone. > > I am not explaining this well. We may need to Google + screen share so I > can show this happening. It breaks every time for me. > > Thank you for attributing to me deeper knowledge than I have . . . I do > not know how to use this information even when I follow the steps "use > "debug..." to "explore the world". The onion skin shows up under > "root->submorphs->SketchEditorMorph" and its associated PaintBoxMorph is > held in its palette attribute. Sketch editor creates a new paintbox only > when necessary." > Regards, > Kathleen > > ________________________________________ > From: K. K. Subramaniam [kksubbu.ml(a)gmail.com] > Sent: Sunday, October 14, 2012 10:37 AM > To: Harness, Kathleen > Cc: etoys-dev(a)squeakland.org; Kathleen Harness > Subject: Re: [etoys-dev] lost paint palettes > > On Sunday 14 Oct 2012 12:42:16 PM Harness, Kathleen wrote: >> Subbu, >> I am using Etoys 5 here at home and the students were using the latest >> version of Etoys-to-Go. In either case, slide the paint palette out of >> sight, (I see the resistance you describe as sticking to an edge) but >> then >> click on the world and the paint palette's halo vanishes, the palette is >> out of sight and the paint area is still there. > I just downloaded Etoys-To-Go-5.0 from squeakland and couldn't reproduce > this > behavior. When I drag the palette off the right edge, the palette's border > sticks out at that edge. If I now click on the world, the halo does vanish > but > the border is still stuck at the edge. I could restore the palette back > into > the screen area by dragging on the border. > >> Using the Shift-drag rectangle discards that lonesome paint area but >> clicking for a new paint tool from the Navigator Bar brings the message >> "you can only paint one object at a time". > I couldn't reproduce this too. If I drag-select the sketch editor skin and > delete it, the paintbox still hangs around but if I click the "make a > painting" button, I get a new sketch editor associated with the old > paintbox. > > BTW, you can bring up the world menu with one of ALT-COMMA/CTRL-COMMA/CMD- > COMMA and then use "debug..." to "explore the world". The onion skin shows > up > under "root->submorphs->SketchEditorMorph" and its associated > PaintBoxMorph is > held in its palette attribute. Sketch editor creates a new paintbox only > when > necessary. > > Regards .. Subbu > _______________________________________________ > etoys-dev mailing list > etoys-dev(a)squeakland.org > http://lists.squeakland.org/mailman/listinfo/etoys-dev > -- Edward Mokurai (默雷/निशब्दगर्ज/نشبدگرج) Cherlin Silent Thunder is my name, and Children are my nation. The Cosmos is my dwelling place, the Truth my destination. http://wiki.sugarlabs.org/go/Replacing_Textbooks

1 0

Re: [etoys-dev] new chapter for more objects in reference manual
by Edward Mokurai Cherlin 16 Oct '12

16 Oct '12

Thanks, Rita. I am happy about you reverting to the intended design, and putting my additions in other places. I tried to ask about the design of the Etoys Reference Manual when I started making additions to it. This is the first answer I have gotten to some of those questions. On Tue, October 16, 2012 3:14 pm, Rita Freudenberg wrote: > I also made another pass on the existing objects chapter. I removed all > objects that are not accessible through the object catalogue. I think we need to make it clear if we are only describing objects in the Objects chapter that are in categories in the Object Catalog, and why. I see that you moved Holder, which is in the Scripting category. Would it be acceptable to move it back? That is just the first item that jumped out at me. I will make several more detailed passes over both Object chapters once I know what the plan is, for content, style, and proofreading. I see that you have moved only some of the objects that are in no category. Do you intend to move the rest of them? > As I explained before, that was our decision when structuring the manual. > I added all the parts that I removed to a new chapter which is called > "More Etoys Objects" right now. I'm happy about suggestions for a better > name! I will think about it. > Having a new chapter was also suggested by Karl in this discussion. > I also took out the references about the class hierarchy of the Etoys > objects (but copied it into the new chapter, the information is not > lost!). I think that this is very valuable information! It is great work > to have this easily available! Much of that information is still in the Objects chapter. > But please accept that this is a group effort. We started 2 years ago, > with a book sprint and extensive discussions about the structure and > content of the manual. We will finish our manual in the way we decided > then. Are those discussions archived or otherwise documented? > We deliberately excluded information about the underlying Squeak. I'm > happy to have a chapter about the introduction into Squeak My plan is to provide the most basic information about parts of Squeak accessible directly from Etoys, mainly via various menus and key combinations, and to say nothing about how to develop in Squeak except some hints about when it is necessary to drop from Etoys to Squeak to accomplish certain tasks. For example, the color attributes for Morphs include RGB components for the main color, but not for border or pen trail colors. I have an Etoys workaround, and I am looking at how one would work across the Etoys/Squeak boundary on such things in text programming on tiles, or how one would implement the component model for borders and pen trails. Most of this would not be appropriate for this manual, but there is, I feel, an irreducible minimum that is necessary here. I do want to answer the question about finding the Squeak names for instances of Etoys Morphs, or for attributes such as Morph's pen color or the values of variables. Can someone interpret this for me? an EllipseMorph<Ellipse>(563) in an inspector with the title an UnscriptedPlayer (879) named Ellipse The {Object}'s pen color tile renders in text as, for example, self setPenColor: (Color r: 0.0 g: 0.0 b: 1.0) How can I set those components in Etoys? I see self setVar1: 1 self setVar2: 1 as the text for two variable tiles. Then what? How do I refer to them elsewhere? For simple variables and arguments, I see how to drop the value of another variable in as a simple value or part of an expression. For a color where the components are not provided as Etoys variables, I don't see it at all. I will have to explore further and raise further questions, I think. I seem to get contradictory information from the Implementors view and the Hierarchy view. Perhaps I just mean information that makes no sense to me, yet. > or the new > chapter I created for all the objects which you can only get when > etoy-friendly is turned off or which you can only access in the class > browser. I'm also happy to discuss this on the list. But for all the > contributors to the manual so far, it does not feel fair to see changes > made without group consent. I will be happy to have that conversation. > I hope you understand my point. What I don't want you to think is that I > don't value your work! Feel free to create the new chapter the way you > think is best. Thank you. > Greetings, > Rita > > Am 14.10.2012 um 19:46 schrieb Edward Mokurai Cherlin: > >> I did make another pass over the Objects chapter, filling in the >> Object Catalog entries that appear with eToyFriendly off, and adding >> more images and references to bug reports. >> >> On Wed, October 10, 2012 7:18 am, Rita Freudenberg wrote: >>> Please do not add or remove objects from the objects chapter. In this >>> chapter, we will ONLY have objects you can find in the objects >>> catalogue. >> >> I disagree with this notion. However, it does not matter much to me >> which chapter the descriptions appear in as long as I can make them >> clear, correct, and complete. >> >>> It does not matter in the object chapter in which subclasses these >>> objects >>> are implemented. The scope of information in the object chapter is >>> Etoys, >>> not Squeak >> >> I disagree. This is a Reference Manual. >> >> In addition, because of deficiencies in the Etoys implementation, >> there are important properties of some Etoys objects that cannot be >> managed in Etoys, but require use of Squeak to make those objects of >> any use. >> >> This is a separate topic, but I find that Etoys is in need of a major >> refactoring, and also a detailed proofreading and a substantial >> rewriting of exceedingly uninformative help text and comments. I am >> shocked by the sloppiness I see. >> >>> (i.e. the underlying programming language, you can only reach >>> easily when you turn Etoy friendly off). >> >> This turns out not to be the case. All of Squeak is accessible using >> keyboard shortcuts, the inspect object menu item in the Players tool, >> and the middle-click menu, regardless of the eToyFriendly setting. >> Inspector, explorer, debugger, browser, senders, implementors, >> references, selectors, method strings, class names, change sets, >> workspace, transcript, and more. >> >> Granted that none of this is easy to discover, nevertheless it is >> quite easy to reach after only a few hints and brief explanations. >> Understanding how to use the Squeak IDE and Smalltalk is of course >> much more complicated than that. >> >> The most obvious difference with eToyFriendly off is that Workspace >> appears in the Object Catalog, but there are 49 places in Squeak >> (senders) that refer to the eToyFriendly setting, and I have not had a >> chance to look at them all. >> >>> I'm happy to have an appendix with all the other objects and I'll move >>> your descriptions to that chapter. It is very important information! >>> But >>> not for the average Etoys user, not for the teacher who just start >>> using >>> Etoys >> >> It is my understanding that this is a Reference Manual, and not in any >> way an introduction to Etoys for either teachers or students. >> >>> and you can use Etoys happily for many challenges with your students >>> without ever looking at the underlying Squeak source code. >>> For computer science teachers, on the other hand, what you wrote down >>> is >>> very useful. >> >> You and I seem to have very different views of what children are >> interested in learning. In a word: everything. It is the worst sort of >> condescension to tell children (or anybody) what they are allowed to >> know about, except that it is even worse condescension to claim to >> tell them what they _want_ to know about. >> >> When I want to hear _your_ opinion, I'll *tell* it to you.--Any >> tyranny since Plato, most notably the Prussian school system >> >> The greatest principle of all is that nobody, whether male or female, >> should be without a leader. Nor should the mind of anybody be >> habituated to letting him (or her) do anything at all on his (or her) >> own initiativeâ€“to his leader he shall direct his eye and follow him >> faithfully. And even in the smallest matter he should stand under >> leadership. For example, he should get up, or move, or wash, or take >> his meals...only if he has been told to do so. In a word, he should >> teach his soul, by long habit, never to dream of acting independently, >> and to become utterly incapable of it. >> >> Plato, Laws 942d (350 BCE) >> >> Johann Gottlieb Fichte (1762â€“1814) >> >> You must fashion [the person], and fashion him in such a way that >> he simply cannot will otherwise than what you wish him to will. >> >> Addresses to the German Nation >> >> What I wrote down is precisely what I would have liked to see when I >> was eleven years old. What I would have demanded to see, in fact. >> >> Etoys is an excellent introduction to programming, but at a certain >> point vastly frustrating. At that point being able to go under the >> hood into Squeak to fix broken objects or extend their capabilities is >> of immense value. The notion that one must wait for a computer science >> course to learn real programming is to me utterly contrary to the >> reality that we hear from student programmers. We know for a fact, >> from a great many studies involving a wide variety of programming >> languages, that children can learn text-based programming languages >> starting in third grade. I have a notion that we can start Turtle Art >> in preschool, in large part by getting rid of the words on the tiles >> and replacing them with Unicode symbols. I started to create such a >> system last year, and wrote about it, with examples. >> >> http://wiki.sugarlabs.org/go/Activities/TurtleArt/Tutorials/Turtle_Art_prog… >> >>> In the appendix, I added the chapter "More etoys objects" and I started >>> to >>> copy all objects, which are not in the object catalog, to that chapter. >>> We >>> can discuss to move the chapter out of the appendices, but, as Karl >>> also >>> said, there should be a second chapter. >> >> Then we should rename the Objects chapter, perhaps to The Basic Object >> Catalog. >> >>> Greetings, >>> Rita >>> >>> P.S. Thanks for the explanation about the logout problem, now it is >>> solved! >>> >>> On Oct 7, 2012, at 5:19 PM, Edward Mokurai Cherlin wrote: >>> >>>> I have completed another pass over the Objects chapter in the Etoys >>>> Reference Manual, >>>> >>>> http://booki.flossmanuals.net/etoys-reference-manual/_edit/ >>>> >>>> dissecting objects into components, documenting the components, >>>> identifying the Squeak sources for Etoys objects, adding v5 objects, >>>> explaining bugs and design deficiencies, noting further information >>>> needed, and finding more topics to explain elsewhere. Review and >>>> comments welcome. I expect to make another pass again after I work on >>>> other aspects of Etoys and Squeak for a while. >>>> >>>> There was some confusion about my intention in creating a new chapter >>>> for the book on Etoys Programming. I hope that my renaming the chapter >>>> to Etoys Programming Tools will clarify that issue. As I said before, >>>> and in the little bit I have written in the chapter, it is in no way >>>> meant to teach how to program in Etoys, only to document how Etoys >>>> supports software development. Other chapters describe elements of >>>> this system (UI, scripting tiles, objects) piecemeal. This chapter >>>> will give an integrated view of the Etoys IDE, including how it gives >>>> access to Squeak, but will not attempt to explain Squeak programming. >>>> >>>> -- >>>> Edward Mokurai >>>> (Ã©Â»ËœÃ©â€ºÂ·/Ã Â¤Â¨Ã Â¤Â¿Ã Â¤Â¶Ã Â¤Â¬Ã Â¥ÂÃ Â¤Â¦Ã Â¤â€”Ã Â¤Â°Ã Â¥ÂÃ Â¤Å“/Ã™â€ Ã˜Â´Ã˜Â¨Ã˜Â¯ÃšÂ¯Ã˜Â±Ã˜Â¬) >>>> Cherlin >>>> Silent Thunder is my name, and Children are my nation. >>>> The Cosmos is my dwelling place, the Truth my destination. >>>> http://wiki.sugarlabs.org/go/Replacing_Textbooks >>>> _______________________________________________ >>>> etoys-dev mailing list >>>> etoys-dev(a)squeakland.org >>>> http://lists.squeakland.org/mailman/listinfo/etoys-dev >>> >>> Rita Freudenberg >>> rita.freudenberg(a)ovgu.de >> >> >> -- >> Edward Mokurai (é»˜é›·/à¤¨à¤¿à¤¶à¤¬à¥à¤¦à¤—à¤°à¥à¤œ/Ù†Ø´Ø¨Ø¯Ú¯Ø±Ø¬) >> Cherlin >> Silent Thunder is my name, and Children are my nation. >> The Cosmos is my dwelling place, the Truth my destination. >> http://wiki.sugarlabs.org/go/Replacing_Textbooks >> _______________________________________________ >> etoys-dev mailing list >> etoys-dev(a)squeakland.org >> http://lists.squeakland.org/mailman/listinfo/etoys-dev > > Rita Freudenberg > rita(a)isg.cs.uni-magdeburg.de -- Edward Mokurai (默雷/निशब्दगर्ज/نشبدگرج) Cherlin Silent Thunder is my name, and Children are my nation. The Cosmos is my dwelling place, the Truth my destination. http://wiki.sugarlabs.org/go/Replacing_Textbooks

1 0

Etoys: Morphic-kfr.96.mcz
by commits＠source.squeak.org 16 Oct '12

16 Oct '12

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.96.mcz ==================== Summary ==================== Name: Morphic-kfr.96 Author: kfr Time: 16 October 2012, 9:41:57 pm UUID: 4aa0f9ba-f157-be4f-b8c6-0f0da5403a76 Ancestors: Morphic-bf.95 localization: list of mathematical functions untranslateable or wrong strings used http://tracker.squeakland.org/browse/SQ-1110 (Some other methods from I don't know where popped up here also) =============== Diff against Morphic-bf.95 =============== Item was changed: ----- Method: InteriorSolidSugarSuppliesTab>>fitOnScreen (in category 'positioning') ----- fitOnScreen "19 sept 2000 - allow flaps in any paste up" | constrainer t l | constrainer _ owner ifNil: [self]. self flapShowing "otherwise no point in doing this" ifTrue:[self spanWorld]. self orientation == #vertical ifTrue: [ t _ ((self top min: (constrainer bottom- self height)) max: constrainer top). t = self top ifFalse: [self top: t]. ] ifFalse: [ l _ ((self left min: (constrainer right - self width)) max: constrainer left). l = self left ifFalse: [self left: l]. ]. self flapShowing ifFalse: [self positionObject: self atEdgeOf: constrainer]. ! Item was changed: ----- Method: InteriorSolidSugarSuppliesTab>>showFlap (in category 'show & hide') ----- showFlap "Open the flap up" self height: (self valueOfProperty: #heightWHenOpen ifAbsent: [20]). super showFlap! Item was changed: ----- Method: InteriorSolidSugarSuppliesTab>>spanWorld (in category 'positioning') ----- spanWorld "Make the receiver's width commensurate with that of the container." super spanWorld. self width: self pasteUpMorph width! Item was changed: ----- Method: StandardScriptingSystem>>tableOfNumericFunctions (in category 'utilities') ----- tableOfNumericFunctions "Answer an array of <external function name> <actual function to call> <help string> triplets." " English on tile selector English balloon help" ^ #( + ('abs' abs 'absolute value') + ('arcTan' arcTan 'angle, in radians, whose tangent is the argument') + ('cos' cos 'trigonometric cosine, argument in radians') + ('cube' cubed 'the argument times itself, times itself again') + ('cubeRoot ' cubeRoot 'cube root of the argument') + ('degreeArcTan' degreeArcTan 'angle, in degrees, whose tangent is the argument') + ('degreeCos' degreeCos 'trigonometric cosine, argument in degrees') + ('degreeSin' degreeSin 'trigonometric sine, argument in degrees') + ('degreeTan' degreeTan 'trigonometric tangent, argument in degrees') - (abs abs 'absolute value') - (arcTan arcTan 'angle, in radians, whose tangent is the argument') - (cos cos 'trigonometric cosine, argument in radians') - (cube cubed 'the argument times itself, times itself again') - (cubeRoot cubeRoot 'cube root of the argument') - (degreeArcTan degreeArcTan 'angle, in degrees, whose tangent is the argument') - (degreeCos degreeCos 'trigonometric cosine, argument in degrees') - (degreeSin degreeSin 'trigonometric sine, argument in degrees') - (degreeTan degreeTan 'trigonometric tangent, argument in degrees') + ('degreesToRadians' degreesToRadians 'the number of degrees equivalent to the argument which is assumed to be expressed in radians') + ('exp' exp 'exponential (e to the power of the argument)') + ('factorial' safeFactorial 'the product of all the whole numbers between 1 and the argument') + ('ln' safeLn 'natural logarithm') + ('log' safeLog 'logarithm, base 10') + ('negate' negated 'the negative of the argument') + ('radiansToDegrees' radiansToDegrees 'the number of radians equivalent to the argument, which is expressed in degrees.') + ('random' random 'a randomly chosen integer between 1 and the argument') + ('round' rounded 'the integer closest to the argument.') + ('sign' sign '1 if argument is positive, -1 if argument is negative, 0 if argument is zero.') + ('sin' sin 'trigonometric sine, argument in radians') + ('square' squared 'the argument multiplied by itself') + ('squareRoot' safeSquareRoot 'square root of the argument') + ('tan' tan 'trigonometric tangent, argument in radians') + ('truncate' truncated 'the integer nearest to the argument toward zero') - (degreesToRadians degreesToRadians 'the number of degrees equivalent to the argument which is assumed to be expressed in radians') - (exp exp 'exponential (e to the power of the argument)') - (factorial safeFactorial 'the product of all the whole numbers between 1 and the argument') - (ln safeLn 'natural logarithm') - (log safeLog 'logarithm, base 10') - (negate negated 'the negative of the argument') - (radiansToDegrees radiansToDegrees 'the number of radians equivalent to the argument, which is expressed in degrees.') - (random random 'a randomly chosen integer between 1 and the argument') - (round rounded 'the integer closest to the argument.') - (sign sign '1 if argument is positive, -1 if argument is negative, 0 if argument is zero.') - (sin sin 'trigonometric sine, argument in radians') - (square squared 'the argument multiplied by itself') - (squareRoot safeSquareRoot 'square root of the argument') - (tan tan 'trigonometric tangent, argument in radians') - (truncate truncated 'the integer nearest to the argument toward zero') ) translatedNoop " (raisedto raisedTo: 'raised to the power') "! Item was changed: ----- Method: TextualEventSequenceDisplayer>>mouseEventSequenceMorph: (in category 'initialization') ----- mouseEventSequenceMorph: aMorph "Set the mouseEventSequenceMorph, and hence build the receiver." | aString ptm | mouseEventSequenceMorph := aMorph. self hResizing: #shrinkWrap. self vResizing: #shrinkWrap. aString := String streamContents: [:aStream | aMorph events do: [:evt | aStream nextPutAll: evt printString. aStream cr]]. ptm := PluggableTextMorph new. ptm borderWidth: 2. ptm extent: 400 @ 100. ptm setBalloonText: 'Each line represents an event in the event sequence I represent' translated. ptm color: (Color r: 0.806 g: 1.0 b: 1.0). ptm editString: aString. ptm retractable: false; scrollBarOnLeft: false. ptm borderWidth: 2. ptm borderColor: ptm color muchDarker; cornerStyle: #rounded. self addMorphCentered: ptm! Item was changed: ----- Method: TextualEventSequenceDisplayer>>setExtentFromHalo: (in category 'resizing') ----- setExtentFromHalo: anExtent "The user has dragged the grow box such that the receiver's extent would be anExtent. Do what's needed." submorphs first setExtentFromHalo: anExtent!

1 0

forward command won't execute
by McGehee, Randall 16 Oct '12

16 Oct '12

Hello all, Brand new to eToys...I apologize right now if this is wrong avenue for my question. I can't get the second of three commands (forward 3, the 2nd one) to execute in the "else" (no) part of an "if" (test) statement. Everything else works, it just seems to ignore that line. Please see attachment. Thanks. Randall Troup ISD Troup, Texas

2 1

Re: [etoys-dev] More Objects in Reference Manual
by Edward Mokurai Cherlin 16 Oct '12

16 Oct '12

I did make another pass over the Objects chapter, filling in the Object Catalog entries that appear with eToyFriendly off, and adding more images and references to bug reports. On Wed, October 10, 2012 7:18 am, Rita Freudenberg wrote: > Please do not add or remove objects from the objects chapter. In this > chapter, we will ONLY have objects you can find in the objects catalogue. I disagree with this notion. However, it does not matter much to me which chapter the descriptions appear in as long as I can make them clear, correct, and complete. > It does not matter in the object chapter in which subclasses these objects > are implemented. The scope of information in the object chapter is Etoys, > not Squeak I disagree. This is a Reference Manual. In addition, because of deficiencies in the Etoys implementation, there are important properties of some Etoys objects that cannot be managed in Etoys, but require use of Squeak to make those objects of any use. This is a separate topic, but I find that Etoys is in need of a major refactoring, and also a detailed proofreading and a substantial rewriting of exceedingly uninformative help text and comments. I am shocked by the sloppiness I see. > (i.e. the underlying programming language, you can only reach > easily when you turn Etoy friendly off). This turns out not to be the case. All of Squeak is accessible using keyboard shortcuts, the inspect object menu item in the Players tool, and the middle-click menu, regardless of the eToyFriendly setting. Inspector, explorer, debugger, browser, senders, implementors, references, selectors, method strings, class names, change sets, workspace, transcript, and more. Granted that none of this is easy to discover, nevertheless it is quite easy to reach after only a few hints and brief explanations. Understanding how to use the Squeak IDE and Smalltalk is of course much more complicated than that. The most obvious difference with eToyFriendly off is that Workspace appears in the Object Catalog, but there are 49 places in Squeak (senders) that refer to the eToyFriendly setting, and I have not had a chance to look at them all. > I'm happy to have an appendix with all the other objects and I'll move > your descriptions to that chapter. It is very important information! But > not for the average Etoys user, not for the teacher who just start using > Etoys It is my understanding that this is a Reference Manual, and not in any way an introduction to Etoys for either teachers or students. > and you can use Etoys happily for many challenges with your students > without ever looking at the underlying Squeak source code. > For computer science teachers, on the other hand, what you wrote down is > very useful. You and I seem to have very different views of what children are interested in learning. In a word: everything. It is the worst sort of condescension to tell children (or anybody) what they are allowed to know about, except that it is even worse condescension to claim to tell them what they _want_ to know about. When I want to hear _your_ opinion, I'll *tell* it to you.--Any tyranny since Plato, most notably the Prussian school system The greatest principle of all is that nobody, whether male or female, should be without a leader. Nor should the mind of anybody be habituated to letting him (or her) do anything at all on his (or her) own initiative–to his leader he shall direct his eye and follow him faithfully. And even in the smallest matter he should stand under leadership. For example, he should get up, or move, or wash, or take his meals...only if he has been told to do so. In a word, he should teach his soul, by long habit, never to dream of acting independently, and to become utterly incapable of it. Plato, Laws 942d (350 BCE) Johann Gottlieb Fichte (1762–1814) You must fashion [the person], and fashion him in such a way that he simply cannot will otherwise than what you wish him to will. Addresses to the German Nation What I wrote down is precisely what I would have liked to see when I was eleven years old. What I would have demanded to see, in fact. Etoys is an excellent introduction to programming, but at a certain point vastly frustrating. At that point being able to go under the hood into Squeak to fix broken objects or extend their capabilities is of immense value. The notion that one must wait for a computer science course to learn real programming is to me utterly contrary to the reality that we hear from student programmers. We know for a fact, from a great many studies involving a wide variety of programming languages, that children can learn text-based programming languages starting in third grade. I have a notion that we can start Turtle Art in preschool, in large part by getting rid of the words on the tiles and replacing them with Unicode symbols. I started to create such a system last year, and wrote about it, with examples. http://wiki.sugarlabs.org/go/Activities/TurtleArt/Tutorials/Turtle_Art_prog… > In the appendix, I added the chapter "More etoys objects" and I started to > copy all objects, which are not in the object catalog, to that chapter. We > can discuss to move the chapter out of the appendices, but, as Karl also > said, there should be a second chapter. Then we should rename the Objects chapter, perhaps to The Basic Object Catalog. > Greetings, > Rita > > P.S. Thanks for the explanation about the logout problem, now it is > solved! > > On Oct 7, 2012, at 5:19 PM, Edward Mokurai Cherlin wrote: > >> I have completed another pass over the Objects chapter in the Etoys >> Reference Manual, >> >> http://booki.flossmanuals.net/etoys-reference-manual/_edit/ >> >> dissecting objects into components, documenting the components, >> identifying the Squeak sources for Etoys objects, adding v5 objects, >> explaining bugs and design deficiencies, noting further information >> needed, and finding more topics to explain elsewhere. Review and >> comments welcome. I expect to make another pass again after I work on >> other aspects of Etoys and Squeak for a while. >> >> There was some confusion about my intention in creating a new chapter >> for the book on Etoys Programming. I hope that my renaming the chapter >> to Etoys Programming Tools will clarify that issue. As I said before, >> and in the little bit I have written in the chapter, it is in no way >> meant to teach how to program in Etoys, only to document how Etoys >> supports software development. Other chapters describe elements of >> this system (UI, scripting tiles, objects) piecemeal. This chapter >> will give an integrated view of the Etoys IDE, including how it gives >> access to Squeak, but will not attempt to explain Squeak programming. >> >> -- >> Edward Mokurai (é»˜é›·/à¤¨à¤¿à¤¶à¤¬à¥à¤¦à¤—à¤°à¥à¤œ/Ù†Ø´Ø¨Ø¯Ú¯Ø±Ø¬) >> Cherlin >> Silent Thunder is my name, and Children are my nation. >> The Cosmos is my dwelling place, the Truth my destination. >> http://wiki.sugarlabs.org/go/Replacing_Textbooks >> _______________________________________________ >> etoys-dev mailing list >> etoys-dev(a)squeakland.org >> http://lists.squeakland.org/mailman/listinfo/etoys-dev > > Rita Freudenberg > rita.freudenberg(a)ovgu.de -- Edward Mokurai (默雷/निशब्दगर्ज/نشبدگرج) Cherlin Silent Thunder is my name, and Children are my nation. The Cosmos is my dwelling place, the Truth my destination. http://wiki.sugarlabs.org/go/Replacing_Textbooks

3 2

Re: [etoys-dev] lost paint palettes
by Edward Mokurai Cherlin 16 Oct '12

16 Oct '12

This is not the behavior I observe in Etoys 5.0. First, by paint palette I assume you mean PaintBox. I can move it with the black Halo tool or by clicking its frame, but I cannot move it entirely off-screen. (Oops. I just now tried harder to do it, and crashed Etoys. Yup, confirmed. Oh, well, another bug to report...Done. SQ-1128) Even if I move it to a corner, so that the Halo tools all overlap, I can still select the black tool by hovering with the mouse and moving around until I see its balloon help. I can also still click the visible corner of the PaintBox to pick it up. Have I missed something? On Sun, October 14, 2012 8:42 am, Harness, Kathleen wrote: > Subbu, > I am using Etoys 5 here at home and the students were using the latest > version of Etoys-to-Go. > In either case, slide the paint palette out of sight, (I see the > resistance you describe as sticking to an edge) but then click on the > world and the paint palette's halo vanishes, the palette is out of sight > and the paint area is still there. > > Using the Shift-drag rectangle discards that lonesome paint area but > clicking for a new paint tool from the Navigator Bar brings the message > "you can only paint one object at a time". > > This is not an urgent problem just something I noticed and wondered if it > could be prevented in the next release. As it stands now when this > happens, students get to practice patience and resiliency. > Regards, > Kathleen > > ________________________________________ > From: etoys-dev-bounces(a)squeakland.org [etoys-dev-bounces(a)squeakland.org] > on behalf of K. K. Subramaniam [kksubbu.ml(a)gmail.com] > Sent: Sunday, October 14, 2012 2:45 AM > To: etoys-dev(a)squeakland.org > Cc: Kathleen Harness > Subject: Re: [etoys-dev] lost paint palettes > > On Saturday 13 Oct 2012 10:18:24 AM Kathleen Harness wrote: >> Several times this past week with middle beginners, the palette was gone >> and they could not tell me what they did. I know the paints' halo does >> not >> have an X but it is possible to use the black handle and move it >> completely out of sight. > Which version of Etoys? In 4.1, dragging PaintBox outside of the screen > area > sticks it against the edge or corner. It doesn't disappear fully. If it is > collapsed, you should see a small window along the top left side of the > screen > to restore it. >> Sometimes when that happened the paint brush was >> the only cursor and the project could not be continued and sometimes the >> cursor appeared when outside of the paint scrim but there was no way to >> trash the scrim and the project had to be abandoned, started again. > You can select the 'onion skin' (SketchEditor) by shift-drag rectangle > selection, just like you would select a group of objects. However, > trashing > this does not close the palette automatically :-(. You may have to get a > holder, drop it in and then trash the holder. > > Regards .. Subbu > _______________________________________________ > etoys-dev mailing list > etoys-dev(a)squeakland.org > http://lists.squeakland.org/mailman/listinfo/etoys-dev > _______________________________________________ > etoys-dev mailing list > etoys-dev(a)squeakland.org > http://lists.squeakland.org/mailman/listinfo/etoys-dev > -- Edward Mokurai (默雷/निशब्दगर्ज/نشبدگرج) Cherlin Silent Thunder is my name, and Children are my nation. The Cosmos is my dwelling place, the Truth my destination. http://wiki.sugarlabs.org/go/Replacing_Textbooks

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev October 2012