From f26b27413883640ec0a505787779abd37dea04ee Mon Sep 17 00:00:00 2001
From: SouthFox <master@southfox.me>
Date: Sun, 3 Nov 2024 13:08:19 +0800
Subject: [PATCH] feat: update render lib

---
 game.scm | 60 ++++++++++++++++++++++++++++++++++++--------------------
 1 file changed, 39 insertions(+), 21 deletions(-)

diff --git a/game.scm b/game.scm
index e518b86..7c8ce34 100644
--- a/game.scm
+++ b/game.scm
@@ -151,20 +151,6 @@
             "Add task")))
 
 
-;; render ascii art
-(define (template-ascii-art)
-  (define ink-script '(
-                       "(\\                         "
-                       "\\'\\                        "
-                       " \\'\\     __________        "
-                       " / '|   ()_________)       "
-                       " \\ '/    \\ ~~~~~~~~ \\      "
-                       "   \\       \\ ~~~~~~   \\    "
-                       "   ==).      \\__________\\  "
-                       "  (__)       ()__________) "
-                       ))
-  `(pre ,(string-join ink-script "\n")))
-
 ;; Lib
 (define (sub-string-list string-list start len func)
   (define (sub-string-list-iter string-list start len func part)
@@ -174,19 +160,19 @@
                     (if (= start 0 )
                         '()
                         (list (substring (car string-list) 0 start)))
-                    (list (func (substring (car string-list) start (+ start len))))
-                    (if (= (+ start len) (string-length (car string-list)))
+                    (list (func (substring (car string-list) start len)))
+                    (if (= len (string-length (car string-list)))
                         '()
-                        (list (substring (car string-list) (+ start len) (string-length (car string-list)))))
+                        (list (substring (car string-list) start (string-length (car string-list)))))
                     (cdr string-list))
             (sub-string-list-iter (cdr string-list)
-                                  (- start (string-length (car string-list)))
-                                  len
+                                  (abs (- start (string-length (car string-list))))
+                                  (abs (- len (string-length (car string-list))))
                                   func
                                   (append part (list (car string-list)))))
         (sub-string-list-iter (cdr string-list)
                               (- start (string-length (car (last-pair (car string-list)))))
-                              len
+                              (- len (string-length (car (last-pair (car string-list)))))
                               func
                               (append part (list (car string-list))))))
   (sub-string-list-iter string-list start len func '()))
@@ -205,7 +191,7 @@
     (if (= 0 llen)
         part
         (up-iter string-length
-                   x
+                   (+ x xlen)
                    (+ 1 y)
                    xlen
                    (- llen 1)
@@ -216,6 +202,38 @@
                                   ))))))
   (up-iter (+ 1 string-length) x y xlen ylen '()))
 
+(define (gen-string-list string-list update-list func)
+  (let loop ((string-list string-list)
+             (update-list update-list))
+    (if (equal? update-list '())
+        string-list
+        (loop (sub-string-list string-list
+                               (car (car update-list))
+                               (cadr (car update-list))
+                               func)
+              (cdr update-list)))))
+
+;; render ascii art
+(define (template-ascii-art)
+  (define (blod string)
+    `(b ,string))
+  (define ink-script '(
+                       "(\\                         "
+                       "\\'\\                        "
+                       " \\'\\     __________        "
+                       " / '|   ()_________)       "
+                       " \\ '/    \\ ~~~~~~~~ \\      "
+                       "   \\       \\ ~~~~~~   \\    "
+                       "   ==).      \\__________\\  "
+                       "  (__)       ()__________) "
+                       ))
+  (string-length (string-join ink-script "\n"))
+  `(pre ,@(gen-string-list (list (string-join ink-script "\n"))
+          (gen-update-list
+           (find-string-list-len (list (string-join ink-script "\n"))) 3 1 1 5)
+          blod)))
+
+
 ;; Main
 (set! *template* template-task)