2014-06-25 0:21 GMT+02:00 Igor Stasenko <siguc...@gmail.com>: > > > > On 21 June 2014 09:23, Hilaire Fernandes <hilaire.fernan...@gmail.com> > wrote: > >> Hello, >> >> >> I tried this but it produces empty form. >> >> |canvas | >> canvas := (Form extent: aDrgeo area athensSurface extent depth: 32) >> getCanvas. >> aDrgeo area athensSurface displayOnMorphicCanvas: canvas at: 0@0. >> canvas form >> >> should not.. > try to #flush operations on surface before blitting it to form. > > > >> >> Hilaire >> >> Le 20/06/2014 12:55, Igor Stasenko a écrit : >> > the best way is to blit surface on the morphic canvas >> > using >> > displayOnMorphicCanvas: canvas at: aPoint >> > method. >> > >> >> -- >> Dr. Geo http://drgeo.eu >> iStoa - https://launchpad.net/istoa >> >> >> > > > -- > Best regards, > Igor Stasenko. >
This works for me: | sur form | sur := AthensCairoSurface extent: 300 @ 300. sur drawDuring: [ :can | can pathTransform restoreAfter: [ can surface clear: Color black. can pathTransform translateX: 150 Y: 150. can setPaint: (Color green alpha: 0.1). can setShape: (-150 @ -150 corner: 150 @ 150). 20 timesRepeat: [ can draw. can pathTransform scaleBy: 0.85. can pathTransform rotateByDegrees: 10. ] ] ]. form := Form extent: sur extent depth: 32. sur displayOnMorphicCanvas: form getCanvas at: 0 @ 0. (ImageMorph withForm: form) openInHand