#!/usr/bin/awk -f

BEGIN {
    RIB=200;
    SPACING=50;
    printf("\033.(;\n");
    printf("\033.I81;;17:\n");
    printf("\033.N;19:IN;\n");
    printf("SC;PU;RO0;IP;IW;SP1;LT;\n");
    for (SPEED=10; SPEED<=80; SPEED+=5) {
        printf("VS %d;\n", SPEED)
        for (FORCE=1; FORCE<=8; FORCE++) {
            X0 = (FORCE-1)*(RIB+SPACING);
            Y0 = ((SPEED-10)/5)*(RIB+SPACING);
            printf("FS %d;\n", FORCE)
            printf("PUPA%d,%d;\n", X0, Y0);
            printf("PDPA%d,%d,%d,%d,%d,%d,%d,%d;\n", X0+RIB, Y0, X0+RIB, Y0+RIB, X0, Y0+RIB, X0, Y0);
        }
    }
    printf("PUPA0,0;SP;PG1;\n");
}