@maniclang/workbench 0.1.11

package/examples/prompt-test-10.manic

@@ -0,0 +1,257 @@
+title("Linear Programming Minimum");
+canvas("16:9");
+
+let gx = cx - 300;
+let gy = cy + 210;
+let sx = 48;
+let sy = 48;
+
+text(head, (cx, 58), "linear programming: minimise Z");
+display(head);
+color(head, cyan);
+size(head, 34);
+hidden(head);
+
+text(cap, (cx, h - 50), "");
+display(cap);
+color(cap, fg);
+size(cap, 21);
+hidden(cap);
+
+text(problem, (cx, 112), "Minimise Z = -3x + 4y");
+text(cons1, (cx, 150), "subject to x + 2y <= 8");
+text(cons2, (cx, 184), "3x + 2y <= 12,  x >= 0,  y >= 0");
+display(problem);
+display(cons1);
+display(cons2);
+color(problem, lime);
+color(cons1, fg);
+color(cons2, fg);
+size(problem, 28);
+size(cons1, 23);
+size(cons2, 23);
+hidden(problem);
+hidden(cons1);
+hidden(cons2);
+
+axes(ax, (gx, gy), 330, 270, 48);
+color(ax, dim);
+stroke(ax, 2);
+untraced(ax);
+
+plot(line1, (gx, gy), sx, sy, "4-0.5x", (0, 8));
+plot(line2, (gx, gy), sx, sy, "6-1.5x", (0, 4));
+color(line1, cyan);
+color(line2, magenta);
+stroke(line1, 4);
+stroke(line2, 4);
+untraced(line1);
+untraced(line2);
+
+text(l1, (gx + 245, gy - 72), "x + 2y = 8");
+text(l2, (gx + 120, gy - 210), "3x + 2y = 12");
+display(l1);
+display(l2);
+color(l1, cyan);
+color(l2, magenta);
+size(l1, 20);
+size(l2, 20);
+hidden(l1);
+hidden(l2);
+
+for i in 0..17 {
+for j in 0..17 {
+let xv = 0.25i;
+let yv = 0.25j;
+if xv + 2yv <= 8 && 3xv + 2yv <= 12 {
+dot(f{i}p{j}, (gx + xv*sx, gy - yv*sy), 3);
+color(f{i}p{j}, lime);
+opacity(f{i}p{j}, 0.32);
+hidden(f{i}p{j});
+tag(f{i}p{j}, feasible);
+}
+}
+}
+
+line(edgeA, (gx, gy), (gx + 4sx, gy));
+line(edgeB, (gx + 4sx, gy), (gx + 2sx, gy - 3sy));
+line(edgeC, (gx + 2sx, gy - 3sy), (gx, gy - 4sy));
+line(edgeD, (gx, gy - 4sy), (gx, gy));
+color(edgeA, lime);
+color(edgeB, lime);
+color(edgeC, lime);
+color(edgeD, lime);
+stroke(edgeA, 5);
+stroke(edgeB, 5);
+stroke(edgeC, 5);
+stroke(edgeD, 5);
+glow(edgeA, 7);
+glow(edgeB, 7);
+glow(edgeC, 7);
+glow(edgeD, 7);
+untraced(edgeA);
+untraced(edgeB);
+untraced(edgeC);
+untraced(edgeD);
+
+dot(vA, (gx, gy), 7);
+dot(vB, (gx + 4sx, gy), 7);
+dot(vC, (gx + 2sx, gy - 3sy), 7);
+dot(vD, (gx, gy - 4sy), 7);
+color(vA, fg);
+color(vB, fg);
+color(vC, fg);
+color(vD, fg);
+hidden(vA);
+hidden(vB);
+hidden(vC);
+hidden(vD);
+
+text(tA, (gx - 35, gy + 24), "A(0,0)");
+text(tB, (gx + 4sx + 45, gy + 24), "B(4,0)");
+text(tC, (gx + 2sx + 55, gy - 3sy - 10), "C(2,3)");
+text(tD, (gx - 48, gy - 4sy - 20), "D(0,4)");
+display(tA);
+display(tB);
+display(tC);
+display(tD);
+color(tA, fg);
+color(tB, lime);
+color(tC, fg);
+color(tD, fg);
+size(tA, 18);
+size(tB, 20);
+size(tC, 18);
+size(tD, 18);
+hidden(tA);
+hidden(tB);
+hidden(tC);
+hidden(tD);
+
+line(obj1, (gx, gy - 3sy), (gx + 7sx, gy - 8.25sy));
+line(obj2, (gx, gy - 1.5sy), (gx + 7sx, gy - 6.75sy));
+line(obj3, (gx, gy), (gx + 7sx, gy - 5.25sy));
+line(obj4, (gx, gy + 1.5sy), (gx + 7sx, gy - 3.75sy));
+line(obj5, (gx, gy + 3sy), (gx + 7sx, gy - 2.25sy));
+color(obj1, dim);
+color(obj2, dim);
+color(obj3, dim);
+color(obj4, cyan);
+color(obj5, lime);
+stroke(obj1, 2);
+stroke(obj2, 2);
+stroke(obj3, 2);
+stroke(obj4, 3);
+stroke(obj5, 4);
+untraced(obj1);
+untraced(obj2);
+untraced(obj3);
+untraced(obj4);
+untraced(obj5);
+
+text(objlab, (gx + 345, gy + 70), "objective lines: -3x + 4y = constant");
+display(objlab);
+color(objlab, cyan);
+size(objlab, 19);
+hidden(objlab);
+
+arrow(bestArrow, (gx + 4sx + 125, gy - 95), (gx + 4sx + 18, gy - 10));
+color(bestArrow, lime);
+stroke(bestArrow, 5);
+glow(bestArrow, 9);
+untraced(bestArrow);
+
+text(bestText, (gx + 4*sx + 160, gy - 105), "last contact");
+display(bestText);
+color(bestText, lime);
+size(bestText, 24);
+hidden(bestText);
+
+table(tab, "vertex Z; A 0; B -12; C 6; D 16", (cx + 315, cy + 55), 120, 52);
+hidden(tab.entries);
+hidden(tab.hlines);
+hidden(tab.vlines);
+color(tab.entries, fg);
+
+text(rule, (cx + 315, cy - 185), "Check the corner points");
+display(rule);
+color(rule, cyan);
+size(rule, 26);
+hidden(rule);
+
+text(answer, (cx + 315, cy + 285), "minimum Z = -12 at (4,0)");
+display(answer);
+color(answer, lime);
+size(answer, 31);
+hidden(answer);
+
+show(head, 0.5);
+show(cap, 0.3);
+say(cap, "We need to minimise a linear expression over a feasible region.", 0.8);
+
+stagger(0.12) {
+show(problem, 0.3);
+show(cons1, 0.3);
+show(cons2, 0.3);
+}
+
+par {
+draw(ax, 0.7);
+draw(line1, 0.8);
+draw(line2, 0.8);
+}
+par {
+show(l1, 0.3);
+show(l2, 0.3);
+}
+say(cap, "Draw the two boundary lines and keep the side below both lines.", 0.8);
+
+show(feasible, 0.6);
+say(cap, "The green dots show the feasible points satisfying all inequalities.", 0.8);
+
+par {
+draw(edgeA, 0.45);
+draw(edgeB, 0.45);
+draw(edgeC, 0.45);
+draw(edgeD, 0.45);
+}
+par {
+show(vA, 0.25);
+show(vB, 0.25);
+show(vC, 0.25);
+show(vD, 0.25);
+show(tA, 0.25);
+show(tB, 0.25);
+show(tC, 0.25);
+show(tD, 0.25);
+}
+say(cap, "For a linear objective, the minimum occurs at a corner.", 0.8);
+
+show(rule, 0.35);
+par {
+show(tab.hlines, 0.35);
+show(tab.vlines, 0.35);
+show(tab.entries, 0.45);
+}
+say(cap, "Evaluate Z = -3x + 4y at each vertex.", 0.8);
+
+stagger(0.1) {
+draw(obj1, 0.25);
+draw(obj2, 0.25);
+draw(obj3, 0.25);
+draw(obj4, 0.25);
+draw(obj5, 0.25);
+}
+show(objlab, 0.35);
+say(cap, "Sliding objective lines show the final contact at B.", 0.8);
+
+par {
+draw(bestArrow, 0.5);
+show(bestText, 0.4);
+flash(vB, lime);
+flash(tB, lime);
+}
+show(answer, 0.5);
+pulse(answer, 0.7);
+say(cap, "Therefore the minimum value is -12 at x = 4, y = 0.", 0.8);
+wait(1.0);

package/examples/prompt-test-11.manic

@@ -0,0 +1,168 @@
+// Q7 — Shanti Sweets orders cardboard boxes in two sizes:
+//   big 25 x 20 x 5 cm, small 15 x 12 x 5 cm, 250 of each.
+//   +5% of surface area for overlaps; cardboard costs Rs 4 per 1000 cm².
+// Taught in 3D: both boxes as shaded cuboids with thick dimension arrows,
+// then the surface area is built with real products and scaled to the cost.
+// The working sits in one right-hand panel that swaps content per step, so
+// the screen never crowds.
+//
+//   manic examples/prompt-test-11.manic
+//   manic examples/prompt-test-11.manic --record out --fps 60
+
+title("3D Cardboard Box Cost");
+canvas("16:9");
+
+let px = cx + 305;   // right-hand working panel centre
+
+camera3((6, -9, 5), (1.7, 0, 0.5), 45, perspective);
+
+text(head, (cx, 48), "cardboard for two sizes of sweet box");
+display(head);  color(head, cyan);  size(head, 30);  hidden(head);
+
+text(cap, (cx, h - 40), "");
+display(cap);  color(cap, fg);  size(cap, 21);  hidden(cap);
+
+text(problem, (cx, 96), "250 boxes of each size, +5% extra for overlaps");
+display(problem);  color(problem, fg);  size(problem, 21);  hidden(problem);
+
+text(rate, (cx, 128), "cardboard costs Rs 4 per 1000 cm²");
+display(rate);  color(rate, lime);  size(rate, 21);  hidden(rate);
+
+grid3(floor, (0, 0, 0), 4, 1);
+color(floor, dim);  opacity(floor, 0.3);  hidden(floor);
+
+cube3(bigBox, (-1.65, 0, 0.25), (2.5, 2, 0.5));
+color(bigBox, cyan);  opacity(bigBox, 0.9);  hidden(bigBox);
+
+cube3(smallBox, (2.05, 0, 0.25), (1.5, 1.2, 0.5));
+color(smallBox, lime);  opacity(smallBox, 0.9);  hidden(smallBox);
+
+text(bigLabel, (0, 0), "big: 25 × 20 × 5");
+display(bigLabel);  color(bigLabel, cyan);  size(bigLabel, 19);  hidden(bigLabel);
+pin3(bigLabel, (-1.65, -1.5, 0.95));
+
+text(smallLabel, (0, 0), "small: 15 × 12 × 5");
+display(smallLabel);  color(smallLabel, lime);  size(smallLabel, 19);  hidden(smallLabel);
+pin3(smallLabel, (2.05, -1.1, 0.95));
+
+// --- dimension arrows (thick tubes) + labels for the big box ---
+arrow3(bigLen, (-2.9, -1.25, 0.05), (-0.4, -1.25, 0.05));
+arrow3(bigWid, (-3.1, -1, 0.05), (-3.1, 1, 0.05));
+arrow3(bigHei, (-0.3, 1.15, 0), (-0.3, 1.15, 0.5));
+color(bigLen, cyan);  color(bigWid, cyan);  color(bigHei, cyan);
+thick(bigLen, 0.03);  thick(bigWid, 0.03);  thick(bigHei, 0.03);
+untraced(bigLen);  untraced(bigWid);  untraced(bigHei);
+
+text(l25, (0, 0), "25");  display(l25); color(l25, cyan); size(l25, 18); hidden(l25);
+text(l20, (0, 0), "20");  display(l20); color(l20, cyan); size(l20, 18); hidden(l20);
+text(l5a, (0, 0), "5");   display(l5a); color(l5a, cyan); size(l5a, 18); hidden(l5a);
+pin3(l25, (-1.65, -1.55, 0.1));
+pin3(l20, (-3.35, 0, 0.1));
+pin3(l5a, (-0.1, 1.35, 0.28));
+
+// --- dimension arrows + labels for the small box ---
+arrow3(smallLen, (1.3, -0.85, 0.05), (2.8, -0.85, 0.05));
+arrow3(smallWid, (1.1, -0.6, 0.05), (1.1, 0.6, 0.05));
+arrow3(smallHei, (2.95, 0.75, 0), (2.95, 0.75, 0.5));
+color(smallLen, lime);  color(smallWid, lime);  color(smallHei, lime);
+thick(smallLen, 0.03);  thick(smallWid, 0.03);  thick(smallHei, 0.03);
+untraced(smallLen);  untraced(smallWid);  untraced(smallHei);
+
+text(l15, (0, 0), "15");  display(l15); color(l15, lime); size(l15, 18); hidden(l15);
+text(l12, (0, 0), "12");  display(l12); color(l12, lime); size(l12, 18); hidden(l12);
+text(l5b, (0, 0), "5");   display(l5b); color(l5b, lime); size(l5b, 18); hidden(l5b);
+pin3(l15, (2.05, -1.05, 0.1));
+pin3(l12, (0.85, 0, 0.1));
+pin3(l5b, (3.15, 0.9, 0.28));
+
+// --- working panel, step 1: surface area of each box (products in full) ---
+text(formula, (px, cy - 150), "TSA = 2(lb + bh + hl)");
+text(bigC1, (px, cy - 104), "big = 2(25×20 + 20×5 + 25×5)");
+text(bigC2, (px, cy - 70), "    = 2 × 725 = 1450 cm²");
+text(smallC1, (px, cy - 20), "small = 2(15×12 + 12×5 + 15×5)");
+text(smallC2, (px, cy + 14), "      = 2 × 315 = 630 cm²");
+display(formula); display(bigC1); display(bigC2); display(smallC1); display(smallC2);
+color(formula, fg); color(bigC1, cyan); color(bigC2, cyan); color(smallC1, lime); color(smallC2, lime);
+size(formula, 22); size(bigC1, 18); size(bigC2, 18); size(smallC1, 18); size(smallC2, 18);
+hidden(formula); hidden(bigC1); hidden(bigC2); hidden(smallC1); hidden(smallC2);
+tag(formula, tsa); tag(bigC1, tsa); tag(bigC2, tsa); tag(smallC1, tsa); tag(smallC2, tsa);
+
+// --- working panel, step 2: +5% overlap, ×250 boxes, then cost ---
+text(scaleNote, (px, cy - 150), "+5% overlap, then × 250 boxes");
+display(scaleNote); color(scaleNote, magenta); size(scaleNote, 19); hidden(scaleNote);
+
+table(tab, "box TSA +5% ×250; big 1450 1522.5 380625; small 630 661.5 165375", (px, cy - 62), 96, 40);
+hidden(tab.entries);  hidden(tab.hlines);  hidden(tab.vlines);
+color(tab.entries, fg);
+
+counter(totalArea, (px, cy + 42), 0, 0, "total = ", " cm²");
+display(totalArea);  color(totalArea, cyan);  size(totalArea, 22);  hidden(totalArea);
+
+text(costCalc, (px, cy + 82), "cost = (546000 / 1000) × Rs 4");
+display(costCalc);  color(costCalc, fg);  size(costCalc, 18);  hidden(costCalc);
+
+counter(cost, (px, cy + 128), 0, 0, "cost = Rs ", "");
+display(cost);  color(cost, lime);  size(cost, 30);  hidden(cost);
+
+text(answer, (cx - 120, h - 88), "total cardboard cost = Rs 2184");
+display(answer);  color(answer, magenta);  size(answer, 30);  hidden(answer);
+
+// ------------------------------ script ------------------------------
+show(head, 0.5);
+show(cap, 0.3);
+say(cap, "Shanti Sweets needs cardboard for two sizes of box.", 0.8);
+
+par {
+  show(problem, 0.4);  show(rate, 0.4);
+  show(floor, 0.5);    show(bigBox, 0.7);  show(smallBox, 0.7);
+}
+show(bigLabel, 0.3);  show(smallLabel, 0.3);
+say(cap, "The cardboard for each box is its total surface area.", 0.8);
+
+par {
+  orbit3(24, 24, 9, 2.0, smooth);
+  rotate3(bigBox, (0, 0, 10), 2.0, smooth);
+  rotate3(smallBox, (0, 0, -10), 2.0, smooth);
+}
+
+par {
+  draw(bigLen, 0.4);  draw(bigWid, 0.4);  draw(bigHei, 0.4);
+  show(l25, 0.25);    show(l20, 0.25);    show(l5a, 0.25);
+}
+say(cap, "The big box is 25 by 20 by 5 centimetres.", 0.7);
+
+par {
+  draw(smallLen, 0.4);  draw(smallWid, 0.4);  draw(smallHei, 0.4);
+  show(l15, 0.25);      show(l12, 0.25);      show(l5b, 0.25);
+}
+say(cap, "The small box is 15 by 12 by 5 centimetres.", 0.7);
+
+show(formula, 0.4);
+stagger(0.12) { show(bigC1, 0.3); show(bigC2, 0.3); }
+say(cap, "Big box: 2 times 725 gives 1450 square centimetres.", 0.8);
+stagger(0.12) { show(smallC1, 0.3); show(smallC2, 0.3); }
+say(cap, "Small box: 2 times 315 gives 630 square centimetres.", 0.8);
+
+// clear the surface-area working before the cost pipeline
+fade(tsa, 0.4);
+show(scaleNote, 0.35);
+par { flash(bigBox, cyan); flash(smallBox, lime); }
+say(cap, "Add 5 percent for overlaps, then multiply by 250 boxes of each.", 0.9);
+
+par { show(tab.hlines, 0.35); show(tab.vlines, 0.35); }
+show(tab.entries, 0.5);
+say(cap, "Big needs 380625 and small needs 165375 square centimetres.", 0.9);
+
+show(totalArea, 0.35);
+to(totalArea, value, 546000, 1.1, smooth);
+say(cap, "Together that is 546000 square centimetres of cardboard.", 0.8);
+
+show(costCalc, 0.35);
+show(cost, 0.35);
+to(cost, value, 2184, 1.2, smooth);
+say(cap, "At Rs 4 per 1000 cm², the cost works out to Rs 2184.", 0.9);
+
+show(answer, 0.5);
+pulse(answer, 0.7);
+par { flash(bigBox, cyan); flash(smallBox, lime); }
+wait(1.0);

package/examples/prompt-test-12.manic

@@ -0,0 +1,177 @@
+// Q6 — A closed glass herbarium (greenhouse), 30 x 25 x 25 cm.
+//   (i)  area of glass  = total surface area = 2(lw + wh + lh)
+//   (ii) tape for 12 edges = 4(l + w + h)
+// Taught in 3D: the glass box is translucent, each of the 3 face-pairs lights
+// up as its term is added, and all 12 edges are traced as gold tape.
+//
+//   manic examples/prompt-test-12.manic
+//   manic examples/prompt-test-12.manic --record out --fps 60
+
+title("3D Herbarium — Glass & Tape");
+canvas("16:9");
+
+camera3((5.5, -7, 4.2), (0.6, 0, 1.2), 45, perspective);
+
+text(head, (cx, 50), "herbarium: glass area and tape length");
+display(head);  color(head, cyan);  size(head, 30);  hidden(head);
+
+text(cap, (cx, h - 42), "");
+display(cap);  color(cap, fg);  size(cap, 21);  hidden(cap);
+
+text(problem, (cx, 98), "a closed glass box, 30 cm x 25 cm x 25 cm");
+display(problem);  color(problem, lime);  size(problem, 22);  hidden(problem);
+
+grid3(floor, (0, 0, 0), 3.5, 0.5);
+color(floor, dim);  opacity(floor, 0.28);  hidden(floor);
+
+// the glass volume — faint so the highlighted panes read over it
+cube3(glassBox, (0, 0, 1.25), (3, 2.5, 2.5));
+color(glassBox, cyan);  opacity(glassBox, 0.14);  hidden(glassBox);
+
+// --- the 6 face panes, grouped into 3 pairs (thin cuboids on each face) ---
+cube3(paneTop,   (0, 0, 2.5),    (3, 2.5, 0.03));
+cube3(paneBase,  (0, 0, 0),      (3, 2.5, 0.03));
+cube3(paneFront, (0, -1.25, 1.25), (3, 0.03, 2.5));
+cube3(paneBack,  (0, 1.25, 1.25),  (3, 0.03, 2.5));
+cube3(paneLeft,  (-1.5, 0, 1.25),  (0.03, 2.5, 2.5));
+cube3(paneRight, (1.5, 0, 1.25),   (0.03, 2.5, 2.5));
+color(paneTop, cyan);     color(paneBase, cyan);
+color(paneFront, magenta);  color(paneBack, magenta);
+color(paneLeft, lime);    color(paneRight, lime);
+opacity(paneTop, 0.5);    opacity(paneBase, 0.5);
+opacity(paneFront, 0.5);  opacity(paneBack, 0.5);
+opacity(paneLeft, 0.5);   opacity(paneRight, 0.5);
+hidden(paneTop);   hidden(paneBase);
+hidden(paneFront); hidden(paneBack);
+hidden(paneLeft);  hidden(paneRight);
+tag(paneTop, panes);   tag(paneBase, panes);
+tag(paneFront, panes); tag(paneBack, panes);
+tag(paneLeft, panes);  tag(paneRight, panes);
+tag(paneTop, pairTB);  tag(paneBase, pairTB);
+tag(paneFront, pairFB); tag(paneBack, pairFB);
+tag(paneLeft, pairLR); tag(paneRight, pairLR);
+
+// --- the 12 edges (tape), thick gold tubes, drawn on in part (ii) ---
+line3(e1, (-1.5, -1.25, 0), (1.5, -1.25, 0));
+line3(e2, (1.5, -1.25, 0), (1.5, 1.25, 0));
+line3(e3, (1.5, 1.25, 0), (-1.5, 1.25, 0));
+line3(e4, (-1.5, 1.25, 0), (-1.5, -1.25, 0));
+line3(e5, (-1.5, -1.25, 2.5), (1.5, -1.25, 2.5));
+line3(e6, (1.5, -1.25, 2.5), (1.5, 1.25, 2.5));
+line3(e7, (1.5, 1.25, 2.5), (-1.5, 1.25, 2.5));
+line3(e8, (-1.5, 1.25, 2.5), (-1.5, -1.25, 2.5));
+line3(e9, (-1.5, -1.25, 0), (-1.5, -1.25, 2.5));
+line3(e10, (1.5, -1.25, 0), (1.5, -1.25, 2.5));
+line3(e11, (1.5, 1.25, 0), (1.5, 1.25, 2.5));
+line3(e12, (-1.5, 1.25, 0), (-1.5, 1.25, 2.5));
+color(e1, gold);  color(e2, gold);  color(e3, gold);  color(e4, gold);
+color(e5, gold);  color(e6, gold);  color(e7, gold);  color(e8, gold);
+color(e9, gold);  color(e10, gold); color(e11, gold); color(e12, gold);
+thick(e1, 0.04);  thick(e2, 0.04);  thick(e3, 0.04);  thick(e4, 0.04);
+thick(e5, 0.04);  thick(e6, 0.04);  thick(e7, 0.04);  thick(e8, 0.04);
+thick(e9, 0.04);  thick(e10, 0.04); thick(e11, 0.04); thick(e12, 0.04);
+untraced(e1);  untraced(e2);  untraced(e3);  untraced(e4);
+untraced(e5);  untraced(e6);  untraced(e7);  untraced(e8);
+untraced(e9);  untraced(e10); untraced(e11); untraced(e12);
+tag(e1, tape);  tag(e2, tape);  tag(e3, tape);  tag(e4, tape);
+tag(e5, tape);  tag(e6, tape);  tag(e7, tape);  tag(e8, tape);
+tag(e9, tape);  tag(e10, tape); tag(e11, tape); tag(e12, tape);
+
+// --- dimension arrows (white) with colour-coded labels ---
+arrow3(dimL, (-1.5, -1.65, 0), (1.5, -1.65, 0));
+arrow3(dimW, (1.8, -1.25, 0), (1.8, 1.25, 0));
+arrow3(dimH, (-1.7, -1.45, 0), (-1.7, -1.45, 2.5));
+color(dimL, fg);  color(dimW, fg);  color(dimH, fg);
+thick(dimL, 0.022);  thick(dimW, 0.022);  thick(dimH, 0.022);
+untraced(dimL);  untraced(dimW);  untraced(dimH);
+
+text(l30, (0, 0), "30");   display(l30);  color(l30, cyan);     size(l30, 19);  hidden(l30);
+text(l25w, (0, 0), "25");  display(l25w); color(l25w, lime);    size(l25w, 19); hidden(l25w);
+text(l25h, (0, 0), "25");  display(l25h); color(l25h, magenta); size(l25h, 19); hidden(l25h);
+pin3(l30, (0, -2.25, 0.02));
+pin3(l25w, (2.2, 0, 0.02));
+pin3(l25h, (-2.05, -1.6, 1.3));
+
+// --- right-hand working panel ---
+text(saTitle, (985, cy - 178), "(i) glass = surface area");
+text(saTop,   (985, cy - 132), "top + base:  2(30×25) = 1500");
+text(saFB,    (985, cy - 94),  "front + back: 2(30×25) = 1500");
+text(saLR,    (985, cy - 56),  "two sides:   2(25×25) = 1250");
+text(saSum,   (985, cy - 14),  "= 1500 + 1500 + 1250");
+display(saTitle); display(saTop); display(saFB); display(saLR); display(saSum);
+color(saTitle, cyan); color(saTop, cyan); color(saFB, magenta); color(saLR, lime); color(saSum, fg);
+size(saTitle, 23); size(saTop, 19); size(saFB, 19); size(saLR, 19); size(saSum, 20);
+hidden(saTitle); hidden(saTop); hidden(saFB); hidden(saLR); hidden(saSum);
+
+counter(areaCounter, (985, cy + 30), 0, 0, "glass = ", " cm²");
+display(areaCounter);  color(areaCounter, cyan);  size(areaCounter, 25);  hidden(areaCounter);
+
+text(tapeTitle, (985, cy + 100), "(ii) tape = all 12 edges");
+text(tapeF,     (985, cy + 143), "= 4(l + w + h)");
+text(tapeCalc,  (985, cy + 181), "= 4(30 + 25 + 25) = 4×80");
+display(tapeTitle); display(tapeF); display(tapeCalc);
+color(tapeTitle, gold); color(tapeF, fg); color(tapeCalc, fg);
+size(tapeTitle, 23); size(tapeF, 19); size(tapeCalc, 19);
+hidden(tapeTitle); hidden(tapeF); hidden(tapeCalc);
+
+counter(tapeCounter, (985, cy + 221), 0, 0, "tape = ", " cm");
+display(tapeCounter);  color(tapeCounter, gold);  size(tapeCounter, 25);  hidden(tapeCounter);
+
+text(answer, (cx, h - 92), "glass = 4250 cm²   ·   tape = 320 cm");
+display(answer);  color(answer, lime);  size(answer, 30);  hidden(answer);
+
+// ------------------------------ script ------------------------------
+show(head, 0.5);
+show(cap, 0.3);
+say(cap, "A herbarium is a closed box made entirely of glass — the base too.", 0.9);
+
+par { show(problem, 0.4); show(floor, 0.5); show(glassBox, 0.8); }
+say(cap, "Its dimensions are 30 by 25 by 25 centimetres.", 0.8);
+
+par {
+  draw(dimL, 0.5);  draw(dimW, 0.5);  draw(dimH, 0.5);
+  show(l30, 0.3);   show(l25w, 0.3);  show(l25h, 0.3);
+}
+orbit3(30, 22, 8.5, 2.2, smooth);
+say(cap, "Part 1 — the glass needed is the total surface area: all six faces.", 0.9);
+
+show(saTitle, 0.3);
+par { show(paneTop, 0.3); show(paneBase, 0.3); }
+flash(pairTB, cyan);
+show(saTop, 0.3);
+say(cap, "Top and base are each 30 by 25, so the pair is 1500.", 0.9);
+
+par { show(paneFront, 0.3); show(paneBack, 0.3); }
+flash(pairFB, magenta);
+show(saFB, 0.3);
+say(cap, "Front and back are also 30 by 25 — another 1500.", 0.8);
+
+par { show(paneLeft, 0.3); show(paneRight, 0.3); }
+flash(pairLR, lime);
+show(saLR, 0.3);
+say(cap, "The two sides are 25 by 25, adding 1250.", 0.8);
+
+show(saSum, 0.3);
+show(areaCounter, 0.3);
+to(areaCounter, value, 4250, 1.1, smooth);
+say(cap, "All six faces together need 4250 square centimetres of glass.", 0.9);
+
+fade(panes, 0.5);
+say(cap, "Part 2 — tape runs along every edge of the box.", 0.8);
+stagger(0.055) {
+  draw(e1, 0.18);  draw(e2, 0.18);  draw(e3, 0.18);  draw(e4, 0.18);
+  draw(e5, 0.18);  draw(e6, 0.18);  draw(e7, 0.18);  draw(e8, 0.18);
+  draw(e9, 0.18);  draw(e10, 0.18); draw(e11, 0.18); draw(e12, 0.18);
+}
+flash(tape, gold);
+
+show(tapeTitle, 0.3);
+stagger(0.1) { show(tapeF, 0.3); show(tapeCalc, 0.3); }
+show(tapeCounter, 0.3);
+to(tapeCounter, value, 320, 1.0, smooth);
+say(cap, "A cuboid has 4 lengths, 4 widths and 4 heights: 4 times 80 is 320 cm.", 1.0);
+
+show(answer, 0.5);
+pulse(answer, 0.7);
+par { flash(glassBox, cyan); flash(tape, gold); }
+wait(1.0);