Work in progress render roassal in memory

src/Miro/MiroRoassalPlotter.class.st

@@ -7,13 +7,11 @@ Class {
 { #category : #plotting }
 MiroRoassalPlotter >> plot: aMiroPlot [
 
-	| view filename exporter |
+	| view exporter form |
 	view := aMiroPlot plotOnRoassal.
 
-	filename := 'temp.png'.
 	exporter := RTPNGExporter new.
 	exporter builder: view.
-	exporter fileName: filename asFileReference fullName.
-	exporter exportToFile.
-	^ MiroSeasideImageComponent on: filename asFileReference
+	form := exporter exportToForm.
+	^ MiroSeasideImageFromFormComponent on: form
 ]

src/Miro/MiroSeasideImageFromFileComponent.class.st

@@ -0,0 +1,8 @@
+Class {
+	#name : #MiroSeasideImageFromFileComponent,
+	#superclass : #WAComponent,
+	#instVars : [
+		'filePath'
+	],
+	#category : #'Miro-SeasideComponents'
+}

src/Miro/MiroSeasideImageFromFormComponent.class.st

@@ -0,0 +1,36 @@
+Class {
+	#name : #MiroSeasideImageFromFormComponent,
+	#superclass : #WAComponent,
+	#instVars : [
+		'form'
+	],
+	#category : #'Miro-SeasideComponents'
+}
+
+{ #category : #'instance creation' }
+MiroSeasideImageFromFormComponent class >> on: aForm [
+
+	^ self new
+		form: aForm;
+		yourself
+]
+
+{ #category : #accessing }
+MiroSeasideImageFromFormComponent >> form [
+	^ form
+]
+
+{ #category : #accessing }
+MiroSeasideImageFromFormComponent >> form: anObject [
+	form := anObject
+]
+
+{ #category : #rendering }
+MiroSeasideImageFromFormComponent >> renderOn: html [
+
+	| asciiContents base64Contents |
+	asciiContents := (self imageUrl asFileReference readStreamEncoded: #null) contents.
+	base64Contents := ZnUtils encodeBase64: asciiContents.
+	html image
+		url: 'data:image/png;base64,', base64Contents
+]

src/Miro/RTPNGExporter.extension.st

@@ -0,0 +1,23 @@
+Extension { #name : #RTPNGExporter }
+
+{ #category : #'*Miro' }
+RTPNGExporter >> exportToForm [
+	| trachelCanvas  surface viewExtent |
+	trachelCanvas := self trachelCanvas.
+	viewExtent := self viewExtent.
+	surface := self createSurface.
+	surface
+		drawDuring: [ :cs | 
+			"Probably not necessary since we have just created a surface"
+			surface clear;
+				fillRectangle: (0@0 corner: viewExtent) withSolidColor: view canvas color.
+			cs pathTransform
+				translateBy: self viewHalfExtent asFloatPoint;
+				scaleBy: self cameraScale;
+				translateBy: self cameraPositionNegated asFloatPoint.
+			trachelCanvas shapes do: [ :trachelShape | trachelShape drawOn: cs ].
+			cs pathTransform loadIdentity scaleBy: 1.001.
+			"trachelCanvas fixedShapes do: [ :trachelShape | trachelShape drawOn: cs ]" ].
+
+	^ surface asForm
+]