etoys-dev December 2012

etoys-dev@lists.squeakfoundation.org

12 participants
31 discussions

Etoys: Etoys-kfr.149.mcz
by commits＠source.squeak.org 06 Dec '12

06 Dec '12

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.149.mcz ==================== Summary ==================== Name: Etoys-kfr.149 Author: kfr Time: 6 December 2012, 12:48:27 pm UUID: f8ff8b59-91b7-df49-8060-60b878dfb661 Ancestors: Etoys-kfr.148 Whirl filter does not like floating point numbers =============== Diff against Etoys-kfr.148 =============== Item was changed: ----- Method: Player>>setWhirl: (in category 'sketch filters') ----- setWhirl: aNumber + | number | self costume renderedMorph isSketchMorph ifFalse:[^nil]. + number := aNumber truncated. + self sendMessageToCostume: #filtersAdd: with: { #whirl:form: . number}! - self sendMessageToCostume: #filtersAdd: with: { #whirl:form: . aNumber}!

1 0

Etoys: Etoys-kfr.148.mcz
by commits＠source.squeak.org 05 Dec '12

05 Dec '12

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.148.mcz ==================== Summary ==================== Name: Etoys-kfr.148 Author: kfr Time: 5 December 2012, 11:46:20 pm UUID: fd79bb30-d4b2-7f44-a296-b13f11ce7f5f Ancestors: Etoys-kfr.147 Unable change of variable type of variables in use in scripts =============== Diff against Etoys-kfr.147 =============== Item was added: + ----- Method: ModifyVariableDialogMorph>>rebuild (in category 'accessing') ----- + rebuild + | enableVarType itsName | + super rebuild. + enableVarType :=(self targetPlayer okayToRemoveSlotNamed: slot). + + self allMorphsDo: [ :each | + itsName := each knownName. + (#(varType) includes: itsName) ifTrue: + [self enable: each when: enableVarType]]. + ! Item was changed: ----- Method: NewVariableDialogMorph>>rebuild (in category 'build') ----- rebuild + | buttonColor itsName enableDecimalPlaces | - | buttonColor itsName aBoolean | self removeAllMorphs. self addAColumn: { self lockedString: self title. }. self addSeparator. self addARow: { self inAColumn: { (self addARow: { self lockedString: 'Name:' translated. self spacer. varNameText := self newTextMorph contentsWrapped: self varName; selectAll; crAction: (MessageSend receiver: self selector: #doAccept); yourself }) cellPositioning: #center. + self inAColumn: { + (self addARow: { + self lockedString: 'Type:' translated. + self spacer. + varTypeButton := self buildVarTypeButton + }) cellPositioning: #center. + } named: #varType. - (self addARow: { - self lockedString: 'Type:' translated. - self spacer. - varTypeButton := self buildVarTypeButton - }) cellPositioning: #center. } }. ActiveWorld activeHand newKeyboardFocus: varNameText. self addSeparator. self addDecimalPlaces. + enableDecimalPlaces := false. - aBoolean := false. (#(#Number #Point) includes: self varType) + ifTrue: [ enableDecimalPlaces := true]. - ifTrue: [ aBoolean := true]. self allMorphsDo: [ :each | itsName := each knownName. (#(decimalPlaces) includes: itsName) ifTrue: + [self enable: each when: enableDecimalPlaces]]. - [self enable: each when: aBoolean]]. + + buttonColor := self color lighter. self addARow: { self inAColumn: { (self addARow: { self buttonNamed: 'Accept' translated action: #doAccept color: buttonColor help: 'keep changes made and close panel' translated. self buttonNamed: 'Cancel' translated action: #doCancel color: buttonColor help: 'cancel changes made and close panel' translated. }) listCentering: #center } } !

1 0

Etoys: Kernel-kfr.8.mcz
by commits＠source.squeak.org 05 Dec '12

05 Dec '12

Karl Ramberg uploaded a new version of Kernel to project Etoys: http://source.squeak.org/etoys/Kernel-kfr.8.mcz ==================== Summary ==================== Name: Kernel-kfr.8 Author: kfr Time: 5 December 2012, 5:07:26 pm UUID: bb9aaf47-e754-a74d-8e68-1dd799000714 Ancestors: Kernel-bf.7 Fix long standing bug with printing small numbers ie 1.2245678e-16 Copied methods from Squeak 4.4 =============== Diff against Kernel-bf.7 =============== Item was added: + ----- Method: Number>>printOn:showingDecimalPlaces: (in category 'printing') ----- + printOn: aStream showingDecimalPlaces: placesDesired + "Print a representation of the receiver on aStream in decimal notation with prescribed number of places after decimal separator." + + | rounder rounded roundedFractionPart | + placesDesired <= 0 ifTrue: [^ self rounded printOn: aStream]. + rounder := 10 raisedToInteger: placesDesired. + rounded := self roundTo: rounder reciprocal. + rounded negative ifTrue: [aStream nextPut: $-]. + rounded := rounded abs. + rounded integerPart truncated printOn: aStream. + aStream nextPut: $.. + roundedFractionPart := (rounded fractionPart * rounder) truncated. + roundedFractionPart printOn: aStream base: 10 length: placesDesired padded: true! Item was changed: ----- Method: Number>>printShowingDecimalPlaces: (in category 'printing') ----- printShowingDecimalPlaces: placesDesired + "Print the receiver showing precisely the given number of places desired. If placesDesired is positive, a decimal point and that many digits after the decimal point will always be shown. If placesDesired is zero, a whole number will be shown, without a decimal point." - "Print the receiver showing precisely the given number of places desired. If placesDesired is positive, a decimal point and that many digits after the decimal point will always be shown. If placesDesired is zero, a whole number will be shown, without a decimal point. If the nature of the receiver is such that e-notation should be used, that is done." + ^String new: placesDesired + 10 streamContents: [:aStream | + self printOn: aStream showingDecimalPlaces: placesDesired] - | precision rounded frac sign integerString fractionString result aString aFloat decPt between myAbs | - self isNaN ifTrue: [^ 'NaN']. - aString := (aFloat := self asFloat) printString. - aFloat isInfinite ifTrue: [^ aFloat printString]. - myAbs := aFloat abs. - - (aString indexOf: $e ifAbsent: [nil]) ifNotNilDo: - [:ePosition | ((myAbs < 1.0e-15) or: [myAbs > 1.0e15]) ifTrue: - [decPt := aString indexOf: $. ifAbsent: [^ aString]. - between := aString copyFrom: (decPt + 1) to: (ePosition - 1). - ^ String streamContents: [:aStream | - aStream nextPutAll: (aString copyFrom: 1 to: decPt). - aStream nextPutAll: between. - aStream nextPutAll: (aString copyFrom: ePosition to: aString size)]]]. - - "The remainder of this method is courtesy of Frank Sergeant, Dec/06" - placesDesired <= 0 ifTrue: [^ self rounded printString]. - precision _ Utilities floatPrecisionForDecimalPlaces: placesDesired. - rounded _ self roundTo: precision. - sign := rounded negative ifTrue: ['-'] ifFalse: ['']. - integerString := rounded abs integerPart asInteger printString. - frac := ((rounded abs fractionPart roundTo: precision) * (10 raisedToInteger: placesDesired)) asInteger. - fractionString := frac printString padded: #left to: placesDesired with: $0. - result := sign , integerString , '.' , fractionString. - ^ result " 23 printShowingDecimalPlaces: 2 23.5698 printShowingDecimalPlaces: 2 -234.567 printShowingDecimalPlaces: 5 23.4567 printShowingDecimalPlaces: 0 23.5567 printShowingDecimalPlaces: 0 -23.4567 printShowingDecimalPlaces: 0 -23.5567 printShowingDecimalPlaces: 0 100000000 printShowingDecimalPlaces: 1 + 0.98 printShowingDecimalPlaces: 5 - 0.98 printShowingDecimalPlaces: 2 -0.98 printShowingDecimalPlaces: 2 2.567 printShowingDecimalPlaces: 2 -2.567 printShowingDecimalPlaces: 2 0 printShowingDecimalPlaces: 2 - Float infinity printShowingDecimalPlaces: 5 - 2345.67890123 printShowingDecimalPlaces: 5 - 23456789.0012345 printShowingDecimalPlaces: 3 "!

1 0

Etoys: Collections-kfr.9.mcz
by commits＠source.squeak.org 05 Dec '12

05 Dec '12

Karl Ramberg uploaded a new version of Collections to project Etoys: http://source.squeak.org/etoys/Collections-kfr.9.mcz ==================== Summary ==================== Name: Collections-kfr.9 Author: kfr Time: 5 December 2012, 4:58:43 pm UUID: cbcd8469-2a1a-e247-848b-b3d559df006c Ancestors: Collections-kfr.8 Fix long standing bug with printing small numbers ie 1.2245678e-16 Copied method from Squeak 4.4 =============== Diff against Collections-kfr.8 =============== Item was added: + ----- Method: SequenceableCollection class>>new:streamContents: (in category 'stream creation') ----- + new: newSize streamContents: blockWithArg + + | stream | + stream := WriteStream on: (self new: newSize). + blockWithArg value: stream. + stream position = newSize + ifTrue: [ ^stream originalContents ] + ifFalse: [ ^stream contents ]!

1 0

Etoys: Etoys-kfr.147.mcz
by commits＠source.squeak.org 05 Dec '12

05 Dec '12

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.147.mcz ==================== Summary ==================== Name: Etoys-kfr.147 Author: kfr Time: 5 December 2012, 2:45:49 pm UUID: a733212a-b976-5e42-a926-bc41140efc6d Ancestors: Etoys-kfr.146 Set min and max to filter values =============== Diff against Etoys-kfr.146 =============== Item was changed: ----- Method: Player>>setBlur: (in category 'sketch filters') ----- setBlur: aNumber + | number | self costume renderedMorph isSketchMorph ifFalse:[^nil]. + number := aNumber asInteger min:100 max:0. + self sendMessageToCostume: #filtersAdd: with: { #blur:form: . number}! - self sendMessageToCostume: #filtersAdd: with: { #blur:form: . aNumber}! Item was changed: ----- Method: Player>>setBrightnessShift: (in category 'sketch filters') ----- setBrightnessShift: aNumber + | number | self costume renderedMorph isSketchMorph ifFalse:[^nil]. + number := aNumber asInteger min:100 max:-100. + self sendMessageToCostume: #filtersAdd: with: { #brightnessShift:form: . number}! - self sendMessageToCostume: #filtersAdd: with: { #brightnessShift:form: . aNumber}! Item was changed: ----- Method: Player>>setFishEye: (in category 'sketch filters') ----- setFishEye: aNumber + | number | self costume renderedMorph isSketchMorph ifFalse:[^nil]. + number := aNumber asInteger max:-10. + self sendMessageToCostume: #filtersAdd: with: { #fishEye:form: . number}! - self sendMessageToCostume: #filtersAdd: with: { #fishEye:form: . aNumber}! Item was changed: ----- Method: Player>>setHueShift: (in category 'sketch filters') ----- setHueShift: aNumber + | number | self costume renderedMorph isSketchMorph ifFalse:[^nil]. + number := aNumber asInteger min:360 max:-360. + self sendMessageToCostume: #filtersAdd: with: {#hueShift:form:. number}! - self sendMessageToCostume: #filtersAdd: with: {#hueShift:form:. aNumber}! Item was changed: ----- Method: Player>>setSaturationShift: (in category 'sketch filters') ----- setSaturationShift: aNumber + | number | self costume renderedMorph isSketchMorph ifFalse:[^nil]. + number := aNumber asInteger min:100 max:-100. + self sendMessageToCostume: #filtersAdd: with: { #saturationShift:form: . number}! - self sendMessageToCostume: #filtersAdd: with: { #saturationShift:form: . aNumber}! Item was changed: ----- Method: SketchMorph class>>additionsToViewerCategoryGraphicsFilters (in category '*eToys-scripting') ----- additionsToViewerCategoryGraphicsFilters "Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories." ^ #( #'graphics filters' ( + (slot hueShift 'Shift the hue of the pictures colors. -360 to 360' Number readWrite Player getHueShift Player setHueShift:) + (slot brightnessShift 'Shift the brightness of the picture. -100 to 100' Number readWrite Player getBrightnessShift Player setBrightnessShift:) + (slot saturationShift 'Shift the saturation of the pictures colors. -100 to 100' Number readWrite Player getSaturationShift Player setSaturationShift:) - (slot hueShift 'Shift the hue of the pictures colors. -180 to 180' Number readWrite Player getHueShift Player setHueShift:) - (slot brightnessShift 'Shift the brightness of the picture -100 to 100' Number readWrite Player getBrightnessShift Player setBrightnessShift:) - (slot saturationShift 'Shift the saturation of the pictures colors -100 to 100' Number readWrite Player getSaturationShift Player setSaturationShift:) (slot blur 'Blur the picture. 1 to 10' Number readWrite Player getBlur Player setBlur:) (slot fishEye 'Make a fish eye effect on the picture. -10 and up' Number readWrite Player getFishEye Player setFishEye:) (slot whirl 'Make a whirl effect on the picture.' Number readWrite Player getWhirl Player setWhirl:) (command removeFilters 'Remove the picture filters' ) )) !

1 0

Etoys: Morphic-kfr.99.mcz
by commits＠source.squeak.org 05 Dec '12

05 Dec '12

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.99.mcz ==================== Summary ==================== Name: Morphic-kfr.99 Author: kfr Time: 5 December 2012, 2:36:50 pm UUID: 797a26d6-9766-5e40-89e6-5b6bf0878dc5 Ancestors: Morphic-kfr.98 Small fix for hue filter =============== Diff against Morphic-kfr.98 =============== Item was changed: ----- Method: SketchMorph>>hueShift:form: (in category 'filters') ----- hueShift: aShift form: filteredForm | f fOut shift | aShift = 0 ifTrue:[^ filteredForm]. + shift := aShift min: 360 max: -360. - shift := aShift min: 180 max: -180. f := filteredForm asFormOfDepth: 32. fOut := f deepCopy. ScratchPlugin primShiftHue: f bits into: fOut bits byDegrees: shift. ^ fOut asFormOfDepth: 16!

1 0

Another pass in the Etoys Reference Manual: tiles
by Edward Mokurai Cherlin 05 Dec '12

05 Dec '12

I looked at the Viewer categories for every object in the Object Catalog, and at the Squeak lists of categories and tiles, and documented every tile in every category I found as much as I could in the Common Tiles chapter of the Etoys Reference Manual. I have not updated the introduction to the chapter yet. It is incorrect in saying that some categories are explained only in the Objects chapter. Now I have some questions. 1) Should we split the Common Tiles chapter, as we split the Objects chapters, so that we have a chapter for the nearly universal categories that every Morph has (but not, for example, the Kedama objects), and another for all of the categories specific to individual objects and small groups of objects? In the draft chapter, the boundary is at section 4.18, on book navigation. Near the beginning of the chapter there is an image of the category menu for Morphs, and a list of categories for specific object types that do not appear on the list for Morphs. 2) There are a number of tiles whose effects I could not determine from the help text or through experiment, and some that appear to be so buggy as to be unusable. I have made notes in the draft on all of them, mostly in Formatted (monospace on colored background) text. Any assistance on interpreting these, or filing bug reports, would be welcome. At some point I mean to look at their Squeak implementations (via 'show code textually' on the Scripting Editor menu, and 'selectors containing it' on the control-click menu for text selections) to see whether they are any more illuminating. 3) Some of the help text clearly needs to be rewritten to, you know, help. 4) I am about to write the chapter on Programming Tools, which will begin by describing every Squeak tool accessible from any Etoys menu, such as the System Browser, and tools for viewing Senders, Implementors, Selectors, and so on provided on the World menu and the open... and authoring... menus that it gives access to. I intend to describe the Morphic and Etoys-Scripting classes, also, to some extent, and then stop. I do mean to write more about the implementation of Etoys in Squeak, but in other books, which we can discuss. For example, I have thought about a chapter on writing Squeak in text-mode scripting tiles in an Etoys User Manual or Etoys By Example, so that we can discuss concretely teaching more advanced programming and Computer Science topics on the basis of Etoys. 5) Then I intend to go over the entire book again, with the benefit of what I have learned. Presumably I will have more questions at that point. -- 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] Etoys: Morphic-kfr.97.mcz
by Bert Freudenberg 05 Dec '12

05 Dec '12

That looks nice! Thank you :) - Bert - On 25.10.2012, at 05:57, commits(a)source.squeak.org wrote: > Karl Ramberg uploaded a new version of Morphic to project Etoys: > http://source.squeak.org/etoys/Morphic-kfr.97.mcz > > ==================== Summary ==================== > > Name: Morphic-kfr.97 > Author: kfr > Time: 25 October 2012, 7:56:46 am > UUID: 6d5a2911-44d6-824d-90f4-59b32c1c8a03 > Ancestors: Morphic-kfr.96 > > Add Etoy interfaces to ScratchPlugin picture manipulation methods > http://tracker.squeakland.org/browse/SQ-996 > > =============== Diff against Morphic-kfr.96 =============== > > Item was changed: > Morph subclass: #SketchMorph > + instanceVariableNames: 'originalForm rotationStyle scalePoint framesToDwell rotatedForm filters' > - instanceVariableNames: 'originalForm rotationStyle scalePoint framesToDwell rotatedForm' > classVariableNames: '' > poolDictionaries: '' > category: 'Morphic-Basic'! > > + !SketchMorph commentStamp: 'kfr. 11/7/2011 11:32' prior: 0! > + SketchMorph commentStamp: '<historical>' prior: 0!! > + The morph that results when the user draws a color bitmap using the PaintBox (SketchEditorMorph and PaintBoxMorph). > - !SketchMorph commentStamp: '<historical>' prior: 0! > - The morph that results when the user draws a color bitmap using the PaintBox (SketchEditorMorph and PaintBoxMorph). > > forwardDirection is the angle at which the object will go forward. When the rotationStyle is not #normal, then forwardDirection is any angle, while the rotation is highly restricted. If flexed, this is remembered by the Transform morph. For non-normal rotationStyle, it is rotationDegrees. > > setupAngle (a property) is where the user put the green arrow to indicate which direction on the picture is forward. When #normal, draw the morph initially at (0.0 - setupAngle). The enclosing TransformationMorph then rotates it to the true angle. > + > - > rotationDegrees In a #normal object, rotationDegrees is constant an equal to setupAngle. > + For non-normal, it is the direction the object is going. > - For non-normal, it is the direction the object is going. > > + When repainting, set it back to its original state. The green arrow is set to setupAngle, and the sketch is shown as drawn originally (rotationDegrees = 0). > - When repainting, set it back to its original state. The green arrow is set to setupAngle, and the sketch is shown as drawn originally (rotationDegrees = 0). > > + rotationStyle = normal (turns), leftRight, upDown, fixed. > - rotationStyle = normal (turns), leftRight, upDown, fixed. > When leftRight upDown or fixed, bit map has severe restrictions. > ! > > Item was added: > + ----- Method: SketchMorph>>blur:form: (in category 'filters') ----- > + blur: aWidth form: filteredForm > + | f fOut fWidth | > + aWidth = 0 ifTrue:[^ filteredForm]. > + f := filteredForm asFormOfDepth: 32. > + fWidth := f width + (aWidth - 1) max: f width. > + fOut := f deepCopy. > + ScratchPlugin > + primBlur: f bits > + into: fOut bits > + width: fWidth. > + ^ fOut asFormOfDepth: 16! > > Item was added: > + ----- Method: SketchMorph>>brightnessShift:form: (in category 'filters') ----- > + brightnessShift: aShift form: filteredForm > + | f fOut shift | > + aShift = 0 ifTrue:[^ filteredForm]. > + shift := aShift min: 100 max: -100. > + f := filteredForm asFormOfDepth: 32. > + fOut := f deepCopy. > + ScratchPlugin > + primShiftBrightness: f bits > + into: fOut bits > + by: shift. > + ^ fOut asFormOfDepth: 16! > > Item was added: > + ----- Method: SketchMorph>>filters (in category 'filters') ----- > + filters > + ^ filters > + ifNil: [filters := OrderedCollection new]! > > Item was added: > + ----- Method: SketchMorph>>filtersAdd: (in category 'filters') ----- > + filtersAdd: aFilterWithValue > + self filters > + do: [:i | (i includes: aFilterWithValue first) > + ifTrue: [filters remove: i]]. > + filters add: aFilterWithValue. > + self layoutChanged! > > Item was added: > + ----- Method: SketchMorph>>fishEye:form: (in category 'filters') ----- > + fishEye: aPower form: aForm > + | f fOut power | > + aPower = 0 ifTrue:[^aForm]. > + power := (100 + (aPower * 10)) max:0. > + f := aForm asFormOfDepth: 32. > + fOut := f deepCopy. > + ScratchPlugin primFisheye: f bits into: fOut bits width: f width power: power. > + ^fOut asFormOfDepth: 16! > > Item was changed: > ----- Method: SketchMorph>>generateRotatedForm (in category 'drawing') ----- > generateRotatedForm > + | scalePt smoothPix pair filteredForm | > + scalePoint > + ifNil: [scalePoint := 1 @ 1]. > - "Compute my rotatedForm and offsetWhenRotated." > - > - | scalePt smoothPix pair | > - scalePoint ifNil: [scalePoint := 1 @ 1]. > scalePt := scalePoint x abs @ scalePoint y abs. > + rotationStyle == #none > + ifTrue: [scalePt := 1 @ 1]. > - rotationStyle == #none ifTrue: [scalePt := 1 @ 1]. > - "smoothPix := (scalePt x < 1.0 or: [scalePt y < 1.0]) > - ifTrue: [2] > - ifFalse: [1]." > smoothPix := 1. > + rotationStyle = #leftRight > + ifTrue: [self heading asSmallAngleDegrees < 0.0 > - rotationStyle = #leftRight > - ifTrue: > - [self heading asSmallAngleDegrees < 0.0 > ifTrue: [scalePt := scalePt x negated @ scalePt y]]. > + rotationStyle = #upDown > + ifTrue: [self heading asSmallAngleDegrees abs > 90.0 > - rotationStyle = #upDown > - ifTrue: > - [self heading asSmallAngleDegrees abs > 90.0 > ifTrue: [scalePt := scalePt x @ scalePt y negated]]. > + filteredForm := originalForm copy. > + filters > + ifNotNil: [filters > + do: [:filter | filteredForm := self > + perform: filter first > + withArguments: (filter allButFirst copyWith: filteredForm)]]. > + rotatedForm := (scalePt = (1 @ 1) > + and: [filters isNil]) > - rotatedForm := scalePt = (1 @ 1) > ifTrue: [originalForm] > + ifFalse: [((rotationStyle == #normal > + and: [self useInterpolation]) > + and: [filters isNil]) > + ifTrue: [^ self generateInterpolatedForm]. > + pair := WarpBlt current > + rotate: filteredForm > - ifFalse: > - ["ar 11/19/2001: I am uncertain what happens in the case of rotationStyle ~~ normal" > - > - (rotationStyle == #normal and: [self useInterpolation]) > - ifTrue: [^self generateInterpolatedForm]. > - pair := WarpBlt current > - rotate: originalForm > degrees: 0 > center: originalForm boundingBox center > scaleBy: scalePt > smoothing: smoothPix. > pair first]! > > Item was added: > + ----- Method: SketchMorph>>hueShift:form: (in category 'filters') ----- > + hueShift: aShift form: filteredForm > + | f fOut shift | > + aShift = 0 ifTrue:[^ filteredForm]. > + shift := aShift min: 180 max: -180. > + f := filteredForm asFormOfDepth: 32. > + fOut := f deepCopy. > + ScratchPlugin > + primShiftHue: f bits > + into: fOut bits > + byDegrees: shift. > + ^ fOut asFormOfDepth: 16! > > Item was added: > + ----- Method: SketchMorph>>removeFilters (in category 'filters') ----- > + removeFilters > + filters := nil. > + self layoutChanged! > > Item was added: > + ----- Method: SketchMorph>>saturationShift:form: (in category 'filters') ----- > + saturationShift: aShift form: filteredForm > + | f fOut shift | > + aShift = 0 ifTrue:[^ filteredForm]. > + shift := aShift min: 100 max: -100. > + f := filteredForm asFormOfDepth: 32. > + fOut := f deepCopy. > + ScratchPlugin > + primShiftSaturation: f bits > + into: fOut bits > + by: shift. > + ^ fOut asFormOfDepth: 16! > > Item was added: > + ----- Method: SketchMorph>>whirl:form: (in category 'filters') ----- > + whirl: anAngle form: aForm > + | f fOut | > + anAngle = 0 ifTrue:[^aForm]. > + > + f := aForm asFormOfDepth: 32. > + fOut := f deepCopy. > + ScratchPlugin primWhirl: f bits into: fOut bits width: f width angle: anAngle. > + ^fOut asFormOfDepth: 16! > > _______________________________________________ > etoys-dev mailing list > etoys-dev(a)squeakland.org > http://lists.squeakland.org/mailman/listinfo/etoys-dev

3 6

Etoys: Etoys-kfr.146.mcz
by commits＠source.squeak.org 05 Dec '12

05 Dec '12

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.146.mcz ==================== Summary ==================== Name: Etoys-kfr.146 Author: kfr Time: 5 December 2012, 12:10:41 am UUID: 42e8ed29-c89e-2442-a200-e64f2a63a0ad Ancestors: Etoys-kfr.145 More fixing for filters per Berts very sound suggestions =============== Diff against Etoys-kfr.145 =============== Item was changed: ----- Method: Player>>getFilterValue: (in category 'sketch filters') ----- getFilterValue: aFilter + self costume renderedMorph isSketchMorph ifFalse:[^0]. + self costume renderedMorph filters - self costume filters do: [:i | (i includes: aFilter) ifTrue: [^i second]]. ^0! Item was added: + ----- Method: Player>>getFishEye (in category 'sketch filters') ----- + getFishEye + ^ self getFilterValue: #fishEye:form:! Item was changed: ----- Method: Player>>setBlur: (in category 'sketch filters') ----- setBlur: aNumber + self costume renderedMorph isSketchMorph ifFalse:[^nil]. self sendMessageToCostume: #filtersAdd: with: { #blur:form: . aNumber}! Item was changed: ----- Method: Player>>setBrightnessShift: (in category 'sketch filters') ----- setBrightnessShift: aNumber + self costume renderedMorph isSketchMorph ifFalse:[^nil]. self sendMessageToCostume: #filtersAdd: with: { #brightnessShift:form: . aNumber}! Item was changed: ----- Method: Player>>setFishEye: (in category 'sketch filters') ----- setFishEye: aNumber + self costume renderedMorph isSketchMorph ifFalse:[^nil]. self sendMessageToCostume: #filtersAdd: with: { #fishEye:form: . aNumber}! Item was changed: ----- Method: Player>>setHueShift: (in category 'sketch filters') ----- setHueShift: aNumber + self costume renderedMorph isSketchMorph ifFalse:[^nil]. self sendMessageToCostume: #filtersAdd: with: {#hueShift:form:. aNumber}! Item was changed: ----- Method: Player>>setSaturationShift: (in category 'sketch filters') ----- setSaturationShift: aNumber + self costume renderedMorph isSketchMorph ifFalse:[^nil]. self sendMessageToCostume: #filtersAdd: with: { #saturationShift:form: . aNumber}! Item was changed: ----- Method: Player>>setWhirl: (in category 'sketch filters') ----- setWhirl: aNumber + self costume renderedMorph isSketchMorph ifFalse:[^nil]. self sendMessageToCostume: #filtersAdd: with: { #whirl:form: . aNumber}!

1 0

Etoys: Morphic-kfr.98.mcz
by commits＠source.squeak.org 04 Dec '12

04 Dec '12

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.98.mcz ==================== Summary ==================== Name: Morphic-kfr.98 Author: kfr Time: 4 December 2012, 9:59:36 pm UUID: 500d78fb-6101-e74c-b9e3-4b005d6a5c31 Ancestors: Morphic-kfr.97 Remove instance variable 'filters' and use properties instead =============== Diff against Morphic-kfr.97 =============== Item was changed: Morph subclass: #SketchMorph + instanceVariableNames: 'originalForm rotationStyle scalePoint framesToDwell rotatedForm' - instanceVariableNames: 'originalForm rotationStyle scalePoint framesToDwell rotatedForm filters' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Basic'! !SketchMorph commentStamp: 'kfr. 11/7/2011 11:32' prior: 0! SketchMorph commentStamp: '<historical>' prior: 0!! The morph that results when the user draws a color bitmap using the PaintBox (SketchEditorMorph and PaintBoxMorph). forwardDirection is the angle at which the object will go forward. When the rotationStyle is not #normal, then forwardDirection is any angle, while the rotation is highly restricted. If flexed, this is remembered by the Transform morph. For non-normal rotationStyle, it is rotationDegrees. setupAngle (a property) is where the user put the green arrow to indicate which direction on the picture is forward. When #normal, draw the morph initially at (0.0 - setupAngle). The enclosing TransformationMorph then rotates it to the true angle. rotationDegrees In a #normal object, rotationDegrees is constant an equal to setupAngle. For non-normal, it is the direction the object is going. When repainting, set it back to its original state. The green arrow is set to setupAngle, and the sketch is shown as drawn originally (rotationDegrees = 0). rotationStyle = normal (turns), leftRight, upDown, fixed. When leftRight upDown or fixed, bit map has severe restrictions. ! Item was changed: ----- Method: SketchMorph>>filters (in category 'filters') ----- filters + ^ self valueOfProperty: #filters ifAbsent: + [self setProperty: #filters toValue: OrderedCollection new.]! - ^ filters - ifNil: [filters := OrderedCollection new]! Item was changed: ----- Method: SketchMorph>>filtersAdd: (in category 'filters') ----- filtersAdd: aFilterWithValue self filters do: [:i | (i includes: aFilterWithValue first) + ifTrue: [self filters remove: i]]. + self filters add: aFilterWithValue. - ifTrue: [filters remove: i]]. - filters add: aFilterWithValue. self layoutChanged! Item was changed: ----- Method: SketchMorph>>generateRotatedForm (in category 'drawing') ----- generateRotatedForm | scalePt smoothPix pair filteredForm | scalePoint ifNil: [scalePoint := 1 @ 1]. scalePt := scalePoint x abs @ scalePoint y abs. rotationStyle == #none ifTrue: [scalePt := 1 @ 1]. smoothPix := 1. rotationStyle = #leftRight ifTrue: [self heading asSmallAngleDegrees < 0.0 ifTrue: [scalePt := scalePt x negated @ scalePt y]]. rotationStyle = #upDown ifTrue: [self heading asSmallAngleDegrees abs > 90.0 ifTrue: [scalePt := scalePt x @ scalePt y negated]]. filteredForm := originalForm copy. + self filters + ifNotNil: [self filters - filters - ifNotNil: [filters do: [:filter | filteredForm := self perform: filter first withArguments: (filter allButFirst copyWith: filteredForm)]]. rotatedForm := (scalePt = (1 @ 1) + and: [self filters isNil]) - and: [filters isNil]) ifTrue: [originalForm] ifFalse: [((rotationStyle == #normal and: [self useInterpolation]) + and: [self filters isNil]) - and: [filters isNil]) ifTrue: [^ self generateInterpolatedForm]. pair := WarpBlt current rotate: filteredForm degrees: 0 center: originalForm boundingBox center scaleBy: scalePt smoothing: smoothPix. pair first]! Item was changed: ----- Method: SketchMorph>>removeFilters (in category 'filters') ----- removeFilters + self removeProperty: #filters. - filters := nil. self layoutChanged!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev December 2012