Build svg file

logoPlayer/galgas-sources/logoPlayer-semantics.galgas

@@ -31,12 +31,14 @@ abstract method @instruction codeDisplay
     ?! @double ioX
     ?! @double ioY
     ?! @double ioAngle
+    ?! @string unused svgContent
 
 override method @penUp codeDisplay
     ?! @bool ioPenDown
     ?! @double unused ioX
     ?! @double unused ioY
     ?! @double unused ioAngle
+    ?! @string unused svgContent
 {
     ioPenDown = false
 }
@@ -46,6 +48,7 @@ override method @penDown codeDisplay
     ?! @double unused ioX
     ?! @double unused ioY
     ?! @double unused ioAngle
+    ?! @string unused svgContent
 {
     ioPenDown = true
 }
@@ -55,6 +58,7 @@ override method @rotate codeDisplay
     ?! @double unused ioX
     ?! @double unused ioY
     ?! @double ioAngle
+    ?! @string unused svgContent
 {
     ioAngle = ioAngle + [[mAngle uint] double]
 }
@@ -64,11 +68,17 @@ override method @forward codeDisplay
     ?! @double ioX
     ?! @double ioY
     ?! @double ioAngle
+    ?! @string svgContent
 {
     let @double x = ioX + [mLength double] * [ioAngle cosDegree]
     let @double y = ioY + [mLength double] * [ioAngle sinDegree]
     if ioPenDown then
         message "[" + ioX + ", " + ioY + "] -> ["+ x + ", " + y + "]\n"
+        svgContent += "<line "
+            + "x1=\"" + ioX + "\" y1=\"" + ioY + "\" "
+            + "x2=\"" + x + "\" y2=\"" + y + "\" " 
+            + "style=\"stroke :#1F56D2\" "
+            + "stroke-linecap=\"round\" />\n"
     end
     ioX = x
     ioY = y

logoPlayer/galgas-sources/logoPlayer-syntax.galgas

@@ -19,9 +19,19 @@ syntax logoPlayer_syntax (logoPlayer_lexique) {
     @double x = 0.0
     @double y = 0.0
     @double angle = 0.0 # Degrees
+    @string svgLines = ""
     for i in baseProgram do
-        [ i.mInstruction codeDisplay !?penDown !?x !?y !?angle ]
+        [ i.mInstruction codeDisplay !?penDown !?x !?y !?angle !?svgLines ]
     end
+
+    # File output
+    let @string sourceFilePath = @string.stringWithSourceFilePath
+    let @string code = [
+        filewrapper generationTemplate.svg
+        ![sourceFilePath lastPathComponent]
+        !svgLines
+    ]
+    [code writeToFile ![sourceFilePath stringByDeletingPathExtension] + ".svg"]
   }
 
   rule <routines> ?! @routineMap routineArray {