From 940f8e235ccc4370692d328387e171a21ef954c7 Mon Sep 17 00:00:00 2001
From: Travis Shears <t@travisshears.com>
Date: Thu, 3 Jul 2025 10:48:30 +0200
Subject: [PATCH] load drawing

---
 footer.1line     | Bin 5456 -> 5456 bytes
 footer.pbm       | Bin 0 -> 351 bytes
 one_line_gen.tal |  44 ++++++++++++++++++--------------------------
 3 files changed, 18 insertions(+), 26 deletions(-)
 create mode 100644 footer.pbm

diff --git a/footer.1line b/footer.1line
index 922886a18ae092ceb1ab018b3ea2abe7f7b3974a..88e3d95358382d7d633fd650c7b755fe5d82ff62 100644
GIT binary patch
delta 119
zcmV~$$q~XZ3<c0zj<f(Ic7l}+vIAYv0at2)iEZht4rXX1CGp-y8+{+i%V*xa_n*Uh
z^l3EFvgJIOHH|qJ!SYF*5K0gnD%5Du;*5*5QcEQz6FX^Q5i;Cy!xf7zI_spP4%%yn
O0V5{N=+XV2iR}J;Z!F^g

delta 16
YcmcbhbwO)G5ZmU1Z2f$bFR<kU06ty@>;M1&

diff --git a/footer.pbm b/footer.pbm
new file mode 100644
index 0000000000000000000000000000000000000000..02d1dcf1382378efa85e606596d9577d89158eaf
GIT binary patch
literal 351
YcmWGA;j*w$FgE0R4h0OOfQlgi0H-?$#Q*>R

literal 0
HcmV?d00001

diff --git a/one_line_gen.tal b/one_line_gen.tal
index 1ab3af1..fc3d9fb 100644
--- a/one_line_gen.tal
+++ b/one_line_gen.tal
@@ -16,19 +16,25 @@
     hexdump -C footer.pbm
  )
 
-
+|1550 @drawing-size
+|15f @image-size ( header 9 + data 341 = 350 )
 
 |0100
 @on-reset
     ( set img-pt to start of img )
     ;img ;img-pt STA2
+    ( file header )
     LIT "P write-to-image
     LIT "4 write-to-image
     #0a write-to-image
     LIT "8 write-to-image
-    #20 write-to-image
     LIT "8 write-to-image
+    #20 write-to-image
+    LIT "3 write-to-image
+    LIT "1 write-to-image
     #0a write-to-image
+    ( image data )
+    load-drawing
     #e7 write-to-image
     #e7 write-to-image
     #e7 write-to-image
@@ -40,6 +46,13 @@
     save-file
 	BRK
 
+@load-drawing
+    ;/filename .File/name DEO2
+    ;drawing-size .File/length DEO2
+	;drawing .File/read DEO2
+	JMP2r
+    &filename "footer.1line $1
+
 @write-to-image ( val )
     ;img-pt LDA2 ( val pt* )
     STA ( )
@@ -50,32 +63,11 @@
 
 @save-file
 	;/filename .File/name DEO2
-	#000f .File/length DEO2
+	;image-size .File/length DEO2
 	;img .File/write DEO2
 	JMP2r
     &filename "footer.pbm $1
 
 @img-pt $2
-@img $20
-
-(
-@gen-image
-    ( set image-pt to start of image )
-    ;image ;image-pt STA2
-    LIT2 00 "P write-to-image
-    LIT2 00 "4 write-to-image
-    #000a write-to-image
-    #0008 write-to-image
-    #0020 write-to-image
-    #0008 write-to-image
-    #00ff write-to-image
-    JMP2r
-
-
-@image-pt $2
-( todo include space for header )
-@image $155
-
-( @drawing $1550 ( 5456 ) )
-
-)
+@img $image-size
+@drawing $drawing-size