etoys-dev November 2011

etoys-dev@lists.squeakfoundation.org

13 participants
32 discussions

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

14 Nov '11

A new version of Etoys was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Etoys-kfr..101.mcz ==================== Summary ==================== Name: Etoys-kfr..101 Author: kfr. Time: 14 November 2011, 11:43:39 am UUID: 4f474062-6f56-ae4b-9208-5d8e9a0226ed Ancestors: Etoys-kfr..100 diff filter =============== Diff against Etoys-kfr..100 =============== 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 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 fishEye: 'Make a fish eye effect on the picture. -10 and up' Number) (command whirl: 'Make a whirl effect on the picture.' Number) (command removeFilters 'Remove the picture filters' ) )) !

1 0

SQ-996 Add Etoy interfaces to ScratchPlugin picture manipulation methods
by Steve Thomas 13 Nov '11

13 Nov '11

Karl, Thanks for working on this some thoughts/suggestions: 1. The setters for blur, shift, hue should be more like the ones for X and Y where you can "increase by" and "decrease by" (they have the arrow) 2. It would be nice to have a tile for "change red value by __%" this would work similar to your Color Reading And Writing<http://www.squeakland.org/showcase/project.jsp?id=7044> project. Where it goes pixel by pixel and adjusts the red values (or blue, greeen, ...) 3. Transparency for graphics would be nice 4. I did not see fisheye, pixelate, mosaic, ... effects 5. Last suggestion: Know that we really appreciate all the work you have been doing lately and you don't have to do any of the above items ;) Stephen

1 0

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

09 Nov '11

A new version of Morphic was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Morphic-kfr..78.mcz ==================== Summary ==================== Name: Morphic-kfr..78 Author: kfr. Time: 9 November 2011, 10:29:02 am UUID: e2246582-5edf-1e42-8d3d-4d28b78c8883 Ancestors: Morphic-kfr..77 Add some hacks to make color and form translucency work. This hack make 32 bit depth work pretty well. 16 bit and lower work as before. =============== Diff against Morphic-kfr..77 =============== Item was changed: ----- Method: Canvas>>translucentImage:at:sourceRect: (in category 'drawing-images') ----- translucentImage: aForm at: aPoint sourceRect: sourceRect "Draw with a translucent image using the best way of creating translucency. Perhaps translucency should be available without creating an image form." + | combinationRule | self shadowColor ifNotNil:[ ^self stencil: aForm at: aPoint sourceRect: sourceRect color: self shadowColor]. aForm isTranslucent not ifTrue:[^self paintImage: aForm at: aPoint sourceRect: sourceRect]. + ((self depth = 32) and:[aForm depth = 32]) + ifTrue:[ combinationRule := 24] + ifFalse:[combinationRule := 34]."better than Form blend = 24" self image: aForm at: aPoint sourceRect: sourceRect + rule: combinationRule ! - rule: 34 "better than Form blend = 24"! Item was changed: ----- Method: FormCanvas>>transformBy:clippingTo:during:smoothing: (in category 'drawing-support') ----- transformBy: aDisplayTransform clippingTo: aClipRect during: aBlock smoothing: cellSize "Note: This method has been originally copied from TransformationMorph." + | innerRect patchRect sourceQuad warp start subCanvas test | - | innerRect patchRect sourceQuad warp start subCanvas | (aDisplayTransform isPureTranslation) ifTrue:[ ^aBlock value: (self copyOffset: aDisplayTransform offset negated truncated clipRect: aClipRect) ]. "Prepare an appropriate warp from patch to innerRect" innerRect := aClipRect. patchRect := (aDisplayTransform globalBoundsToLocal: innerRect) truncated. sourceQuad := (aDisplayTransform sourceQuadFor: innerRect) collect: [:p | p - patchRect topLeft]. warp := self warpFrom: sourceQuad toRect: innerRect. + - "Render the submorphs visible in the clipping rectangle, as patchForm" start := (self depth = 1 and: [self isShadowDrawing not]) "If this is true B&W, then we need a first pass for erasure." ifTrue: [1] ifFalse: [2]. start to: 2 do: [:i | "If i=1 we first make a shadow and erase it for opaque whites in B&W" subCanvas := self class extent: patchRect extent depth: self depth. i=1 ifTrue: [subCanvas shadowColor: Color black. warp combinationRule: Form erase] ifFalse: [self isShadowDrawing ifTrue: [subCanvas shadowColor: self shadowColor]. + test := aBlock receiver renderedMorph. + ((test isKindOf: SketchMorph) or:[ test isKindOf: ImageMorph]) + ifTrue:[ ((test form isTranslucent) and:[ self depth = 32]) + ifTrue:[warp combinationRule: 34] + ifFalse:[warp combinationRule: Form paint]] + ifFalse:[ self depth = 32 + ifTrue:[warp combinationRule: 34] + ifFalse:[ ((self depth = 16) and:[(test color isTranslucent ) or:[ test borderColor isTranslucent]]) + ifTrue:[warp combinationRule:34 ] + ifFalse:[warp combinationRule:Form paint]]]]. - warp combinationRule: Form paint]. subCanvas translateBy: patchRect topLeft negated during:[:offsetCanvas| aBlock value: offsetCanvas]. + warp sourceForm: subCanvas form; cellSize: cellSize; warpBits. - warp sourceForm: subCanvas form; cellSize: cellSize; warpBits. warp sourceForm: nil. subCanvas := nil "release space for next loop"] !

1 0

Re: [etoys-dev] Etoys Inbox: Etoys-kfr..100.mcz
by Harness, Kathleen 07 Nov '11

07 Nov '11

Hi, Kids are going to like these added effects, me too Kathleen ________________________________________ From: etoys-dev-bounces(a)squeakland.org [etoys-dev-bounces(a)squeakland.org] on behalf of commits(a)source.squeak.org [commits(a)source.squeak.org] Sent: Monday, November 07, 2011 3:18 AM To: etoys-dev(a)squeakland.org Subject: [etoys-dev] Etoys Inbox: Etoys-kfr..100.mcz A new version of Etoys was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Etoys-kfr..100.mcz ==================== Summary ==================== Name: Etoys-kfr..100 Author: kfr. Time: 7 November 2011, 7:47:46 pm UUID: 31f0e957-ce4a-6b48-af57-2d99a2b5fa6b Ancestors: Etoys-kfr..99 Add fish eye and whirl effects =============== Diff against Etoys-kfr..99 =============== Item was added: + ----- Method: Player>>fishEye: (in category 'sketch filters') ----- + fishEye: aNumber + self sendMessageToCostume: #filtersAdd: with: { #fishEye:form: . aNumber}! Item was added: + ----- Method: Player>>whirl: (in category 'sketch filters') ----- + whirl: aNumber + self sendMessageToCostume: #filtersAdd: with: { #whirl: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 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 fishEye: 'Make a fish eye effect on the picture. -10 and up' Number) + (command whirl: 'Make a whirl effect on the picture.' Number) (command removeFilters 'Remove the picture filters' ) )) ! _______________________________________________ etoys-dev mailing list etoys-dev(a)squeakland.org http://lists.squeakland.org/mailman/listinfo/etoys-dev

1 0

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

07 Nov '11

A new version of Etoys was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Etoys-kfr..100.mcz ==================== Summary ==================== Name: Etoys-kfr..100 Author: kfr. Time: 7 November 2011, 7:47:46 pm UUID: 31f0e957-ce4a-6b48-af57-2d99a2b5fa6b Ancestors: Etoys-kfr..99 Add fish eye and whirl effects =============== Diff against Etoys-kfr..99 =============== Item was added: + ----- Method: Player>>fishEye: (in category 'sketch filters') ----- + fishEye: aNumber + self sendMessageToCostume: #filtersAdd: with: { #fishEye:form: . aNumber}! Item was added: + ----- Method: Player>>whirl: (in category 'sketch filters') ----- + whirl: aNumber + self sendMessageToCostume: #filtersAdd: with: { #whirl: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 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 fishEye: 'Make a fish eye effect on the picture. -10 and up' Number) + (command whirl: 'Make a whirl effect on the picture.' Number) (command removeFilters 'Remove the picture filters' ) )) !

1 0

Etoys Inbox: Morphic-kfr..77.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..77.mcz ==================== Summary ==================== Name: Morphic-kfr..77 Author: kfr. Time: 7 November 2011, 7:45:57 pm UUID: bafa31a8-a53d-a044-8412-4cefa8a595ce Ancestors: Morphic-kfr..76 Add fish eye and whirl effects =============== Diff against Morphic-kfr..76 =============== 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 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!

1 0

Etoys Inbox: Morphic-kfr..76.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..76.mcz ==================== Summary ==================== Name: Morphic-kfr..76 Author: kfr. Time: 7 November 2011, 6:54:46 pm UUID: d98a768d-9bd9-9847-abf2-8bc0033d18f1 Ancestors: Morphic-kfr..75 return unchanged form on value 0 in filter =============== Diff against Morphic-kfr..75 =============== Item was changed: ----- 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 changed: ----- 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 changed: ----- 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 changed: ----- 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!

1 0

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

07 Nov '11

A new version of Etoys was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Etoys-kfr..99.mcz ==================== Summary ==================== Name: Etoys-kfr..99 Author: kfr. Time: 7 November 2011, 11:39:39 am UUID: 7525cecb-5a6f-5f41-aa81-b1d9ddbb0fcb Ancestors: Etoys-kfr..98 small diff =============== Diff against Etoys-kfr..98 =============== Item was changed: ----- Method: Player>>hueShift: (in category 'sketch filters') ----- + hueShift: aNumber + self sendMessageToCostume: #filtersAdd: with: {#hueShift:form:. aNumber}! - hueShift: aNumber - self sendMessageToCostume: #filtersAdd: with: { #hueShift:form: . aNumber}!

1 0

Etoys Inbox: Morphic-kfr..75.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..75.mcz ==================== Summary ==================== Name: Morphic-kfr..75 Author: kfr. Time: 7 November 2011, 11:36:31 am UUID: 7c2a787a-cb87-3048-9201-ce77fa1d0b82 Ancestors: Morphic-kfr..74 filteredForm was defined 2 times =============== Diff against Morphic-kfr..74 =============== 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: [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..74.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..74.mcz ==================== Summary ==================== Name: Morphic-kfr..74 Author: kfr. Time: 7 November 2011, 11:33:22 am UUID: a59294a6-79e8-5148-a91d-1583a112958e Ancestors: Morphic-kfr..73 SketchMorph comment got deleted... =============== Diff against Morphic-kfr..73 =============== Item was changed: Morph subclass: #SketchMorph 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. + !

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