From 676691d484fa2f129329fb82f341ea8346508008 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lyx=20Rothbo=CC=88ck?= <lypsilonx@gmail.com>
Date: Mon, 20 May 2024 16:11:02 +0200
Subject: [PATCH] Box update

---
 box.typ | 205 +++++++++++++++++++++++++++++++++++---------------------
 1 file changed, 127 insertions(+), 78 deletions(-)

diff --git a/box.typ b/box.typ
index edac3d9..f8b2494 100644
--- a/box.typ
+++ b/box.typ
@@ -1,5 +1,29 @@
 #import "data.typ": *
 
+#let a_size(exponent) = {
+  let a0_size = (841mm, 1189mm)
+
+  for i in range(exponent) {
+    let last_a_size = a0_size
+
+    a0_size = (last_a_size.at(1) / 2, last_a_size.at(0))
+  }
+
+  return a0_size
+}
+
+#let calculate_smallest_a_size(width, height) = {
+
+  let current_a_size = 0
+  let current_size = a_size(current_a_size)
+  
+  while (width < current_size.at(1) and height < current_size.at(0)) {
+    current_a_size = current_a_size + 1
+    current_size = a_size(current_a_size)
+  } 
+  return current_a_size - 1
+}
+
 #let render_box(
   box_length,
   box_height,
@@ -19,16 +43,6 @@
   fold_stroke: (paint: gray.transparentize(50%), thickness: 0.2mm),
   glue_color: gray.transparentize(50%),
 ) = {
-
-  let total_width = (box_width + box_length) * 2 + glue_strip_width
-  let total_height = box_width * 2 + box_height + lid_height + glue_strip_width
-
-  set page(
-    width: total_width,
-    height: total_height,
-    margin: 0%,
-  )
-
   let glue_pattern = pattern(size: (30pt, 30pt))[
     #place[#box(fill: color, width: 100%, height: 100%)]
     #place(line(start: (5pt, 0%), end: (-5pt, 100%), stroke: 0.3mm + glue_color))
@@ -37,14 +51,14 @@
     #place(line(start: (35pt, 0%), end: (25pt, 100%), stroke: 0.3mm + glue_color))
   ]
 
-  let glue_edge_left = [
+  let glue_edge_left(size: glue_strip_width, cutin: glue_strip_width) = [
     #place(left + horizon)[
       #polygon(
         fill: glue_pattern,
         stroke: 0.3mm + black,
         (0%, 0%),
-        (glue_strip_width, glue_strip_width),
-        (glue_strip_width, 100% - glue_strip_width),
+        (size, cutin),
+        (size, 100% - cutin),
         (0%, 100%)
       )
     ]
@@ -58,35 +72,35 @@
     #place(left + top)[
       #line(
         start: (0%, 0%),
-        end: (glue_strip_width, glue_strip_width),
+        end: (size, cutin),
         stroke: cut_stroke
       )
     ]
     #place(left + bottom)[
       #line(
         start: (0%, 100%),
-        end: (glue_strip_width, 100% - glue_strip_width),
+        end: (size, 100% - cutin),
         stroke: cut_stroke
       )
     ]
     #place(left + top)[
       #line(
-        start: (glue_strip_width, glue_strip_width),
-        end: (glue_strip_width, 100% - glue_strip_width),
+        start: (size, cutin),
+        end: (size, 100% - cutin),
         stroke: cut_stroke
       )
     ]
   ]
 
-  let glue_edge_right = [
+  let glue_edge_right(size: glue_strip_width, cutin: glue_strip_width) = [
     #place(right + horizon)[
       #polygon(
         fill: glue_pattern,
         stroke: 0.3mm + black,
-        (0%, glue_strip_width),
-        (glue_strip_width, 0%),
-        (glue_strip_width, 100%),
-        (0%, 100% - glue_strip_width)
+        (0%, cutin),
+        (size, 0%),
+        (size, 100%),
+        (0%, 100% - cutin)
       )
     ]
     #place(right + horizon)[
@@ -98,36 +112,36 @@
     ]
     #place(right + top)[
       #line(
-        start: (0%, glue_strip_width),
-        end: (glue_strip_width, 0%),
+        start: (0%, cutin),
+        end: (size, 0%),
         stroke: cut_stroke
       )
     ]
     #place(right + bottom)[
       #line(
-        start: (0%, 100% - glue_strip_width),
-        end: (glue_strip_width, 100%),
+        start: (0%, 100% - cutin),
+        end: (size, 100%),
         stroke: cut_stroke
       )
     ]
     #place(right + top)[
       #line(
-        start: (-glue_strip_width, glue_strip_width),
-        end: (-glue_strip_width, 100% - glue_strip_width),
+        start: (-size, cutin),
+        end: (-size, 100% - cutin),
         stroke: cut_stroke
       )
     ]
   ]
 
-  let glue_edge_bottom = [
+  let glue_edge_bottom(size: glue_strip_width, cutin: glue_strip_width) = [
     #place(bottom + center)[
       #polygon(
         fill: glue_pattern,
         stroke: 0.3mm + black,
-        (glue_strip_width, 0%),
-        (100% - glue_strip_width, 0%),
-        (100%, glue_strip_width),
-        (0%, glue_strip_width)
+        (cutin, 0%),
+        (100% - cutin, 0%),
+        (100%, size),
+        (0%, size)
       )
     ]
     #place(bottom + center)[
@@ -139,36 +153,36 @@
     ]
     #place(bottom + center)[
       #line(
-        start: (0%, -glue_strip_width),
-        end: (100% - glue_strip_width * 2, -glue_strip_width),
+        start: (0%, -size),
+        end: (100% - cutin * 2, -size),
         stroke: cut_stroke
       )
     ]
     #place(left + bottom)[
       #line(
-        start: (0%, glue_strip_width),
-        end: (glue_strip_width, 0%),
+        start: (0%, size),
+        end: (cutin, 0%),
         stroke: cut_stroke
       )
     ]
     #place(right + bottom)[
       #line(
-        start: (100%, glue_strip_width),
-        end: (100% - glue_strip_width, 0%),
+        start: (100%, size),
+        end: (100% - cutin, 0%),
         stroke: cut_stroke
       )
     ]
   ]
 
-  let glue_edge_top = [
+  let glue_edge_top(size: glue_strip_width, cutin: glue_strip_width) = [
     #place(top + center)[
       #polygon(
         fill: glue_pattern,
         stroke: 0.3mm + black,
         (0%, 0%),
         (100%, 0%),
-        (100% - glue_strip_width, glue_strip_width),
-        (glue_strip_width, glue_strip_width)
+        (100% - cutin, size),
+        (cutin, size)
       )
     ]
     #place(top + center)[
@@ -180,22 +194,22 @@
     ]
     #place(top + center)[
       #line(
-        start: (0%, glue_strip_width),
-        end: (100% - glue_strip_width * 2, glue_strip_width),
+        start: (0%, size),
+        end: (100% - cutin * 2, size),
         stroke: cut_stroke
       )
     ]
     #place(left + top)[
       #line(
         start: (0%, 0%),
-        end: (glue_strip_width, glue_strip_width),
+        end: (cutin, size),
         stroke: cut_stroke
       )
     ]
     #place(right + top)[
       #line(
         start: (100%, 0%),
-        end: (100% - glue_strip_width, glue_strip_width),
+        end: (100% - cutin, size),
         stroke: cut_stroke
       )
     ]
@@ -207,17 +221,20 @@
     width: 100%,
     height: 100%,
     stroke: (
-      top: cut_stroke,
+      left: cut_stroke,
       right: cut_stroke,
-      bottom: cut_stroke,
+      bottom: fold_stroke,
+      top: fold_stroke
     ),
   )[
-    #grid(
-      columns: (1fr),
-      rows: (lid_height, 1fr),
-      under_lid_front_face_content,
-      front_face_content
-    )
+    #rotate(180deg)[
+      #grid(
+        columns: (1fr),
+        rows: (lid_height, 1fr),
+        under_lid_front_face_content,
+        front_face_content
+      )
+    ]
   ]
 
   let lid_front = box(
@@ -252,7 +269,6 @@
     stroke: (
       top: cut_stroke,
       bottom: cut_stroke,
-      right: fold_stroke,
     ),
   )[
     #left_face_content
@@ -322,40 +338,72 @@
     #bottom_face_content
   ]
 
+  let fold_in = box(
+    fill: color,
+    width: 100%,
+    height: 100%,
+    stroke: (
+      left: cut_stroke,
+      right: cut_stroke,
+      bottom: cut_stroke
+    ),
+  )
+
+  let total_width = (box_width + box_length) * 2
+  let total_height = (box_width + box_height + glue_strip_width) * 2 + lid_height
+
+  let next_biggest_a_size = str(calculate_smallest_a_size(total_width, total_height))
+
+  set page(
+    fill: gray,
+    "a" + next_biggest_a_size,
+    flipped: true,
+    margin: 0%,
+  )
+
+  place(top + center, dx: 5mm, dy: 5mm)[
+    #set text(size: 2em, fill: black)
+    Print on A#next_biggest_a_size paper for correct scaling
+  ]
+
   set align(center + horizon)
   set text(size: 4em)
   grid(
-    columns: (glue_strip_width ,box_width, box_length, box_width, box_length),
-    rows: (lid_height, box_width, box_height, box_width, glue_strip_width),
+    columns: (box_length / 2 ,box_width, box_length, box_width, box_length / 2),
+    rows: (lid_height, box_width, box_height, box_width, box_height, glue_strip_width * 2),
     [],
-    glue_edge_right,
+    glue_edge_right(),
     lid_front,
-    glue_edge_left,
+    glue_edge_left(),
     [],
     [],
     lid_right,
     top_face,
     lid_left,
     [],
-    glue_edge_right,
+    glue_edge_right(size: 100%, cutin: 0mm),
     right_face,
     back_face,
     left_face,
-    front_face,
+    glue_edge_left(size: 100%, cutin: 0mm),
     [],
-    glue_edge_right,
+    glue_edge_right(size: box_height, cutin: 0mm),
     bottom_face,
-    glue_edge_left,
+    glue_edge_left(size: box_height, cutin: 0mm),
+    [],
+    [],
+    [],
+    front_face,
+    [],
     [],
     [],
     [],
-    glue_edge_top,
+    fold_in,
     [],
     [],
   )
 }
 
-#set page(fill: gray)
 #set text(font: "Inter Tight", fill: white)
 #let card_amount = card_count
 #let card_thickness = 1mm
@@ -417,35 +465,36 @@
       size: 0.18em,
       fill: white
     )
-
+    #set align(left + top)
     #box(
+      height: 45%,
       inset: (
         top: 3em,
-        bottom: 16em,
         left: 3em,
         right: 3em
       )
     )[
-      #set align((left))
       #set par(justify: true)
       #columns(2, gutter: 3em)[
         #text(size: 1.2em)[
           #outline_text
         ]
-        #linebreak()
-        #linebreak()
-        3-#player_count players#h(1fr)Ages: 12+#h(1fr)Playtime: 30-60 min.#h(1fr)Contains: #card_amount cards
       ]
     ]
-    
-    #place(
-      center + bottom,
-      dy: -23mm,
+    #v(1fr)
+    #box(
+      inset: (
+        left: 3em,
+        right: 3em
+      )
     )[
-      #set text(size: 0.8em)
-      #set align(center)
-      #icon_banner
+      3-#player_count players#h(1fr)Ages: 12+#h(1fr)Playtime: 30-60 min.#h(1fr)Contains: #card_amount cards
     ]
+    #v(1fr)
+    #set text(size: 0.8em)
+    #set align(center)
+    #icon_banner
+    #v(23mm)
 
     #place(
       center + bottom,