September 2012 - Pharo-users

Re: [Pharo-users] question about Laser-Game

by StÃ©phane Ducasse

Not that I know. It would be great to have it. In the past I tried to give feedback to stevens and to publish it as a book but our agenda did not match. Stef > Hallo, > has someone built the Laser-Game in Pharo? > http://www.preeminent.org/squeak/tut2007/html/ > Greets > Peter

Sept. 24, 2012

Re: [Pharo-users] Problems with a Morph that accepts File Dropping in Pharo 1.3+

by StÃ©phane Ducasse

Hi helene As I was thinking after investigating the problems, there was a bug in the VM. Esteban fixed it. The point is that the mac event location was not converted to the right coordinate system. Now this is fixed. Grab the most recent VM from the jenkins server and let us know. Thanks for spotting the bug. Stef

Sept. 24, 2012

[update 2.0] #20301

by Esteban Lorenzano

2.0.20301 --------- The following changes have been integrated: Issue 6728: infinite recursion on startup preferences. http://code.google.com/p/pharo/issues/detail?id=6728 Issue 6723: Improve Collection Streaming http://code.google.com/p/pharo/issues/detail?id=6723 Issue 6715: RPackageSet is not backwards compatible http://code.google.com/p/pharo/issues/detail?id=6715

Sept. 24, 2012

Re: [Pharo-users] question about Laser-Game

by Peter K.H. Gragert

Sorry, http://www.preeminent.org/squeak/tut2007/html/ was meant ... 2012/9/24 Robert Shiplett <grshiplett(a)gmail.com> > btw, http://www.preeminent.org/squeak/tut2007/ is exposed on the > web (no index.html ) > > Is that your intent ? > > Robert > > On 24 September 2012 05:26, Peter K.H. Gragert <pkhgragert(a)gmail.com> > wrote: > > Hallo, > > has someone built the Laser-Game in Pharo? > > http://www.preeminent.org/squeak/tut2007/html/ > > Greets > > Peter > >

Sept. 24, 2012

Re: [Pharo-users] question about Laser-Game

by Robert Shiplett

btw, http://www.preeminent.org/squeak/tut2007/ is exposed on the web (no index.html ) Is that your intent ? Robert On 24 September 2012 05:26, Peter K.H. Gragert <pkhgragert(a)gmail.com> wrote: > Hallo, > has someone built the Laser-Game in Pharo? > http://www.preeminent.org/squeak/tut2007/html/ > Greets > Peter

Sept. 24, 2012

question about Laser-Game

by Peter K.H. Gragert

Hallo, has someone built the Laser-Game in Pharo? http://www.preeminent.org/squeak/tut2007/html/ Greets Peter

Sept. 24, 2012

Re: [Pharo-users] Problems with a Morph that accepts File Dropping in Pharo 1.3+

by StÃ©phane Ducasse

Helene two key things: - look for senders - put a halt there and check at worse you crash the system :) Stef On Sep 24, 2012, at 9:28 AM, Helene Bilbo wrote: > Thanks for investigating my issue - and for documenting how you did so! > That's interesting to read. I would not have found the right way to modify > and halt the dispatchDefault: anEvent with: aMorph method myself.. > Something like this would be a nice screencast for beginners on PharoCasts. > helene. > > > StÃ©phane Ducasse wrote >> What is really strange is that the event location is always too large. >> I put the dropZone on 0@0 - 200@200 and I drop a file on it and the event >> location is 15@800â¦. >> I traced that up to HandMorphâ¦processEvents >> and this is event in the evtBuf of the vm. >> >> Stef >> >> >> dispatchDefault: anEvent with: aMorph >> "Dispatch the given event. The event will be passed to the front-most >> visible submorph that contains the position wrt. to the event." >> | localEvt index child morphs inside | >> "See if we're fully outside aMorphs bounds" >> (anEvent class = DropFilesEvent ) and: [(aMorph class = DropZone) ifTrue: >> [self halt]]. >> (aMorph fullBounds containsPoint: anEvent position) ifFalse:[^#rejected]. >> "outside" >> "Traverse children" >> index := 1. >> morphs := aMorph submorphs. >> inside := false. >> [index <= morphs size] whileTrue:[ >> child := morphs at: index. >> localEvt := anEvent transformedBy: (child transformedFrom: aMorph). >> (child processEvent: localEvt using: self) == #rejected ifFalse:[ >> "Not rejected. The event was in some submorph of the receiver" >> inside := true. >> localEvt wasHandled ifTrue:[anEvent copyHandlerState: localEvt]. >> index := morphs size. "break" >> ]. >> index := index + 1. >> ]. >> >> "Check for being inside the receiver" >> inside ifFalse:[inside := aMorph containsPoint: anEvent position event: >> anEvent]. >> inside ifTrue:[^aMorph handleEvent: anEvent]. >> ^#rejected > > > > > > -- > View this message in context: http://forum.world.st/Problems-with-a-Morph-that-accepts-File-Dropping-in-P… > Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com. >

Sept. 24, 2012

Re: [Pharo-users] Problems with a Morph that accepts File Dropping in Pharo 1.3+

by Helene Bilbo

Thanks for investigating my issue - and for documenting how you did so! That's interesting to read. I would not have found the right way to modify and halt the dispatchDefault: anEvent with: aMorph method myself.. Something like this would be a nice screencast for beginners on PharoCasts. helene. StÃ©phane Ducasse wrote > What is really strange is that the event location is always too large. > I put the dropZone on 0@0 - 200@200 and I drop a file on it and the event > location is 15@800â¦. > I traced that up to HandMorphâ¦processEvents > and this is event in the evtBuf of the vm. > > Stef > > > dispatchDefault: anEvent with: aMorph > "Dispatch the given event. The event will be passed to the front-most > visible submorph that contains the position wrt. to the event." > | localEvt index child morphs inside | > "See if we're fully outside aMorphs bounds" > (anEvent class = DropFilesEvent ) and: [(aMorph class = DropZone) ifTrue: > [self halt]]. > (aMorph fullBounds containsPoint: anEvent position) ifFalse:[^#rejected]. > "outside" > "Traverse children" > index := 1. > morphs := aMorph submorphs. > inside := false. > [index <= morphs size] whileTrue:[ > child := morphs at: index. > localEvt := anEvent transformedBy: (child transformedFrom: aMorph). > (child processEvent: localEvt using: self) == #rejected ifFalse:[ > "Not rejected. The event was in some submorph of the receiver" > inside := true. > localEvt wasHandled ifTrue:[anEvent copyHandlerState: localEvt]. > index := morphs size. "break" > ]. > index := index + 1. > ]. > > "Check for being inside the receiver" > inside ifFalse:[inside := aMorph containsPoint: anEvent position event: > anEvent]. > inside ifTrue:[^aMorph handleEvent: anEvent]. > ^#rejected -- View this message in context: http://forum.world.st/Problems-with-a-Morph-that-accepts-File-Dropping-in-P… Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

Sept. 24, 2012

Re: [Pharo-users] Get the point of Intersection for Morphs

by Peter K.H. Gragert

Hi, My Pharo has no CircleAnimeMorph (yet). And you code seems to have a } missing? Peter 2012/9/24 Igor Stasenko <siguctua(a)gmail.com> > What i would recommend is to not mix morphs and math. > > Put the implementation into clean and separate class(es), > which takes 2 circles (like point + raduis pair for each), and > provides an interface > for testing whether circles intersect as well as finding intersection > point(s). > > Then when you done, you can use it anywhere, including morphs. > > On 24 September 2012 01:54, irfankhan1 <irfankhan(a)hotmail.ca> wrote: > > I solved this intersection of points using this link > > http://paulbourke.net/geometry/2circle/ > > <http://paulbourke.net/geometry/2circle/> > > > > Here is my workspace code > > |b b1 r r1 r2 d d1| > > > > b1:= CircleAnimeMorph new. > > b1 center: 100@100. > > b1 openInWorld. > > b:= CircleAnimeMorph new. > > b openInWorld. > > d:= b1 center dist: b center. "distance between 2 circles" > > r:=b1 bounds width /2. "radius of first circle" > > r1:=b bounds width/2. "radius of second Circle" > > r2:=r + r1 . > > > > (d )< (r2) > > > > ifTrue: [| a h mid c c1 myPen h1 h2 mx my mc mc1| > > > > a := (r squared - r1 squared + d squared) / (2 * d). > > h := (r squared - a squared) sqrt. > > h1:= b center y - b1 center y. > > h2:= b center x - b1 center x. > > mx:=a * (b center x - b1 center x)/d. > > my:=a* (b center y - b1 center y)/d. > > > > mid := ((mx)+(b1 center x) @ (b1 center y )+(my) ) " > calculates > > mid point between 2 intersecting circles (p2)" > > { > > mc:=(h * h1)/d. > > mc1:=(h * h2)/d. > > c:=(mid x + mc )@ (mid y - mc1 )."Actual > Intersecting > > points" > > c1:=(mid x -mc) @ (mid y + mc1 )."Actual > Intersecting > > points" > > Transcript show: (c); show: (c1); cr}. > > myPen := Pen new. > > myPen color: Color red. > > myPen putDotOfDiameter: 5 at: mid. > > myPen putDotOfDiameter: 5 at: c1. > > myPen putDotOfDiameter: 5 at: c.]. > > > > > > Can any one help me make this a methods ,I wanna make this a > intersection > > method which will do all this > > when i say > > b1 intersection:b. should do all of this and draw colored dots at > > intersecting points > > > > > > > > > > -- > > View this message in context: > http://forum.world.st/Get-the-point-of-Intersection-for-Morphs-tp4646066p46… > > Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com. > > > > > > -- > Best regards, > Igor Stasenko. > >

Sept. 24, 2012

Re: [Pharo-users] Get the point of Intersection for Morphs

by Igor Stasenko

What i would recommend is to not mix morphs and math. Put the implementation into clean and separate class(es), which takes 2 circles (like point + raduis pair for each), and provides an interface for testing whether circles intersect as well as finding intersection point(s). Then when you done, you can use it anywhere, including morphs. On 24 September 2012 01:54, irfankhan1 <irfankhan(a)hotmail.ca> wrote: > I solved this intersection of points using this link > http://paulbourke.net/geometry/2circle/ > <http://paulbourke.net/geometry/2circle/> > > Here is my workspace code > |b b1 r r1 r2 d d1| > > b1:= CircleAnimeMorph new. > b1 center: 100@100. > b1 openInWorld. > b:= CircleAnimeMorph new. > b openInWorld. > d:= b1 center dist: b center. "distance between 2 circles" > r:=b1 bounds width /2. "radius of first circle" > r1:=b bounds width/2. "radius of second Circle" > r2:=r + r1 . > > (d )< (r2) > > ifTrue: [| a h mid c c1 myPen h1 h2 mx my mc mc1| > > a := (r squared - r1 squared + d squared) / (2 * d). > h := (r squared - a squared) sqrt. > h1:= b center y - b1 center y. > h2:= b center x - b1 center x. > mx:=a * (b center x - b1 center x)/d. > my:=a* (b center y - b1 center y)/d. > > mid := ((mx)+(b1 center x) @ (b1 center y )+(my) ) " calculates > mid point between 2 intersecting circles (p2)" > { > mc:=(h * h1)/d. > mc1:=(h * h2)/d. > c:=(mid x + mc )@ (mid y - mc1 )."Actual Intersecting > points" > c1:=(mid x -mc) @ (mid y + mc1 )."Actual Intersecting > points" > Transcript show: (c); show: (c1); cr}. > myPen := Pen new. > myPen color: Color red. > myPen putDotOfDiameter: 5 at: mid. > myPen putDotOfDiameter: 5 at: c1. > myPen putDotOfDiameter: 5 at: c.]. > > > Can any one help me make this a methods ,I wanna make this a intersection > method which will do all this > when i say > b1 intersection:b. should do all of this and draw colored dots at > intersecting points > > > > > -- > View this message in context: http://forum.world.st/Get-the-point-of-Intersection-for-Morphs-tp4646066p46… > Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com. > -- Best regards, Igor Stasenko.

Sept. 24, 2012