/* * 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 #include #include void print_head(char car_number[], double bordersize) { printf("\n"); printf("\n"); printf("\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(" \n", x + (0.083 * w), y + (0.083 * h)); } } } } void hrt(double x, double y, char c[]) { /* Add text to the left */ printf(" %s\n", x + 0.2, y + 0.9, c); } void back_square(double x, double y) { printf(" \n", x + 0.2, y + 0.7); } void print_zero(double x, double y) { print_check(x, y); printf(" \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(" \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(" \n", x, y + 0.5); hrt(x, y, "3"); } void print_four(double x, double y) { printf(" \n", x, y); hrt(x, y, "4"); } void print_five(double x, double y) { printf(" \n", x, y + 0.5); hrt(x, y, "5"); } void print_six(double x, double y) { printf(" \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(" \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(" \n", x, y); hrt(x, y, "9"); } void print_ten(double x, double y) { printf(" \n", x, y); printf(" \n", x, y + 0.5); hrt(x, y, "10"); } void print_start(double bordersize) { printf(" \n", bordersize, 16.5 + bordersize); printf(" \n", bordersize + 1.25, 17.0 + bordersize); hrt(bordersize, 16.0 + bordersize, "START"); } void print_stop(double bordersize) { printf(" \n", bordersize + 1.25, 1.35 + bordersize); printf(" \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); }