mirror of
https://github.com/fralx/LimeReport.git
synced 2024-12-25 17:14:40 +03:00
217 lines
7.3 KiB
C
217 lines
7.3 KiB
C
/*
|
|
* 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);
|
|
}
|