Squeak-dev December 2010

squeak-dev@lists.squeakfoundation.org

95 participants
379 discussions

Re: Playing Flash movies in-image
by Chris Cunnington 30 Dec '10

30 Dec '10

I got it to work with a wmv file, which is cool. I think the whole thing can uncoil to cover more and more ground now that you've made it work, made a prototype. Chris

1 0

Re: Playing Flash movies in-image
by Chris Cunnington 30 Dec '10

30 Dec '10

That's amazing! I mean, that's a player right there. Wow. It worked with a QT movie and an MPEG one. Very cool. You certainly found the way through. Chris

2 1

Re: Playing Flash movies in-image
by Chris Cunnington 30 Dec '10

30 Dec '10

>The concept is that logic is handled a URL for a media object (video or audio). It must then determine what type of >media that is, using features of Quicktime or MimeTypes to figure out a optimal guess at the concrete decoder class to use. >For that a weighted matrix of choices is used because if we have quicktime, use that, but maybe not if it's an OGG movie since >quicktime doesn't support OGG natively, but there is a plugin... Frankly this is the important piece of the whole architecture. If it's QT compatible, then it goes to NewMovieFromDataRef, which is broader than NewMovieFromFile. The file could be anywhere: on the disk or on the Internet. I've been extremely QT centric at this point, but I see what you're saying about OGG. Though I haven't spent time yet looking for the code that parses an URI for different file types. >Now the decoder logic has a number of goals, play, stop, rewind, close.. More interesting is play, what happens then is the >decoder's objective is to start at a particular position in the movie, and on each frame change signal to tweak the frame has changed. That's the infinite Tweak loop between SophieMovieFramePlayer and SophieQuickTimeMovieViaPlugin. Press #play and that delegates to SophieQuickTimeMovie>>playMovieScript. It's an loop that Tweak has made into a Process to control. I've seen it appear as a process in the ProcessBrowser, when the movie plays. It goes back to SophieMovieFramePlayer>>onMovieUpdated to get the #invalidate to redraw the screen, which is in the #costume of that Player. >When it gets that, it then has the responsibility to gather up the bits and ask tweak to splash them onto the tweak UI. Yea... I'm not sure how that works: "splash onto the Tweak UI". A Form is full of bits. In an MPEGMoviePlayerMorph we have Forms full of bits for each frame, I suppose. But with the SurfacePlugin, we just have a Form defined location that contains nothing. I thought the SurfacePlugin created a surface that floated above Squeak controlled by the OS. All I see are SophieQuickTimeMovieViaPlugin>>gWorldPtr pixMapHandle. I never see fields of bits or a binary array upon inspection. I can't see how the bits fill the #rectangle or #offscreenForm. Because it's using FFI, it seems in a black box. How do I visualize what the SurfacePlugin is doing? Chris

2 1

Re: Playing Flash movies in-image
by Chris Cunnington 30 Dec '10

30 Dec '10

Well I'm impressed. It does just what you said. It falls juuuuust a little short of what we need it to do. But seeing as I've been looking at this for months and haven't got that far. Again - I'm impressed. Have an attaboy: "Attaboy, Sean!" Chris

2 1

Re: [squeak-dev] [4.2] tests status
by David T. Lewis 29 Dec '10

29 Dec '10

On Fri, Dec 24, 2010 at 03:41:23PM -0300, Jecel Assumpcao Jr. wrote: > Ken G. Brown wrote on Wed, 22 Dec 2010 23:19:45 -0800 > > I think too, that it would be good to coordinate with Matthew F. > > To be sure the Croquet stuff is operational in 4.2. > > Yes, this was actually mentioned in the last meeting report - > > http://squeakboard.wordpress.com/2010/12/21/meeting-report-for-december- > 21-2010/ > > If I understood correctly, he will continue to track Trunk and doesn't > feel that an incomplete merge in 4.2 will be a problem. He did mention > the "FloatMath plugin issue" and that it would be good to have that > solved in 4.2, but I have not been paying attention to this discussion. I think that the "FloatMath plugin issue" is Mantis 0007583: Float does not use FloatMathPlugin for bit-consistent float math across platforms. http://bugs.squeak.org/view.php?id=7583

7 18

Playing Flash movies in-image (was: Sophie MPEG Player)
by Sean P. DeNigris 29 Dec '10

29 Dec '10

I'm trying to play a flash movie (.flv - H.264, 320 x 216, Millions; AAC, Stereo, 22.050 kHz). I imported and played it successfully in OpenSophie, but before I attempt to port the code (which is Tweak-based) into Squeak, is there any currently existing code that can do this? The current conversation (moved from http://forum.world.st/Sophie-MPEG-Player-td2341744.html) was how OpenSophie is doing what it does: Chris Cunnington-3 wrote: > > How to open a QT movie programmatically? > <snip> > I gave up trying to open a movie with code in a Workspace, and decided > to learn from what works, which is to open the Macbeth example file. > That shows a Tweak-managed infinite loop ( [self isMovieDone] > whileFalse: in SophieQuickTimeAudio>>playMovieScript) running between > SophieMovieFramePlayer and SophieQuickTimeMovieViaPlugin. The Player has > the buttons. ViaPlugin accesses QuickTime on the Mac. > > I'm still in the middle of digging out details about Tweak and > #startScript: before I go back to that part. It's lead me down an > AsyncScriptMessageSend rabbit hole. If you want to freak yourself out, > open the ProcessBrowser. Freaked me out. > > Chris > Sean P. DeNigris wrote: > > On Dec 28, 2010, at 6:01 PM, "Chris Cunnington-3 [via Smalltalk]" > <ml-node+3166568-984144027-128965(a)n4.nabble.com> wrote: > >> I... decided to learn from what works, which is to open the Macbeth >> example file. >> That shows a Tweak-managed infinite loop > I know nothing about Tweak. How did you jump from seeing the Sophie UI to > finding that loop? When I couldn't bring up halos, I started fruitlessly > searching brute-force through the class browser. > >> If you want to freak yourself out, open the ProcessBrowser. > I'll check it out - I like excitement :) > > Sean > Chris Cunnington-3 wrote: > > You've put your finger on the big question in Tweak: how did this go > from here to there? > I see what you mean. I got stuck even before this process - if you can't bring up halos, how do you even know which class/method to *start* with? I did some digging, and found that the entry point (when you import a QT movie from the menu) is: SophieQuickTimeMovieViaPlugin new resource: res; yourself. So the problem with the example code was that resource was not set and was still nil. Still digging... Sean -- View this message in context: http://forum.world.st/Playing-Flash-movies-in-image-was-Sophie-MPEG-Player-… Sent from the Squeak - Dev mailing list archive at Nabble.com.

1 0

Re: Sophie MPEG Player
by Chris Cunnington 29 Dec '10

29 Dec '10

"How did you jump from seeing the Sophie UI to finding that loop?" You've put your finger on the big question in Tweak: how did this go from here to there? Tweak teleports the flow of execution from one place to another using method annotations. Stuff like <on: movieChanged> is everywhere. The simple way is to know that anything with <on: movieChanged> is going to have a correlative method somewhere called #onMovieChanged:. So, if I'm in SophieMovie>>updateMovie and I see signal: #movieUpdated, I'm pretty sure there's going to be an #onMovieUpdated somewhere. Using the MethodFinder, I find one in - you guessed it - SophieMovieFramePlayer>>onMovieUpdated. It's a kind of convention. Or you can use the Annotations browser from the same menu as Monticello Browser. I find knowing the convention more useful than the AnnotationsBrowser, though. When Teleplace asks questions of prospective employees "can you get up to speed quickly with different UIs?" I think they are talking about this Tweak transporter system that would be at home on the USS Enterprise. Chris

2 1

Scamper in FunSqueak
by Sean P. DeNigris 29 Dec '10

29 Dec '10

Has anyone been able to load webpages via Scamper in FunSqueakCog4.2? When I click on any of the links on the home page, the status bar says "downloading [url]..." indefinitely. Thanks. Sean -- View this message in context: http://forum.world.st/Scamper-in-FunSqueak-tp3166393p3166393.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

2 2

The Trunk: ST80-nice.122.mcz
by commits＠source.squeak.org 29 Dec '10

29 Dec '10

Nicolas Cellier uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-nice.122.mcz ==================== Summary ==================== Name: ST80-nice.122 Author: nice Time: 29 December 2010, 5:11:40.202 pm UUID: d9c9081c-75ce-459a-9295-6b82c02d72b6 Ancestors: ST80-nice.121 Add a few spaces in order to avoid Transcript warnings about @- ambiguity when recompiling. =============== Diff against ST80-nice.121 =============== Item was changed: ----- Method: GraphicSymbolInstance class>>example (in category 'examples') ----- example "Simply evaluate the method and two GraphicSymbolInstances, each displaying a transformation of the same graphic symbol, will be presented on the screen. Clears the screen to white." | gate instance1 instance2 trans1 trans2 line arc f| Display fillWhite. "clear the Screen." + f := Form extent: 2 @ 2. - f := Form extent: 2@2. f fillBlack. gate:= GraphicSymbol new. "make a logic gate out of lines and arcs." + line:=Line new. line beginPoint: -20 @ -20. line endPoint: 0 @ -20. line form: f. - line:=Line new. line beginPoint: -20@-20. line endPoint: 0@-20. line form: f. gate add: line. + line:=Line new. line beginPoint: -20 @ 20. line endPoint: 0 @ 20. line form: f. - line:=Line new. line beginPoint: -20@20. line endPoint: 0@20. line form: f. gate add: line. + line:=Line new. line beginPoint: 0 @ -40. line endPoint: 0 @ 40. line form: f. - line:=Line new. line beginPoint: 0@-40. line endPoint: 0@40. line form: f. gate add: line. + arc := Arc new. arc center: 0 @ 0 radius: 40 quadrant: 1. - arc := Arc new. arc center: 0@0 radius: 40 quadrant: 1. arc form: f. gate add: arc. + arc := Arc new. arc center: 0 @ 0 radius: 40 quadrant: 4. - arc := Arc new. arc center: 0@0 radius: 40 quadrant: 4. arc form: f. gate add: arc. "one instance at 1/2 scale." trans1:=WindowingTransformation identity. + trans1:= trans1 scaleBy: 0.5 @ 0.5. + trans1:= trans1 translateBy: 100 @ 100. - trans1:= trans1 scaleBy: 0.5(a)0.5. - trans1:= trans1 translateBy: 100@100. "the other instance at 2 times scale" trans2:=WindowingTransformation identity. + trans2:= trans2 scaleBy: 2.0 @ 2.0. + trans2:= trans2 translateBy: 200 @ 200. - trans2:= trans2 scaleBy: 2.0(a)2.0. - trans2:= trans2 translateBy: 200@200. instance1 := GraphicSymbolInstance new. instance1 transformation: trans1. instance1 graphicSymbol: gate. instance2 := GraphicSymbolInstance new. instance2 transformation: trans2. instance2 graphicSymbol: gate. "display both instances of the logic gate" instance1 displayOn: Display transformation: WindowingTransformation identity clippingBox: Display boundingBox rule: Form under fillColor: nil. instance2 displayOn: Display transformation: WindowingTransformation identity clippingBox: Display boundingBox rule: Form under fillColor: nil "GraphicSymbolInstance example"!

1 0

The Trunk: Graphics-nice.171.mcz
by commits＠source.squeak.org 29 Dec '10

29 Dec '10

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.171.mcz ==================== Summary ==================== Name: Graphics-nice.171 Author: nice Time: 29 December 2010, 5:07:15.234 pm UUID: bf99e3d9-04f5-42bd-9090-142304bdd0fc Ancestors: Graphics-nice.170 Add a few spaces in order to avoid Transcript warnings about @- ambiguity when recompiling. =============== Diff against Graphics-nice.170 =============== Item was changed: ----- Method: Cursor class>>initBottomLeft (in category 'class initialization') ----- initBottomLeft BottomLeftCursor := + (Cursor extent: 16 @ 16 - (Cursor extent: 16@16 fromArray: #( 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1111111111111111 2r1111111111111111) + offset: 0 @ -16). - offset: 0@-16). ! Item was changed: ----- Method: Cursor class>>initBottomRight (in category 'class initialization') ----- initBottomRight BottomRightCursor := + (Cursor extent: 16 @ 16 - (Cursor extent: 16@16 fromArray: #( 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r1111111111111111 2r1111111111111111) + offset: -16 @ -16). - offset: -16@-16). ! Item was changed: ----- Method: Cursor class>>initCorner (in category 'class initialization') ----- initCorner CornerCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r1111111111111111 2r1111111111111111) + offset: -16 @ -16). - offset: -16@-16). ! Item was changed: ----- Method: Cursor class>>initCrossHair (in category 'class initialization') ----- initCrossHair CrossHairCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r0000000000000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0111111111111100 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000000000000 2r0) + offset: -7 @ -7). - offset: -7@-7). ! Item was changed: ----- Method: Cursor class>>initDown (in category 'class initialization') ----- initDown DownCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r1111110000000000 2r111100000000000 2r11000000000000 2r0 2r0 2r0 2r0 2r0 2r0) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initMarker (in category 'class initialization') ----- initMarker MarkerCursor := Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r0111000000000000 2r1111100000000000 2r1111100000000000 2r0111000000000000 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0) + offset: 0 @ 0. - offset: 0@0. ! Item was changed: ----- Method: Cursor class>>initMenu (in category 'class initialization') ----- initMenu MenuCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r1111111111100000 2r1000000000100000 2r1010011000100000 2r1000000000100000 2r1101001101100000 2r1111111111100000 2r1000000000100000 2r1011001010100000 2r1000000000100000 2r1010110010100000 2r1000000000100000 2r1010010100100000 2r1000000000100000 2r1111111111100000 0) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initMove (in category 'class initialization') ----- initMove MoveCursor := Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r1111111111111100 2r1111111111111100 2r1100001100001100 2r1100001100001100 2r1100001100001100 2r1100001100001100 2r1111111111111100 2r1111111111111100 2r1100001100001100 2r1100001100001100 2r1100001100001100 2r1100001100001100 2r1111111111111100 2r1111111111111100 0) + offset: 0 @ 0. - offset: 0@0. ! Item was changed: ----- Method: Cursor class>>initNormal (in category 'class initialization') ----- initNormal NormalCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r1000000000000000 2r1100000000000000 2r1110000000000000 2r1111000000000000 2r1111100000000000 2r1111110000000000 2r1111111000000000 2r1111100000000000 2r1111100000000000 2r1001100000000000 2r0000110000000000 2r0000110000000000 2r0000011000000000 2r0000011000000000 2r0000001100000000 2r0000001100000000) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initNormalWithMask (in category 'class initialization') ----- initNormalWithMask "Cursor initNormalWithMask. Cursor normal show" "Next two lines work simply for any cursor..." self initNormal. NormalCursor := CursorWithMask derivedFrom: NormalCursor. "But for a good looking cursor, you have to tweak things..." + NormalCursor := (CursorWithMask extent: 16 @ 16 depth: 1 - NormalCursor := (CursorWithMask extent: 16@16 depth: 1 fromArray: #( 0 1073741824 1610612736 1879048192 2013265920 2080374784 2113929216 2130706432 2080374784 2080374784 1275068416 100663296 100663296 50331648 50331648 0) + offset: -1 @ -1) + setMaskForm: (Form extent: 16 @ 16 depth: 1 - offset: -1@-1) - setMaskForm: (Form extent: 16@16 depth: 1 fromArray: #( 3221225472 3758096384 4026531840 4160749568 4227858432 4261412864 4278190080 4286578688 4278190080 4261412864 4261412864 3472883712 251658240 125829120 125829120 50331648) + offset: 0 @ 0).! - offset: 0@0).! Item was changed: ----- Method: Cursor class>>initOrigin (in category 'class initialization') ----- initOrigin OriginCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r1111111111111111 2r1111111111111111 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initRead (in category 'class initialization') ----- initRead ReadCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r0000000000000000 2r0000000000000000 2r0001000000001000 2r0010100000010100 2r0100000000100000 2r1111101111100000 2r1000010000100000 2r1000010000100000 2r1011010110100000 2r0111101111000000 2r0 2r0 2r0 2r0 2r0 2r0) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initResizeLeft (in category 'class initialization') ----- initResizeLeft ResizeLeftCursor := + (Cursor extent: 16 @ 16 fromArray: #( - (Cursor extent: 16@16 fromArray: #( 2r0000000000000000 2r0000000000000000 2r0000000000000000 2r0000000000000000 2r0000100000010000 2r0001100000011000 2r0011100000011100 2r0111111111111110 2r0011100000011100 2r0001100000011000 2r0000100000010000 2r0000000000000000 2r0000000000000000 2r0000000000000000 2r0000000000000000 2r0000000000000000 ) + offset: -7 @ -7 ) withMask! - offset: -7@-7 ) withMask! Item was changed: ----- Method: Cursor class>>initResizeTop (in category 'class initialization') ----- initResizeTop "Cursor initResizeTop" ResizeTopCursor := + (Cursor extent: 16 @ 16 fromArray: #( - (Cursor extent: 16@16 fromArray: #( 2r000000100000000 2r000001110000000 2r000011111000000 2r000111111100000 2r000000100000000 2r000000100000000 2r000000100000000 2r000000100000000 2r000000100000000 2r000000100000000 2r000111111100000 2r000011111000000 2r000001110000000 2r000000100000000 2r000000000000000) + offset: -7 @ -7) withMask! - offset: -7@-7) withMask! Item was changed: ----- Method: Cursor class>>initResizeTopLeft (in category 'class initialization') ----- initResizeTopLeft ResizeTopLeftCursor := + (Cursor extent: 16 @ 16 fromArray: #( - (Cursor extent: 16@16 fromArray: #( 2r0000000000000000 2r0111110000000000 2r0111100000000000 2r0111000000000000 2r0110100000000000 2r0100010000000000 2r0000001000000000 2r0000000100000000 2r0000000010000000 2r0000000001000100 2r0000000000101100 2r0000000000011100 2r0000000000111100 2r0000000001111100 2r0000000000000000 2r0000000000000000) + offset: -7 @ -7) withMask! - offset: -7@-7) withMask! Item was changed: ----- Method: Cursor class>>initResizeTopRight (in category 'class initialization') ----- initResizeTopRight ResizeTopRightCursor := + (Cursor extent: 16 @ 16 fromArray: #( - (Cursor extent: 16@16 fromArray: #( 2r0000000000000000 2r0000000001111100 2r0000000000111100 2r0000000000011100 2r0000000000101100 2r0000000001000100 2r0000000010000000 2r0000000100000000 2r0000001000000000 2r0100010000000000 2r0110100000000000 2r0111000000000000 2r0111100000000000 2r0111110000000000 2r0000000000000000 2r0000000000000000) + offset: -7 @ -7) withMask! - offset: -7@-7) withMask! Item was changed: ----- Method: Cursor class>>initRightArrow (in category 'class initialization') ----- initRightArrow RightArrowCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r100000000000 2r111000000000 2r1111111110000000 2r111000000000 2r100000000000 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0) + offset: 0 @ 0). - offset: 0@0). "Cursor initRightArrow"! Item was changed: ----- Method: Cursor class>>initSquare (in category 'class initialization') ----- initSquare SquareCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r0 2r0 2r0 2r0 2r0 2r0000001111000000 2r0000001111000000 2r0000001111000000 2r0000001111000000 2r0 2r0 2r0 2r0 2r0 2r0 2r0) + offset: -8 @ -8). - offset: -8@-8). ! Item was changed: ----- Method: Cursor class>>initTopLeft (in category 'class initialization') ----- initTopLeft TopLeftCursor := + (Cursor extent: 16 @ 16 - (Cursor extent: 16@16 fromArray: #( 2r1111111111111111 2r1111111111111111 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initTopRight (in category 'class initialization') ----- initTopRight TopRightCursor := + (Cursor extent: 16 @ 16 - (Cursor extent: 16@16 fromArray: #( 2r1111111111111111 2r1111111111111111 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011) + offset: -16 @ 0). - offset: -16@0). ! Item was changed: ----- Method: Cursor class>>initUp (in category 'class initialization') ----- initUp UpCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r11000000000000 2r111100000000000 2r1111110000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r0 2r0 2r0 2r0 2r0 2r0) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initWait (in category 'class initialization') ----- initWait WaitCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r1111111111111100 2r1000000000000100 2r0100000000001000 2r0010000000010000 2r0001110011100000 2r0000111111000000 2r0000011110000000 2r0000011110000000 2r0000100101000000 2r0001000100100000 2r0010000110010000 2r0100001111001000 2r1000111111110100 2r1111111111111100 0) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initWrite (in category 'class initialization') ----- initWrite WriteCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r0000000000011000 2r0000000000111100 2r0000000001001000 2r0000000010010000 2r0000000100100000 2r0000001001000100 2r0000010010000100 2r0000100100001100 2r0001001000010000 2r0010010000010000 2r0111100000001000 2r0101000011111000 2r1110000110000000 2r0111111100000000 2r0 2r0) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initXeq (in category 'class initialization') ----- initXeq XeqCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r1000000000010000 2r1100000000010000 2r1110000000111000 2r1111000111111111 2r1111100011000110 2r1111110001000100 2r1111111001111100 2r1111000001101100 2r1101100011000110 2r1001100010000010 2r0000110000000000 2r0000110000000000 2r0000011000000000 2r0000011000000000 2r0000001100000000 2r0000001100000000) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Form class>>toothpaste: (in category 'examples') ----- toothpaste: diam "Display restoreAfter: [Form toothpaste: 30]" "Draws wormlike lines by laying down images of spheres. See Ken Knowlton, Computer Graphics, vol. 15 no. 4 p352. Draw with mouse button down; terminate by option-click." | facade ball filter point queue port color q colors colr colr2 | colors := Display depth = 1 ifTrue: [Array with: Color black] ifFalse: [Color red wheel: 12]. + facade := Form extent: diam@diam offset: (diam // -2) asPoint. - facade := Form extent: diam@diam offset: (diam//-2) asPoint. (Form dotOfSize: diam) displayOn: facade + at: (diam // 2) asPoint clippingBox: facade boundingBox - at: (diam//2) asPoint clippingBox: facade boundingBox rule: Form under fillColor: Color white. #(1 2 3) do: [:x | "simulate facade by circles of gray" + (Form dotOfSize: x * diam // 5) displayOn: facade + at: (diam * 2 // 5) asPoint clippingBox: facade boundingBox - (Form dotOfSize: x*diam//5) displayOn: facade - at: (diam*2//5) asPoint clippingBox: facade boundingBox rule: Form under fillColor: (Color perform: (#(black gray lightGray) at: x)). "facade displayAt: 50*x@50"]. ball := Form dotOfSize: diam. color := 8. [ true ] whileTrue: [port := BitBlt current toForm: Display. "Expand 1-bit forms to any pixel depth" port colorMap: (Bitmap with: 0 with: 16rFFFFFFFF). queue := OrderedCollection new: 32. + 16 timesRepeat: [queue addLast: -20 @ -20]. - 16 timesRepeat: [queue addLast: -20@-20]. Sensor waitButton. Sensor yellowButtonPressed ifTrue: [^ self]. filter := Sensor cursorPoint. colr := colors atWrap: (color := color + 5). "choose increment relatively prime to colors size" colr2 := colr alphaMixed: 0.3 with: Color white. [Sensor redButtonPressed or: [queue size > 0]] whileTrue: + [filter := filter * 4 + Sensor cursorPoint // 5. - [filter := filter * 4 + Sensor cursorPoint // 5. point := Sensor redButtonPressed + ifTrue: [filter] ifFalse: [-20 @ -20]. - ifTrue: [filter] ifFalse: [-20@-20]. port copyForm: ball to: point rule: Form paint fillColor: colr. (q := queue removeFirst) == nil ifTrue: [^ self]. "exit" Display depth = 1 ifTrue: [port copyForm: facade to: q rule: Form erase] ifFalse: [port copyForm: facade to: q rule: Form paint fillColor: colr2]. Sensor redButtonPressed ifTrue: [queue addLast: point]]]. ! Item was changed: ----- Method: Form class>>xorHack: (in category 'examples') ----- xorHack: size "Display restoreAfter: [Form xorHack: 256]" "Draw a smiley face or stick figure, and end with option-click. Thereafter image gets 'processed' as long as you have button down. If you stop at just the right time, you'll see you figure upside down, and at the end of a full cycle, you'll see it perfectly restored. Dude -- this works in color too!!" | rect form i bb | + rect := 5 @ 5 extent: size @ size. - rect := 5@5 extent: size@size. Display fillWhite: rect; border: (rect expandBy: 2) width: 2. + Display border: (rect topRight - (0 @ 2) extent: rect extent * 2 + 4) width: 2. - Display border: (rect topRight - (0@2) extent: rect extent*2 + 4) width: 2. Form exampleSketch. form := Form fromDisplay: rect. bb := form boundingBox. i := 0. [Sensor yellowButtonPressed] whileFalse: [[Sensor redButtonPressed] whileTrue: [i := i + 1. + (Array with: 0 @ 1 with: 0 @ -1 with: 1 @ 0 with: -1 @ 0) do: - (Array with: 0@1 with: 0@-1 with: 1@0 with: -1@0) do: [:d | form copyBits: bb from: form at: d clippingBox: bb rule: Form reverse fillColor: nil]. form displayAt: rect topLeft. i+2\\size < 4 ifTrue: [(Delay forMilliseconds: 300) wait]]. + (form magnify: form boundingBox by: 2 @ 2) displayAt: rect topRight + (2 @ 0). - (form magnify: form boundingBox by: 2@2) displayAt: rect topRight + (2@0). Sensor waitButton].!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
38
Older →

Jump to page: