Comment #2 on issue 1089 by nicolaih...@gmail.com: Roassal should export PNG https://code.google.com/p/moose-technology/issues/detail?id=1089

Yes, somehow your canvas in TRCanvas is only used for shape creations (computePath). Drawing is done with TRMorphs cairo-surface.

AthensCairoSurface has a writeToPng: method for writing the current surface data as a png file.

Comment #4 on issue 1089 by tu...@tudorgirba.com: Roassal should export PNG https://code.google.com/p/moose-technology/issues/detail?id=1089

I tried this, but somehow it does not work:

exportToFile | completeMorph | completeMorph := view view canvas morphClass new canvas: view view canvas; extent: view view canvas encompassingRectangle extent. PNGReadWriter putForm: completeMorph imageForm onFileNamed: self fileName

Any idea why?

Comment #6 on issue 1089 by tu...@tudorgirba.com: Roassal should export PNG https://code.google.com/p/moose-technology/issues/detail?id=1089

Here is a script that Alex put together. It almost work, but we still need to extract the logic from TRMorph. Also, there still is a problem with the logic as the picture is shifted to the right.

b := RTMondrianViewBuilder new. b shape rectangle withBorder; width: [ :cls | cls numberOfVariables * 5]; height: #numberOfMethods; linearFillColor: #numberOfLinesOfCode within: RTObject withAllSubclasses. b nodes: RTObject withAllSubclasses. b edgesFrom: #superclass. b treeLayout. b build.

form := FormCanvas extent: (b view canvas encompassingRectangle) extent. m := TRMorph new. m canvas: b view canvas. m extent: (b view canvas encompassingRectangle) extent. m createSurface. m drawOn: form. m surface writeToPng: 'foo.png'

Comment #8 on issue 1089 by tu...@tudorgirba.com: Roassal should export PNG https://code.google.com/p/moose-technology/issues/detail?id=1089

Here is a standalone script that seems to almost works. There is still seems to be a problem with one pixel at the bottom and to the right that gets cut.

b := RTMondrianViewBuilder new. b shape rectangle withBorder; width: [ :cls | cls numberOfVariables * 5]; height: #numberOfMethods; linearFillColor: #numberOfLinesOfCode within: RTObject withAllSubclasses. b nodes: RTObject withAllSubclasses. b edgesFrom: #superclass. b treeLayout. b build.

trachelCanvas := b view canvas. form := FormCanvas extent: (trachelCanvas encompassingRectangle) extent. session := Smalltalk session. surface := AthensCairoSurface extent: (trachelCanvas encompassingRectangle extent) asIntegerPoint. form fillRectangle: trachelCanvas encompassingRectangle color: trachelCanvas color. "The drawing has to be done when a change in the shapes occured or when there is an animation." surface drawDuring: [:cs | surface clear. "We display the elements that are subject to the camera" trachelCanvas shapes do: [ :trachelShape | trachelShape drawOn: cs. ]. "We display the elements that are _NOT_ subject to the camera" trachelCanvas fixedShapes do: [ :trachelShape | trachelShape drawOn: cs. ]. ]. "aCanvas translucentImage: surface asForm at: self bounds origin." "asForm creates a new Form, which is likely to be expensive. This can be cached" form image: surface asForm at: trachelCanvas encompassingRectangle origin sourceRect: (0 @ 0 extent: surface extent) rule: 34. surface writeToPng: 'foo.png'

Comment #10 on issue 1089 by alexandr...@gmail.com: Roassal should export PNG https://code.google.com/p/moose-technology/issues/detail?id=1089

I've tried this and it looks okay (simply adding 10 @ 10 to the extent):

b := RTMondrianViewBuilder new. b shape rectangle withBorder; width: [ :cls | cls numberOfVariables * 5]; height: #numberOfMethods; linearFillColor: #numberOfLinesOfCode within: RTObject withAllSubclasses. b nodes: RTObject withAllSubclasses. b edgesFrom: #superclass. b treeLayout. b build.

trachelCanvas := b view canvas. form := FormCanvas extent: (trachelCanvas encompassingRectangle) extent. session := Smalltalk session. surface := AthensCairoSurface extent: (trachelCanvas encompassingRectangle extent + (10 @ 10)) asIntegerPoint. form fillRectangle: (trachelCanvas encompassingRectangle expandBy: 10 @ 10) color: trachelCanvas color. "The drawing has to be done when a change in the shapes occured or when there is an animation." surface drawDuring: [:cs | surface clear. "We display the elements that are subject to the camera" trachelCanvas shapes do: [ :trachelShape | trachelShape drawOn: cs. ]. "We display the elements that are _NOT_ subject to the camera" trachelCanvas fixedShapes do: [ :trachelShape | trachelShape drawOn: cs. ]. ]. "aCanvas translucentImage: surface asForm at: self bounds origin." "asForm creates a new Form, which is likely to be expensive. This can be cached" form image: surface asForm at: trachelCanvas encompassingRectangle origin sourceRect: (0 @ 0 extent: surface extent) rule: 34. surface writeToPng: '/tmp/foo.png'

Comment #12 on issue 1089 by nicolaih...@gmail.com: Roassal should export PNG https://code.google.com/p/moose-technology/issues/detail?id=1089

Other observiations:

- file chooser dialog has "Your title here" as title. - cancel file chooser dialog -> MessageNotUnderstood: receiver of ""fullName"" is nil