etoys-dev November 2011

etoys-dev@lists.squeakfoundation.org

13 participants
32 discussions

Etoys Inbox: Morphic-kfr..73.mcz
by commits＠source.squeak.org 07 Nov '11

07 Nov '11

A new version of Morphic was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Morphic-kfr..73.mcz ==================== Summary ==================== Name: Morphic-kfr..73 Author: kfr. Time: 7 November 2011, 11:30:04 am UUID: 66dd5a53-bf60-6841-a7c4-3179092368b2 Ancestors: Morphic-kfr..72 Fix a bug =============== Diff against Morphic-kfr..72 =============== 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. filters ifNotNil: [filteredForm := originalForm copy. filters do: [:filter | filteredForm := self perform: filter first withArguments: (filter allButFirst copyWith: filteredForm)]]. rotatedForm := (scalePt = (1 @ 1) and: [filters isNil]) ifTrue: [originalForm] ifFalse: [((rotationStyle == #normal and: [self useInterpolation]) and: [filters isNil]) ifTrue: [^ self generateInterpolatedForm]. pair := WarpBlt current rotate: filteredForm degrees: 0 center: originalForm boundingBox center scaleBy: scalePt smoothing: smoothPix. pair first]!

1 0

Etoys Inbox: Morphic-kfr..72.mcz
by commits＠source.squeak.org 07 Nov '11

07 Nov '11

A new version of Morphic was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Morphic-kfr..72.mcz ==================== Summary ==================== Name: Morphic-kfr..72 Author: kfr. Time: 7 November 2011, 11:25:01 am UUID: 8d210534-3550-9a41-a334-f6f594ad81b2 Ancestors: Morphic-kfr.71 Fixing up so more filters can be added =============== Diff against Morphic-kfr.71 =============== Item was changed: Morph subclass: #SketchMorph instanceVariableNames: 'originalForm rotationStyle scalePoint framesToDwell rotatedForm filters' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Basic'! - - !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>>blur:form: (in category 'filters') ----- + blur: aWidth form: filteredForm - blur: aWidth form: filteredForm - | f fOut fWidth | + f := filteredForm asFormOfDepth: 32. - - 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! - ScratchPlugin primBlur: f bits into: fOut bits width: fWidth. - ^ fOut asFormOfDepth: 16. - - ! Item was changed: ----- Method: SketchMorph>>brightnessShift:form: (in category 'filters') ----- + brightnessShift: aShift form: filteredForm - brightnessShift: aShift form: filteredForm - | f fOut shift | shift := aShift min: 100 max: -100. + f := filteredForm asFormOfDepth: 32. - f := filteredForm asFormOfDepth: 32. fOut := f deepCopy. + ScratchPlugin + primShiftBrightness: f bits + into: fOut bits + by: shift. + ^ fOut asFormOfDepth: 16! - ScratchPlugin primShiftBrightness: f bits into: fOut bits by: shift. - ^ fOut asFormOfDepth: 16. - - ! Item was changed: ----- Method: SketchMorph>>filters (in category 'filters') ----- filters + ^ filters + ifNil: [filters := 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: [filters remove: i]]. filters add: aFilterWithValue. self layoutChanged! Item was changed: ----- Method: SketchMorph>>generateRotatedForm (in category 'drawing') ----- generateRotatedForm - "Compute my rotatedForm and offsetWhenRotated." - | scalePt smoothPix pair filteredForm | + scalePoint + ifNil: [scalePoint := 1 @ 1]. - 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]]. + filters + ifNotNil: [filteredForm := originalForm copy. + filters + do: [:filter | filteredForm := self + perform: filter first + withArguments: (filter allButFirst copyWith: filteredForm)]]. + rotatedForm := (scalePt = (1 @ 1) + and: [filters isNil]) - - filters ifNotNil:[ filteredForm := originalForm copy. - filters do:[: filter | filteredForm := self perform: filter first with: filter second with: filteredForm. - ]]. - filteredForm ifNil:[filteredForm := originalForm copy]. - rotatedForm := (scalePt = (1 @ 1) and:[ filters isNil]) ifTrue: [originalForm] + ifFalse: [((rotationStyle == #normal + and: [self useInterpolation]) + and: [filters isNil]) + ifTrue: [^ self generateInterpolatedForm]. + pair := WarpBlt current - ifFalse: - ["ar 11/19/2001: I am uncertain what happens in the case of rotationStyle ~~ normal" - - ((rotationStyle == #normal and: [self useInterpolation]) 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>>hueShift:form: (in category 'filters') ----- + hueShift: aShift form: filteredForm - hueShift: aShift form: filteredForm - | f fOut shift | shift := aShift min: 180 max: -180. + f := filteredForm asFormOfDepth: 32. - f := filteredForm asFormOfDepth: 32. fOut := f deepCopy. + ScratchPlugin + primShiftHue: f bits + into: fOut bits + byDegrees: shift. + ^ fOut asFormOfDepth: 16! - ScratchPlugin primShiftHue: f bits into: fOut bits byDegrees: shift. - ^ fOut asFormOfDepth: 16. - - ! Item was changed: ----- Method: SketchMorph>>removeFilters (in category 'filters') ----- removeFilters filters := nil. + self layoutChanged! - self layoutChanged - ! Item was changed: ----- Method: SketchMorph>>saturationShift:form: (in category 'filters') ----- + saturationShift: aShift form: filteredForm - saturationShift: aShift form: filteredForm - | f fOut shift | shift := aShift min: 100 max: -100. + f := filteredForm asFormOfDepth: 32. - f := filteredForm asFormOfDepth: 32. fOut := f deepCopy. + ScratchPlugin + primShiftSaturation: f bits + into: fOut bits + by: shift. + ^ fOut asFormOfDepth: 16! - ScratchPlugin primShiftSaturation: f bits into: fOut bits by: shift. - ^ fOut asFormOfDepth: 16. - - !

1 0

Etoys Inbox: Etoys-kfr..98.mcz
by commits＠source.squeak.org 06 Nov '11

06 Nov '11

A new version of Etoys was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Etoys-kfr..98.mcz ==================== Summary ==================== Name: Etoys-kfr..98 Author: kfr. Time: 6 November 2011, 12:54:02 am UUID: 2147e370-03b7-c34b-9fa5-3a2438e4c1ff Ancestors: Etoys-kfr.97 make separate category for graphic filters =============== Diff against Etoys-kfr.97 =============== Item was changed: ----- Method: EToyVocabulary>>setCategoryDocumentationStrings (in category 'initialization') ----- setCategoryDocumentationStrings "Initialize the documentation strings associated with the old etoy categories, in English" self setCategoryStrings: #( (basic 'basic' 'a few important things') (#'book navigation' 'book navigation' 'relating to book, stacks, etc') (button 'button' 'for thinking of this object as a push-button control') (collections 'collections' 'for thinking of this object as a collection') (fog 'fog' '3D fog') (geometry 'geometry' 'measurements and coordinates') (#'color & border' 'color & border' 'matters concerning the colors and borders of objects') (graphics 'graphics' 'for thinking of this object as a picture') + (#'graphics filters' 'graphics filters' 'for working of this object as a picture') (variables 'variables' 'variables added by this object') (joystick 'joystick' 'the object as a Joystick') (miscellaneous 'miscellaneous' 'various commands') (motion 'motion' 'matters relating to moving and turning') (paintbox 'paintbox' 'the painting palette') (#'pen trails' 'pen trails' 'relating to trails put down by pens') (#'pen use' 'pen use' 'use of an object''s "pen"') (playfield 'playfield' 'the object as a container for other visible objects') (sampling 'sampling' 'sampling') (scripting 'scripting' 'commands to start and stop scripts') (scripts 'scripts' 'methods added by this object') (slider 'slider' 'functions useful to sliders') (speaker 'speaker' 'the object as an audio Speaker') (#'stack navigation' 'stack navigation' 'navigation within a stck') (storyboard 'storyboard' 'storyboard') (tests 'tests' 'yes/no tests, to use in "Test" panes of scripts') (text 'text' 'The object as text') (vector 'vector' 'The object as a vector') (viewing 'viewing' 'matters relating to viewing') ) ! Item was changed: ----- Method: SketchMorph class>>additionsToViewerCategories (in category '*eToys-scripting') ----- additionsToViewerCategories "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 ( (slot graphic 'The picture currently being worn' Graphic readWrite Player getGraphic Player setGraphic:) (command wearCostumeOf: 'wear the costume of...' Player) (slot baseGraphic 'The picture originally painted for this object, but can subsequently be changed via menu or script' Graphic readWrite Player getBaseGraphic Player setBaseGraphic:) (command restoreBaseGraphic 'Make my picture be the one I remember in my baseGraphic') (slot rotationStyle 'How the picture should change when the heading is modified' RotationStyle readWrite Player getRotationStyle Player setRotationStyle:) (command flipLeftRight 'Flip the picture left to right' Player) (command flipUpDown 'Flip the picture upside down' Player) + - (command hueShift: 'Shift the hue of the pictures colors. -180 to 180' Number) - (command brightnessShift: 'Shift the brightness of the picture -100 to 100' Number) - (command saturationShift: 'Shift the saturation of the pictures colors -100 to 100' Number) - (command blur: 'Blur the picture. 1 to 10' Number) - (command removeFilters 'Remove the picture filters' ) ))) ! Item was added: + ----- 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 filtrers' + ( + (command hueShift: 'Shift the hue of the pictures colors. -180 to 180' Number) + (command brightnessShift: 'Shift the brightness of the picture -100 to 100' Number) + (command saturationShift: 'Shift the saturation of the pictures colors -100 to 100' Number) + (command blur: 'Blur the picture. 1 to 10' Number) + (command removeFilters 'Remove the picture filters' ) + )) + + + !

1 0

About Skeleton
by Ricardo Moran 04 Nov '11

04 Nov '11

Hi, The squeak list is currently discussing about a spreadsheet morph, and that just reminded me about how cool is Skeleton actually. So I'm wondering why it is not in Etoys? I found an old discussion stating that it could be a nice extension to Etoys but the biggest issue being the slow loading of external code. I have to agree with that being a problem but I think we might reconsider just include it in the image as with Dr Geo. I know we already have a bloated image full of half finished projects but from what I briefly tested Skeleton seems to work out of the box. And it doesn't add a *huge* amount of new code. See this simple comparison with DrGeo: (PackageInfo named: 'Skeleton') systemCategories size. 2 (PackageInfo named: 'Skeleton') classes size. 38 (PackageInfo named: 'Skeleton') methods size. 654 (PackageInfo named: 'Skeleton') linesOfCode. 4765 (PackageInfo named: 'DrGeoII') systemCategories size. 10 (PackageInfo named: 'DrGeoII') classes size. 214 (PackageInfo named: 'DrGeoII') methods size. 1863 (PackageInfo named: 'DrGeoII') linesOfCode. 17154 Another issue, I guess, is that if Skeleton gets included someone will have to maintain it, but from what I've seen the latest version dates from 2006 and it still works today. So maybe it won't be that big of an issue. Anyway, if you want to test it: http://www.languagegame.org:8080/ggame/11. Cheers, Richo

11 32

Etoys Inbox: Etoys-kfr.97.mcz
by commits＠source.squeak.org 02 Nov '11

02 Nov '11

A new version of Etoys was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Etoys-kfr.97.mcz ==================== Summary ==================== Name: Etoys-kfr.97 Author: kfr Time: 2 November 2011, 11:02:53 am UUID: 53b36759-67d4-5b44-b197-b5e23a718d6d Ancestors: Etoys-kfr.96 Add info about min max values =============== Diff against Etoys-kfr.96 =============== Item was changed: ----- Method: SketchMorph class>>additionsToViewerCategories (in category '*eToys-scripting') ----- additionsToViewerCategories "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 ( (slot graphic 'The picture currently being worn' Graphic readWrite Player getGraphic Player setGraphic:) (command wearCostumeOf: 'wear the costume of...' Player) (slot baseGraphic 'The picture originally painted for this object, but can subsequently be changed via menu or script' Graphic readWrite Player getBaseGraphic Player setBaseGraphic:) (command restoreBaseGraphic 'Make my picture be the one I remember in my baseGraphic') (slot rotationStyle 'How the picture should change when the heading is modified' RotationStyle readWrite Player getRotationStyle Player setRotationStyle:) (command flipLeftRight 'Flip the picture left to right' Player) (command flipUpDown 'Flip the picture upside down' Player) + (command hueShift: 'Shift the hue of the pictures colors. -180 to 180' Number) + (command brightnessShift: 'Shift the brightness of the picture -100 to 100' Number) + (command saturationShift: 'Shift the saturation of the pictures colors -100 to 100' Number) + (command blur: 'Blur the picture. 1 to 10' Number) - (command hueShift: 'Shift the hue of the pictures colors' Number) - (command brightnessShift: 'Shift the brightness of the picture' Number) - (command saturationShift: 'Shift the saturation of the pictures colors' Number) - (command blur: 'Blur the picture' Number) (command removeFilters 'Remove the picture filters' ) ))) !

1 0

Etoys Inbox: Morphic-kfr.71.mcz
by commits＠source.squeak.org 02 Nov '11

02 Nov '11

A new version of Morphic was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Morphic-kfr.71.mcz ==================== Summary ==================== Name: Morphic-kfr.71 Author: kfr Time: 2 November 2011, 10:58:58 am UUID: 04bd43aa-9c96-9745-89c1-6ddf69c57a23 Ancestors: Morphic-kfr.70 Fixing stuff. Cleaning up code. =============== Diff against Morphic-kfr.70 =============== Item was changed: ----- Method: SketchMorph>>blur:form: (in category 'filters') ----- + blur: aWidth form: filteredForm - blur: width form: filteredForm + | f fOut fWidth | - | f fOut | f := filteredForm asFormOfDepth: 32. + fWidth := f width + (aWidth - 1) max: f width. - f width + width = 0 ifTrue:[^ filteredForm]. fOut := f deepCopy. + ScratchPlugin primBlur: f bits into: fOut bits width: fWidth. - ScratchPlugin primBlur: f bits into: fOut bits width: f width + width. ^ fOut asFormOfDepth: 16. ! Item was changed: ----- Method: SketchMorph>>brightnessShift:form: (in category 'filters') ----- + brightnessShift: aShift form: filteredForm - brightnessShift: shift form: filteredForm + | f fOut shift | + shift := aShift min: 100 max: -100. - | f fOut | f := filteredForm asFormOfDepth: 32. fOut := f deepCopy. ScratchPlugin primShiftBrightness: f bits into: fOut bits by: shift. ^ fOut asFormOfDepth: 16. ! Item was changed: ----- Method: SketchMorph>>filters (in category 'filters') ----- filters + ^filters ifNil:[filters := OrderedCollection new]. + ! - filters ifNil:[filters := OrderedCollection new]. - ^filters! Item was changed: ----- Method: SketchMorph>>filtersAdd: (in category 'filters') ----- + filtersAdd: aFilterWithValue - filtersAdd: aFilterWithValue + self filters + do: [:i | (i includes: aFilterWithValue first) + ifTrue: [filters remove: i]]. + filters add: aFilterWithValue. + self layoutChanged! - - self filters. - filters do: [ : i | (i includes: aFilterWithValue first) ifTrue: [filters remove: i]]. - filters add: aFilterWithValue. - self generateRotatedForm. - self layoutChanged - - - ! Item was changed: ----- Method: SketchMorph>>hueShift:form: (in category 'filters') ----- + hueShift: aShift form: filteredForm - hueShift: shift form: filteredForm + | f fOut shift | + shift := aShift min: 180 max: -180. - | f fOut | f := filteredForm asFormOfDepth: 32. fOut := f deepCopy. ScratchPlugin primShiftHue: f bits into: fOut bits byDegrees: shift. ^ fOut asFormOfDepth: 16. ! Item was changed: ----- Method: SketchMorph>>removeFilters (in category 'filters') ----- removeFilters filters := nil. - self generateRotatedForm. self layoutChanged ! Item was changed: ----- Method: SketchMorph>>saturationShift:form: (in category 'filters') ----- + saturationShift: aShift form: filteredForm - saturationShift: shift form: filteredForm + | f fOut shift | + shift := aShift min: 100 max: -100. - | f fOut | f := filteredForm asFormOfDepth: 32. fOut := f deepCopy. ScratchPlugin primShiftSaturation: f bits into: fOut bits by: shift. ^ fOut asFormOfDepth: 16. !

1 0

Problem with Event Theatre makes re creating Demon Castle Parts 2 and 3 more challenging
by Steve Thomas 02 Nov '11

02 Nov '11

See http://tracker.squeakland.org/browse/SQ-998 We had talked about recreating Parts 2 and 3 of Demon Castle, and while trying to use Event Theatre to record some things I ran into this bug. Stephen

2 7

Etoys Inbox: Etoys-kfr.95.mcz
by commits＠source.squeak.org 01 Nov '11

01 Nov '11

A new version of Etoys was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Etoys-kfr.95.mcz ==================== Summary ==================== Name: Etoys-kfr.95 Author: kfr Time: 30 October 2011, 8:13:12 pm UUID: 990923b1-5ea9-f149-bf8f-beafb95cf536 Ancestors: Etoys-bf.94 stuff for filter =============== Diff against Etoys-bf.94 =============== Item was added: + ----- Method: Player>>blur: (in category 'sketch filters') ----- + blur: aNumber + self sendMessageToCostume: #filtersAdd: with: { #blur:form: . aNumber}! Item was added: + ----- Method: Player>>brightnessShift: (in category 'sketch filters') ----- + brightnessShift: aNumber + self sendMessageToCostume: #filtersAdd: with: { #brightnessShift:form: . aNumber}! Item was added: + ----- Method: Player>>hueShift: (in category 'sketch filters') ----- + hueShift: aNumber + self sendMessageToCostume: #filtersAdd: with: { #hueShift:form: . aNumber}! Item was added: + ----- Method: Player>>removeFilters (in category 'sketch filters') ----- + removeFilters + self sendMessageToCostume: #removeAllFilters! Item was added: + ----- Method: Player>>saturationShift: (in category 'sketch filters') ----- + saturationShift: aNumber + self sendMessageToCostume: #filtersAdd: with: { #saturationShift:form: . aNumber}! Item was changed: ----- Method: SketchMorph class>>additionsToViewerCategories (in category '*eToys-scripting') ----- additionsToViewerCategories "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 ( (slot graphic 'The picture currently being worn' Graphic readWrite Player getGraphic Player setGraphic:) (command wearCostumeOf: 'wear the costume of...' Player) (slot baseGraphic 'The picture originally painted for this object, but can subsequently be changed via menu or script' Graphic readWrite Player getBaseGraphic Player setBaseGraphic:) (command restoreBaseGraphic 'Make my picture be the one I remember in my baseGraphic') (slot rotationStyle 'How the picture should change when the heading is modified' RotationStyle readWrite Player getRotationStyle Player setRotationStyle:) (command flipLeftRight 'Flip the picture left to right' Player) (command flipUpDown 'Flip the picture upside down' Player) + (command hueShift: 'Shift the hue of the pictures colors' Number) + (command brightnessShift: 'Shift the brightness of the picture' Number) + (command saturationShift: 'Shift the saturation of the pictures colors' Number) + (command blur: 'Blur the picture' Number) + (command removeFilters 'Remove all picture filters') ))) !

1 0

Etoys Inbox: Morphic-kfr.70.mcz
by commits＠source.squeak.org 01 Nov '11

01 Nov '11

A new version of Morphic was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Morphic-kfr.70.mcz ==================== Summary ==================== Name: Morphic-kfr.70 Author: kfr Time: 1 November 2011, 8:55:18 am UUID: d42046a4-9c34-904d-8bb8-72f852401f32 Ancestors: Morphic-kfr.68 SketchMorph Filters =============== Diff against Morphic-kfr.68 =============== Item was removed: - ----- Method: SketchMorph>>blur: (in category 'filters') ----- - blur: width - - self filters. - filters add: { #filterBlur:form: . width} - - - ! Item was added: + ----- Method: SketchMorph>>blur:form: (in category 'filters') ----- + blur: width form: filteredForm + + | f fOut | + + f := filteredForm asFormOfDepth: 32. + f width + width = 0 ifTrue:[^ filteredForm]. + fOut := f deepCopy. + ScratchPlugin primBlur: f bits into: fOut bits width: f width + width. + ^ fOut asFormOfDepth: 16. + + ! Item was removed: - ----- Method: SketchMorph>>brightnessShift: (in category 'filters') ----- - brightnessShift: shift - - self filters. - filters add: { #filterBrightnessShift:form: . shift} - - - ! Item was added: + ----- Method: SketchMorph>>brightnessShift:form: (in category 'filters') ----- + brightnessShift: shift form: filteredForm + + | f fOut | + f := filteredForm asFormOfDepth: 32. + fOut := f deepCopy. + ScratchPlugin primShiftBrightness: f bits into: fOut bits by: shift. + ^ fOut asFormOfDepth: 16. + + ! Item was removed: - ----- Method: SketchMorph>>filterBlur:form: (in category 'filters') ----- - filterBlur: width form: filteredForm - - | f fOut | - f _ filteredForm asFormOfDepth: 32. - fOut _ f deepCopy. - ScratchPlugin primBlur: f bits into: fOut bits width: width. - ^ fOut asFormOfDepth: 16. - - ! Item was removed: - ----- Method: SketchMorph>>filterBrightnessShift:form: (in category 'filters') ----- - filterBrightnessShift: shift form: filteredForm - - | f fOut | - f _ filteredForm asFormOfDepth: 32. - fOut _ f deepCopy. - ScratchPlugin primShiftBrightness: f bits into: fOut bits by: shift. - ^ fOut asFormOfDepth: 16. - - ! Item was removed: - ----- Method: SketchMorph>>filterHueShift:form: (in category 'filters') ----- - filterHueShift: shift form: filteredForm - - | f fOut | - f _ filteredForm asFormOfDepth: 32. - fOut _ f deepCopy. - ScratchPlugin primShiftHue: f bits into: fOut bits byDegrees: shift. - ^ fOut asFormOfDepth: 16. - - ! Item was removed: - ----- Method: SketchMorph>>filterSaturationShift:form: (in category 'filters') ----- - filterSaturationShift: shift form: filteredForm - - | f fOut | - f _ filteredForm asFormOfDepth: 32. - fOut _ f deepCopy. - ScratchPlugin primShiftSaturation: f bits into: fOut bits by: shift. - ^ fOut asFormOfDepth: 16. - - ! Item was added: + ----- Method: SketchMorph>>filtersAdd: (in category 'filters') ----- + filtersAdd: aFilterWithValue + + + self filters. + filters do: [ : i | (i includes: aFilterWithValue first) ifTrue: [filters remove: i]]. + filters add: aFilterWithValue. + self generateRotatedForm. + self layoutChanged + + + ! Item was removed: - ----- Method: SketchMorph>>hueShift: (in category 'filters') ----- - hueShift: shift - - self filters. - filters add: { #filterHueShift:form: . shift} - - - ! Item was added: + ----- Method: SketchMorph>>hueShift:form: (in category 'filters') ----- + hueShift: shift form: filteredForm + + | f fOut | + 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 generateRotatedForm. + self layoutChanged + ! Item was removed: - ----- Method: SketchMorph>>resetAllFilters (in category 'filters') ----- - resetAllFilters - filters := nil. - ! Item was removed: - ----- Method: SketchMorph>>saturationShift: (in category 'filters') ----- - saturationShift: shift - - self filters. - filters add: { #filterSaturationShift:form: . shift} - - - ! Item was added: + ----- Method: SketchMorph>>saturationShift:form: (in category 'filters') ----- + saturationShift: shift form: filteredForm + + | f fOut | + f := filteredForm asFormOfDepth: 32. + fOut := f deepCopy. + ScratchPlugin primShiftSaturation: f bits into: fOut bits by: shift. + ^ fOut asFormOfDepth: 16. + + !

1 0

Etoys Inbox: Morphic-kfr.69.mcz
by commits＠source.squeak.org 01 Nov '11

01 Nov '11

A new version of Morphic was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Morphic-kfr.69.mcz ==================== Summary ==================== Name: Morphic-kfr.69 Author: kfr Time: 30 October 2011, 8:38:32 pm UUID: a00a3ab0-6f2c-e344-a824-dbb170f45bb3 Ancestors: Morphic-kfr.68 filter stuff =============== Diff against Morphic-kfr.68 =============== Item was added: + ----- Method: SketchMorph>>blur:form: (in category 'filters') ----- + blur: width form: filteredForm + + | f fOut | + f _ filteredForm asFormOfDepth: 32. + fOut _ f deepCopy. + ScratchPlugin primBlur: f bits into: fOut bits width: width. + ^ fOut asFormOfDepth: 16. + + ! Item was changed: ----- Method: SketchMorph>>brightnessShift: (in category 'filters') ----- brightnessShift: shift self filters. filters add: { #filterBrightnessShift:form: . shift} ! Item was added: + ----- Method: SketchMorph>>brightnessShift:form: (in category 'filters') ----- + brightnessShift: shift form: filteredForm + + | f fOut | + f _ filteredForm asFormOfDepth: 32. + fOut _ f deepCopy. + ScratchPlugin primShiftBrightness: f bits into: fOut bits by: shift. + ^ fOut asFormOfDepth: 16. + + ! Item was removed: - ----- Method: SketchMorph>>filterBlur:form: (in category 'filters') ----- - filterBlur: width form: filteredForm - - | f fOut | - f _ filteredForm asFormOfDepth: 32. - fOut _ f deepCopy. - ScratchPlugin primBlur: f bits into: fOut bits width: width. - ^ fOut asFormOfDepth: 16. - - ! Item was removed: - ----- Method: SketchMorph>>filterBrightnessShift:form: (in category 'filters') ----- - filterBrightnessShift: shift form: filteredForm - - | f fOut | - f _ filteredForm asFormOfDepth: 32. - fOut _ f deepCopy. - ScratchPlugin primShiftBrightness: f bits into: fOut bits by: shift. - ^ fOut asFormOfDepth: 16. - - ! Item was removed: - ----- Method: SketchMorph>>filterHueShift:form: (in category 'filters') ----- - filterHueShift: shift form: filteredForm - - | f fOut | - f _ filteredForm asFormOfDepth: 32. - fOut _ f deepCopy. - ScratchPlugin primShiftHue: f bits into: fOut bits byDegrees: shift. - ^ fOut asFormOfDepth: 16. - - ! Item was removed: - ----- Method: SketchMorph>>filterSaturationShift:form: (in category 'filters') ----- - filterSaturationShift: shift form: filteredForm - - | f fOut | - f _ filteredForm asFormOfDepth: 32. - fOut _ f deepCopy. - ScratchPlugin primShiftSaturation: f bits into: fOut bits by: shift. - ^ fOut asFormOfDepth: 16. - - ! Item was added: + ----- Method: SketchMorph>>filtersAdd: (in category 'filters') ----- + filtersAdd: aFilterWithValue + + + self filters. + filters do: [ : i | (i includes: aFilterWithValue first) ifTrue: [filters remove: i]]. + filters add: aFilterWithValue. + self generateRotatedForm. + self layoutChanged + + + ! Item was changed: ----- Method: SketchMorph>>hueShift: (in category 'filters') ----- hueShift: shift self filters. filters add: { #filterHueShift:form: . shift} ! Item was added: + ----- Method: SketchMorph>>hueShift:form: (in category 'filters') ----- + hueShift: shift form: filteredForm + + | f fOut | + f _ filteredForm asFormOfDepth: 32. + fOut _ f deepCopy. + ScratchPlugin primShiftHue: f bits into: fOut bits byDegrees: shift. + ^ fOut asFormOfDepth: 16. + + ! Item was added: + ----- Method: SketchMorph>>removeAllFilters (in category 'filters') ----- + removeAllFilters + filters := nil. + self generateRotatedForm. + self layoutChanged + ! Item was removed: - ----- Method: SketchMorph>>resetAllFilters (in category 'filters') ----- - resetAllFilters - filters := nil. - ! Item was added: + ----- Method: SketchMorph>>saturationShift:form: (in category 'filters') ----- + saturationShift: shift form: filteredForm + + | f fOut | + f _ filteredForm asFormOfDepth: 32. + fOut _ f deepCopy. + ScratchPlugin primShiftSaturation: f bits into: fOut bits by: shift. + ^ fOut asFormOfDepth: 16. + + !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev November 2011