--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mupdf-source/thirdparty/zint/extras/kartrak.c	Mon Sep 15 11:43:07 2025 +0200
@@ -0,0 +1,216 @@
+/* 
+ * kartrak.c
+ * 
+ * This code generates KarTrak codes as were previously used in the rail industry of the US
+ * (description below). Output is as an SVG file. This system is now obsolete but perhaps
+ * this will be of interest to model railway enthusiasts.
+ * 
+ * "KarTrak, sometimes KarTrak ACI (for Automatic Car Identification) is a colored
+ * bar code system designed to automatically identify rail cars and other rolling stock.
+ * KarTrak was made a requirement in North America, but technical problems led to
+ * abandonment of the system in the late 1970s."
+ * 
+ * https://en.wikipedia.org/wiki/KarTrak
+ * 
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+void print_head(char car_number[], double bordersize) {
+    printf("<?xml version=\"1.0\" standalone=\"no\"?>\n");
+    printf("<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.1//EN\"\n");
+    printf("   \"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\">\n");
+    printf("<svg width=\"%.2fin\" height=\"%.2fin\" version=\"1.1\"\n", 5.75 + (2 * bordersize), 17.5 + (2 * bordersize));
+    printf("   xmlns=\"http://www.w3.org/2000/svg\">\n");
+    printf("    <desc>KarTrak ACI %s</desc>\n\n", car_number);
+    printf("    <g id=\"kartrak\" fill = \"#000000\">\n");
+    printf("        <rect x=\"0in\" y=\"0in\" width=\"%.2fin\" height=\"%.2fin\" fill=\"#000000\" />\n", 5.75 + (2 * bordersize), 17.5 + (2 * bordersize));
+}
+
+void print_foot() {
+    printf("    </g>\n");
+    printf("</svg>\n");
+}
+
+void print_check(double x, double y) {
+    /* Print checkerboard */
+    int w, h;
+    
+    for (h = 0; h < 6; h++) {
+        for (w = 0; w < 69; w++) {
+            if (((w + h) % 2) == 0) {
+                printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"0.08in\" height=\"0.08in\" fill=\"#ffffff\" />\n", x + (0.083 * w), y + (0.083 * h));
+            }
+        }
+    }
+}
+
+void hrt(double x, double y, char c[]) {
+    /* Add text to the left */
+    printf("        <text x=\"%.2fin\" y=\"%.2fin\" font-family=\"Verdana\" font-size=\"25\">%s</text>\n", x + 0.2, y + 0.9, c);
+}
+
+void back_square(double x, double y) {
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"0.17in\" height=\"0.25in\" fill=\"#ffffff\" />\n", x + 0.2, y + 0.7);
+}
+
+void print_zero(double x, double y) {
+    print_check(x, y);
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"5.75in\" height=\"0.5in\" fill=\"#0000e0\" />\n", x, y + 0.5);
+    hrt(x, y, "0");
+}
+
+void print_one(double x, double y) {
+    print_check(x, y);
+    print_check(x, y + 0.5);
+    back_square(x, y);
+    hrt(x, y, "1");
+}
+
+void print_two(double x, double y) {
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"5.75in\" height=\"0.5in\" fill=\"#ef0000\" />\n", x, y);
+    print_check(x, y + 0.5);
+    back_square(x, y);
+    hrt(x, y, "2");
+}
+
+void print_three(double x, double y) {
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"5.75in\" height=\"0.5in\" fill=\"#ef0000\" />\n", x, y + 0.5);
+    hrt(x, y, "3");
+}
+
+void print_four(double x, double y) {
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"5.75in\" height=\"1.00in\" fill=\"#ef0000\" />\n", x, y);
+    hrt(x, y, "4");
+}
+
+void print_five(double x, double y) {
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"5.75in\" height=\"0.5in\" fill=\"#0000e0\" />\n", x, y + 0.5);
+    hrt(x, y, "5");
+}
+
+void print_six(double x, double y) {
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"5.75in\" height=\"0.5in\" fill=\"#0000e0\" />\n", x, y);
+    print_check(x, y + 0.5);
+    back_square(x, y);
+    hrt(x, y, "6");
+}
+
+void print_seven(double x, double y) {
+    print_check(x, y);
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"5.75in\" height=\"0.5in\" fill=\"#ef0000\" />\n", x, y + 0.5);
+    hrt(x, y, "7");
+}
+
+void print_eight(double x, double y) {
+    print_check(x, y + 0.5);
+    back_square(x, y);
+    hrt(x, y, "8");
+}
+
+void print_nine(double x, double y) {
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"5.75in\" height=\"1.00in\" fill=\"#0000e0\" />\n", x, y);
+    hrt(x, y, "9");
+}
+
+void print_ten(double x, double y) {
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"5.75in\" height=\"0.5in\" fill=\"#ef0000\" />\n", x, y);
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"5.75in\" height=\"0.5in\" fill=\"#0000e0\" />\n", x, y + 0.5);
+    hrt(x, y, "10");
+}
+
+void print_start(double bordersize) {
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"4.50in\" height=\"0.5in\" fill=\"#0000e0\" />\n", bordersize, 16.5 + bordersize);
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"4.50in\" height=\"0.5in\" fill=\"#ef0000\" />\n", bordersize + 1.25, 17.0 + bordersize);
+    hrt(bordersize, 16.0 + bordersize, "START");
+}
+
+void print_stop(double bordersize) {
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"4.50in\" height=\"0.5in\" fill=\"#0000e0\" />\n", bordersize + 1.25, 1.35 + bordersize);
+    printf("        <rect x=\"%.2fin\" y=\"%.2fin\" width=\"4.50in\" height=\"0.5in\" fill=\"#ef0000\" />\n", bordersize, 1.85 + bordersize);
+    hrt(bordersize, 1.35 + bordersize, "STOP");
+}
+
+void print_label(int posn, double bordersize, int digit) {
+    double y = ((17.5 + bordersize + 0.375) - ((posn + 1) * 1.375));
+    
+    switch (digit) {
+        case 0: print_zero(bordersize, y); break;
+        case 1: print_one(bordersize, y); break;
+        case 2: print_two(bordersize, y); break;
+        case 3: print_three(bordersize, y); break;
+        case 4: print_four(bordersize, y); break;
+        case 5: print_five(bordersize, y); break;
+        case 6: print_six(bordersize, y); break;
+        case 7: print_seven(bordersize, y); break;
+        case 8: print_eight(bordersize, y); break;
+        case 9: print_nine(bordersize, y); break;
+        case 10: print_ten(bordersize, y); break;
+    }
+}
+
+int main(int argc, char** argv) {
+
+    int in_length;
+    char car_number[12];
+    int i;
+    int checksum = 0;
+    int checkdigit;
+    double bordersize = 3.0;
+    
+    if (argc != 2) {
+        /* Only command line input should be the number to encode */
+        printf("Usage: kartrak {number}\n");
+        printf("Where {number} is the number to be encoded, up to 10 digits\n");
+        return 0;
+    } else {
+        in_length = strlen(argv[1]);
+        if (in_length > 10) {
+            /* Check maximum length */
+            printf("Input data too long\n");
+            return 0;
+        } else {
+            /* Add padding if needed */
+            strcpy(car_number, "");
+            for(i = in_length; i < 10; i++) {
+                strcat(car_number, "0");
+            }
+            strcat(car_number, argv[1]);
+        }
+    }
+    
+    /* Check input is numeric */
+    for (i = 0; i < 10; i++) {
+        if ((car_number[i] < '0') || (car_number[i] > '9')) {
+            printf("Invalid character(s) in input data\n");
+            return 0;
+        }
+        
+        checksum += (car_number[i] - '0') * (1 << i);
+    }
+    
+    /* Calculate check digit */
+    checkdigit = checksum % 11;
+    
+    print_head(car_number, bordersize);
+    
+    /* Start character */
+    print_start(bordersize);
+    
+    /* Data */
+    for (i = 0; i < 10; i++) {
+        print_label((i + 1), bordersize, car_number[i] - '0');
+    }
+    
+    /* Stop character */
+    print_stop(bordersize);
+    
+    /* Check digit */
+    print_label(12, bordersize, checkdigit);
+    
+    print_foot();
+    
+    return (EXIT_SUCCESS);
+}