etoys-dev November 2011

etoys-dev@lists.squeakfoundation.org

13 participants
32 discussions

Etoys Inbox: Morphic-kfr.68.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.68.mcz ==================== Summary ==================== Name: Morphic-kfr.68 Author: kfr Time: 30 October 2011, 5:19:22 pm UUID: 351e1c8a-a323-2041-b6f2-bd68301dd600 Ancestors: Morphic-kfr.67 add filters to SketchMorph =============== Diff against Morphic-kfr.67 =============== 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: '<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 added: + ----- Method: SketchMorph>>blur: (in category 'filters') ----- + blur: width + + self filters. + filters add: { #filterBlur:form: . width} + + + ! Item was added: + ----- Method: SketchMorph>>brightnessShift: (in category 'filters') ----- + brightnessShift: shift + + self filters. + filters add: { #filterBrightnessShift:form: . shift} + + + ! Item was added: + ----- 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 added: + ----- 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 added: + ----- 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 added: + ----- 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>>filters (in category 'filters') ----- + filters + filters ifNil:[filters := OrderedCollection new]. + ^filters! Item was changed: ----- Method: SketchMorph>>generateRotatedForm (in category 'drawing') ----- generateRotatedForm "Compute my rotatedForm and offsetWhenRotated." + | scalePt smoothPix pair filteredForm | - | scalePt smoothPix pair | scalePoint ifNil: [scalePoint := 1 @ 1]. scalePt := scalePoint x abs @ scalePoint y abs. 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 ifTrue: [scalePt := scalePt x negated @ scalePt y]]. 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 with: filter second with: filteredForm. + ]]. + filteredForm ifNil:[filteredForm := originalForm copy]. + rotatedForm := (scalePt = (1 @ 1) and:[ filters isNil]) - rotatedForm := scalePt = (1 @ 1) ifTrue: [originalForm] ifFalse: ["ar 11/19/2001: I am uncertain what happens in the case of rotationStyle ~~ normal" + ((rotationStyle == #normal and: [self useInterpolation]) and:[filters isNil]) - (rotationStyle == #normal and: [self useInterpolation]) ifTrue: [^self generateInterpolatedForm]. pair := WarpBlt current + rotate: filteredForm - rotate: originalForm degrees: 0 center: originalForm boundingBox center scaleBy: scalePt smoothing: smoothPix. pair first]! Item was added: + ----- Method: SketchMorph>>hueShift: (in category 'filters') ----- + hueShift: shift + + self filters. + filters add: { #filterHueShift:form: . shift} + + + ! Item was added: + ----- Method: SketchMorph>>resetAllFilters (in category 'filters') ----- + resetAllFilters + filters := nil. + ! Item was added: + ----- Method: SketchMorph>>saturationShift: (in category 'filters') ----- + saturationShift: shift + + self filters. + filters add: { #filterSaturationShift:form: . shift} + + + !

1 0

Etoys Inbox: Etoys-kfr.96.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.96.mcz ==================== Summary ==================== Name: Etoys-kfr.96 Author: kfr Time: 1 November 2011, 8:44:26 am UUID: 7bbdc676-b4d6-1648-a3ab-39c377af6a20 Ancestors: Etoys-bf.94 SketchMorph filters =============== 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: #removeFilters! 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 the picture filters' ) ))) !

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