home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR4 / RAYL210.ZIP / RAYL210.C < prev    next >
Text File  |  1993-09-18  |  20KB  |  656 lines
  1. /*   RayLathe (c) Koehler
  2.    - Thick <0 = draw solid, =0 = move, >0 = draw hollow
  3.    Revision History:
  4.    03-24-93 1.00 KJK  New. Inspired by uLathe.
  5.    03-28-93 1.01 KJK  Attempting Vivid output for Doug Downs.
  6.    04-11-93 1.10 KJK  Releasable Vivid output version.
  7.          Noticed THICK in Vivid no supported! Must fix if possible.
  8.    04-11-93 1.11 KJK  Cured black speckles in POVRAY output.
  9.    04-14-93 1.12 KJK  Allow 0 length cones (rings) for Vivid.
  10.    04-15-93 1.13 KJK  Enable THICK for Vivid. Print line # of .DAT file.
  11.    04-24-93 1.20 KJK  Since they are necessary when thickness is used,
  12.          simulate cone/rings for POVRAY.
  13.    06-28-93 1.?? esp  Add POV-Ray 2.0 syntax, clean up cmdline parsing,
  14.              add Macintosh (MPW) support, change FP compares like (x==y)
  15.              to (fabs(x-y) < EPSILON) to better conform to
  16.              the way fp numbers (mis)behave, add tabwidth parm, clean up
  17.              indenting.
  18.    06-05-93 1.21 KJK  First attempt at POVRAY triangles.
  19.    06-25-93 1.22 KJK  Steve Anger replied to my message on YCCMR about
  20.               what vertex order is required!
  21.    07-10-93 1.23 KJK  Steve Anger replied again. Problem was that data has
  22.               to be one whole object, not multiple objects.
  23.    07-11-93 1.24 KJK  Combined Eduard Schwan's (esp) changes to 1.20 with
  24.               my 1.23.    Removed double slash comments in code to
  25.               keep compatible with regular C. Its my understanding
  26.               the double slash is new for C++.
  27.    07-20-93 1.25 KJK  Doug Downs said Vivid is OK, so lets do final cleanup.
  28.               Also, I will be looking into accepting color data
  29.               to pass along to the RAW converters.
  30.               Watch for seam in RAW output. I'm reluctant to fix what
  31.               I can't prove.
  32.    07-20-93 2.00 KJK  Final release. You know, the one just before the bug fix
  33.               release.    The verbose comments for all of the unreleased
  34.               versions are just an informational story. "It doesn't
  35.               matter, and so-what if it did!"
  36.    09-18-93 2.10 KJK  Fix bug: Commas introduced by esp tabbing where they
  37.               didn't belong.
  38.               For POVRAY no longer #declare's name of composite shape
  39.               in .inc file. This helps when memory is at a premium.
  40.               Fixed examples so they work with RAW and POV output.
  41. */
  42.  
  43.  
  44. /* ========================================================= */
  45. /* INCLUDES */
  46.  
  47. #include <math.h>
  48. #include <stdio.h>   /* printf() */
  49. #include <stdlib.h>  /* exit() */
  50. #include <string.h>  /* strcmp() */
  51. #include <ctype.h>   /* tolower() */
  52.  
  53.  
  54. /* ========================================================= */
  55. /* DEFINES */
  56.  
  57. #define VERSION        2.10
  58.  
  59. #ifndef min
  60.     #define min(a,b) ((a)<(b) ? (a) : (b))
  61.     #define max(a,b) ((a)>(b) ? (a) : (b))
  62. #endif
  63. #define EPSILON        1.0e-10   /* miniscule fp number, essentially zero */
  64. const double PI = 3.141592653589;
  65.  
  66. /* Raytracer output styles supported */
  67. #define TRACER_VIVID   1
  68. #define TRACER_POV10   2
  69. #define TRACER_POV20   3
  70. #define TRACER_RAW     4
  71.  
  72. #define DATA_OLD       0
  73. #define DATA_SLICED   -1
  74. #define DATA_COLOR    -2
  75.  
  76. #define TAB_WIDTH       4 /* default width */
  77.  
  78.  
  79. /* ========================================================= */
  80. /* PROTOTYPES */
  81.  
  82. static void  show_usage(char *);
  83. static void  lathe_cut_viv(double, double, double, double, double);
  84. static void  lathe_cut_pov10(double, double, double, double, double);
  85. static void  lathe_cut_pov20(double, double, double, double, double);
  86. static void  lathe_tri_raw(double, double, double, double, double, unsigned char, double, double, double);
  87. static void  tab_printf(void);
  88. static void  tab_inc();
  89. static void  tab_dec();
  90. static double intercept(double, double, double, double);
  91.  
  92.  
  93. /* ========================================================= */
  94. /* GLOBAL VARIABLES */
  95. static int     tab_width = TAB_WIDTH;
  96. static int     tab_level = 0;
  97.  
  98.  
  99. /* ========================================================= */
  100. int main(argc,argv)
  101. int argc;
  102. char *argv[];
  103. {
  104.    int tracer = TRACER_POV10;
  105.    int line=0;
  106.    int k;
  107.    double oldx = 0.01, oldy = 0.01;
  108.    double x, y, thick;
  109.    double boundminx=1.0e8, boundmaxx=-1.0e8, boundmaxy=0.0;
  110.    double length, center, eye_distance;
  111.    double colorR = -1.0, colorG = -1.0, colorB = -1.0;
  112.    unsigned char slices = 8;
  113.    int datatype = DATA_OLD;
  114.  
  115.    fprintf(stderr,"RayLathe v%2.2f (c) 1993 Koehler\n",VERSION);
  116.  
  117.  
  118.    /* Check the command line options ("/" for MSDOS, "-" for Unix & Mac) */
  119.  
  120.    for (k=1; k<argc; k++)
  121.    {
  122.        /* this setup makes it easier to add new switches later */
  123.        switch (argv[k][0])
  124.        {
  125.        case '/':
  126.        case '-':
  127.        switch (tolower(argv[k][1]))
  128.        {
  129.        case '?':
  130.            show_usage(NULL);
  131.            break;
  132.        case 't':
  133.            tab_width = atoi(&argv[k][2]);
  134.            if ((tab_width < 1) || (tab_width > 16))
  135.            show_usage(argv[k]);
  136.            break;
  137.        case 'v':
  138.            tracer = TRACER_VIVID;
  139.            fprintf(stderr,"   Generating Vivid 2.0 object\n");
  140.            break;
  141.        case 'r':
  142.            tracer = TRACER_RAW;
  143.            fprintf(stderr,"   Generating Export (RAW) object\n");
  144.            break;
  145.        case 'p':
  146.            switch (argv[k][2])
  147.            {
  148.            case '1':
  149.            tracer = TRACER_POV10;
  150.            fprintf(stderr,"   Generating POV-Ray 1.0 object\n");
  151.            break;
  152.            case '2':
  153.            tracer = TRACER_POV20;
  154.            fprintf(stderr,"   Generating POV-Ray 2.0 object\n");
  155.            break;
  156.            default:
  157.            show_usage(argv[k]);
  158.            break;
  159.            }
  160.            break;
  161.        default:
  162.            show_usage(argv[k]);
  163.            break;
  164.        } /* switch */
  165.        break;
  166.  
  167.        default:
  168.        show_usage(argv[k]);
  169.        break;
  170.        } /* switch */
  171.    } /* for */
  172.  
  173.  
  174.  
  175.    /* write header */
  176.  
  177.    switch (tracer)
  178.    {
  179.        case TRACER_VIVID:
  180.        printf("// Vivid 2.0 object created by RayLathe v%2.2f (c) 1993 Koehler\n",VERSION);
  181.        printf("// See overall dimensions of object at end of this file\n");
  182.        /* printf("// See suggested camera vectors at end of this file\n"); */
  183.        printf("\n");
  184.        break;
  185.        case TRACER_POV10:
  186.        printf("// POVRAY 1.0 object created by RayLathe v%2.2f (c) 1993 Koehler\n",VERSION);
  187.        printf("// See suggested camera vectors at end of this file\n\n");
  188.        printf("//#declare LatheWork =\n");
  189.        tab_inc();
  190.        tab_printf();printf("composite\n");
  191.        tab_printf();printf("{\n");
  192.        tab_inc();
  193.        break;
  194.        case TRACER_POV20:
  195.        printf("// POVRAY 2.0 object created by RayLathe v%2.2f (c) 1993 Koehler\n",VERSION);
  196.        printf("// See suggested camera vectors at end of this file\n\n");
  197.        printf("//#declare LatheWork =\n");
  198.        tab_inc();
  199.        tab_printf();printf("merge\n");
  200.        tab_printf();printf("{\n");
  201.        tab_inc();
  202.        break;
  203.    } /* switch */
  204.  
  205.  
  206.    /* Read first line from file */
  207.  
  208.    scanf("%lf %lf %lf", &x, &y, &thick);
  209.    if (x < DATA_OLD)       /* LAT2RAYL v1.00 didn't give slices, v1.10 does */
  210.        {
  211.        datatype = x;
  212.        slices = thick;
  213.        scanf("%lf %lf %lf", &x, &y, &thick);
  214.        }
  215.    if (datatype == DATA_COLOR)
  216.        scanf("%lf %lf %lf", &colorR, &colorG, &colorB);
  217.    line++;
  218.  
  219.  
  220.    /* loop through file */
  221.  
  222.    do
  223.    {
  224.        if (tracer != TRACER_RAW)
  225.        {
  226.        tab_printf();printf("// ###\n");
  227.        tab_printf();printf("// ### Line %-4d (%lg, %lg, %lg)\n", line, x, y, thick);
  228.        }
  229.        if (thick)
  230.        {
  231.        switch (tracer)
  232.        {
  233.            case TRACER_VIVID:
  234.            lathe_cut_viv(oldx, oldy, x, y, thick);
  235.            break;
  236.            case TRACER_POV10:
  237.            lathe_cut_pov10(oldx, oldy, x, y, thick);
  238.            break;
  239.            case TRACER_POV20:
  240.            lathe_cut_pov20(oldx, oldy, x, y, thick);
  241.            break;
  242.            case TRACER_RAW:
  243.            lathe_tri_raw(oldx, oldy, x, y, thick, slices, colorR, colorG, colorB);
  244.            break;
  245.        } /* switch */
  246.        }
  247.  
  248.        boundmaxx = max(boundmaxx, x);
  249.        boundminx = min(boundminx, x);
  250.        boundmaxy = max(boundmaxy, y);
  251.        oldx = x;
  252.        oldy = y;
  253.  
  254.  
  255.        /* read next line of file */
  256.  
  257.        scanf("%lf %lf %lf", &x, &y, &thick);
  258.        if (datatype == DATA_COLOR)
  259.        scanf("%lf %lf %lf", &colorR, &colorG, &colorB);
  260.        line++;
  261.    } while ((x >= 0.0) || (y >= 0.0));
  262.  
  263.  
  264.    /* write trailer */
  265.  
  266.    boundminx *= 1.001;
  267.    boundmaxx *= 1.001;
  268.    boundmaxy *= 1.001;
  269.    switch (tracer)
  270.    {
  271.        case TRACER_VIVID:
  272.        break;
  273.        case TRACER_POV10:
  274.        tab_printf();printf("bounded_by\n");
  275.        tab_printf();printf("{\n");
  276.        tab_inc();
  277.        tab_printf();printf("box { <%g %g %g>  <%g %g %g> }\n",boundminx,-boundmaxy,-boundmaxy, boundmaxx, boundmaxy, boundmaxy);
  278.        tab_dec();
  279.        tab_printf();printf("}\n");
  280.        tab_dec();
  281.        tab_printf();printf("} // composite\n");
  282.        tab_dec();
  283.        length = boundmaxx - boundminx;
  284.        center = length / 2.0 + boundminx;
  285.        printf("\n#declare Look_At = <%g 0 0>  // Center of object\n", center);
  286.        eye_distance = -max(fabs(length), boundmaxy*2.4);
  287.        printf("#declare Location = <%g 0 %g>  // Good camera position\n", center, eye_distance);
  288.        break;
  289.        case TRACER_POV20:
  290.        tab_printf();printf("bounded_by\n");
  291.        tab_printf();printf("{\n");
  292.        tab_inc();
  293.        tab_printf();printf("box { <%g %g %g>  <%g %g %g> }\n",boundminx,-boundmaxy,-boundmaxy, boundmaxx, boundmaxy, boundmaxy);
  294.        tab_dec();
  295.        tab_printf();printf("}\n");
  296.        tab_dec();
  297.        tab_printf();printf("} // union\n");
  298.        tab_dec();
  299.        length = boundmaxx - boundminx;
  300.        center = length / 2.0 + boundminx;
  301.        printf("\n#declare Look_At = <%g 0 0>  // Center of object\n", center);
  302.        eye_distance = -max(fabs(length), boundmaxy*2.4);
  303.        printf("#declare Location = <%g 0 %g>  // Good camera position\n", center, eye_distance);
  304.        break;
  305.    } /* switch */
  306.  
  307.    if (tracer != TRACER_RAW)
  308.        printf("\n// Min X Y Z = %f %f %f    Max X Y Z = %f %f %f\n",boundminx,-boundmaxy,-boundmaxy, boundmaxx, boundmaxy, boundmaxy);
  309.  
  310.    return (0); /* Happy ANSI */
  311.  
  312. } /* main */
  313.  
  314.  
  315. /* ========================================================= */
  316. static void  show_usage(char * opt)
  317. {
  318.    if (opt != NULL)
  319.        fprintf(stderr,"### ERROR!  Bad option '%s'\n", opt);
  320.    fprintf(stderr,"### Usage: raylathe [-v | -p1 | -p2 | -r] [-tN] <infile.dat >outfile.inc\n");
  321.    fprintf(stderr,"### where -v=Vivid, -p1=POV1.0, -p2=POV2.0, -r=RAW, -tN=tabwidth\n");
  322.    exit(1);
  323. } /* show_usage */
  324.  
  325.  
  326. /* ========================================================= */
  327. static void lathe_cut_viv(x1, y1, x2, y2, thick)
  328. double x1, y1, x2, y2, thick;
  329. {
  330.    /* cone { base 1 1 1 base_radius 4  apex 0 0 5 apex_radius 1 } */
  331.    tab_printf();printf("cone { base %g 0.0 0.0  base_radius %g   ", x1, y1);
  332.    tab_inc();
  333.    tab_printf();printf("apex %g 0.0 0.0  apex_radius %g }\n", x2, y2);
  334.    tab_dec();
  335.    if (thick > 0)
  336.    {
  337.        tab_printf();printf("cone { base %g 0.0 0.0  base_radius %g  ", x1, max(y1-thick, 0.0));
  338.        tab_inc();
  339.        tab_printf();printf("apex %g 0.0 0.0  apex_radius %g }\n", x2, max(y2-thick, 0.0));
  340.        tab_dec();
  341.        tab_printf();printf("cone { base %g 0.0 0.0  base_radius %g  ", x1, max(y1, 0.0));
  342.        tab_inc();
  343.        tab_printf();printf("apex %g 0.0 0.0  apex_radius %g }\n", x1, max(y1-thick, 0.0));
  344.        tab_dec();
  345.        tab_printf();printf("cone { base %g 0.0 0.0  base_radius %g  ", x2, max(y2, 0.0));
  346.        tab_inc();
  347.        tab_printf();printf("apex %g 0.0 0.0  apex_radius %g }\n", x2, max(y2-thick, 0.0));
  348.        tab_dec();
  349.    }
  350. } /* lathe_cut_viv */
  351.  
  352.  
  353. /* ========================================================= */
  354. static void lathe_cut_pov10(x1, y1, x2, y2, thick)
  355. double x1, y1, x2, y2, thick;
  356. {
  357.    double minx, miny, minz, maxx, maxy, maxz, origin;
  358.  
  359.    if (fabs(x1-x2) < EPSILON)
  360.        if (fabs(thick) > EPSILON)
  361.        x1 = x1 * 1.001;    /* Fudge a flat cone (ring) */
  362.        else
  363.        return;
  364.  
  365.    minx = min(x1,x2);
  366.    maxx = max(x1,x2);
  367.    maxy = max(y1,y2);
  368.    miny = -maxy;
  369.    maxz = maxy;
  370.    minz = miny;
  371.  
  372.    tab_printf();printf("object\n");
  373.    tab_printf();printf("{\n");
  374.    tab_inc();
  375.    tab_printf();printf("intersection\n");
  376.    tab_printf();printf("{\n");
  377.    tab_inc();
  378.    if (fabs(y1-y2) < EPSILON)
  379.    {
  380.        if (fabs(y1) > EPSILON)
  381.        {
  382.        tab_printf();printf("quadric { Cylinder_X  scale <1 %g %g> }\n", y1, y1);
  383.        }
  384.    }
  385.    else
  386.    {
  387.        if ((fabs(x1) < EPSILON) || (fabs(x2) < EPSILON))
  388.        origin = 0;
  389.        else
  390.        origin=intercept(x1, y1, x2, y2);
  391.        tab_printf();printf("quadric { QCone_X  ");
  392.  
  393.        if (fabs(x1) < EPSILON)
  394.        {printf("scale <%g %g %g>", fabs(origin-x2), y2, y2);}
  395.        else
  396.        {printf("scale <%g %g %g>", fabs(origin-x1), y1, y1);}
  397.        printf("  translate <%g 0 0> }\n", origin);
  398.    }
  399.  
  400.    if ((thick > 0.0) && (((y1-thick) > 0.0) || ((y2-thick) > 0.0)))
  401.    {
  402.        if (fabs(y1-y2) < EPSILON)
  403.        {
  404.        if ((y1-thick) > 0.0)
  405.        {
  406.            tab_printf();printf("quadric { Cylinder_X  scale <1 %g %g> inverse }\n", y1-thick, y1-thick);
  407.        }
  408.        }
  409.        else
  410.        {
  411.        if ((fabs(x1) < EPSILON) || (fabs(x2) < EPSILON))
  412.            origin = 0;
  413.        else
  414.            origin = (((y1-thick)/y1)*(origin-x1))+x1;
  415.        tab_printf();printf("quadric { QCone_X  ");
  416.  
  417.        if (fabs(origin-x1) < EPSILON)
  418.            {printf("scale <%g %g %g>", fabs(origin-x2), y2-thick, y2-thick);}
  419.        else
  420.            {printf("scale <%g %g %g>", fabs(origin-x1), y1-thick, y1-thick);}
  421.        printf("  translate <%g 0 0> inverse }\n", origin);
  422.        }
  423.    }
  424.  
  425.    tab_printf();printf("box { <%g %g %g>  <%g %g %g> }\n",minx,miny,minz,maxx,maxy,maxz);
  426.    tab_dec();
  427.    tab_printf();printf("} // intersection\n");
  428.  
  429.    minx = minx*1.001;  /* Adjust for bounding */
  430.    maxx = maxx*1.001;
  431.    maxy = maxy*1.001;
  432.    miny = -maxy;
  433.    maxz = maxy;
  434.    minz = miny;
  435.  
  436.    tab_printf();printf("bounded_by\n");
  437.    tab_printf();printf("{\n");
  438.    tab_inc();
  439.    tab_printf();printf("box { <%g %g %g>  <%g %g %g> }\n",minx,miny,minz,maxx,maxy,maxz);
  440.    tab_dec();
  441.    tab_printf();printf("}\n");
  442.  
  443.    tab_printf();printf("texture\n");
  444.    tab_printf();printf("{\n");
  445.    tab_inc();
  446.    tab_printf();printf("LatheWorkTex\n");
  447.    tab_dec();
  448.    tab_printf();printf("}\n");
  449.  
  450.    tab_dec();
  451.    tab_printf();printf("} // object\n");
  452.  
  453. } /* lathe_cut_pov10 */
  454.  
  455.  
  456. /* ========================================================= */
  457. static void lathe_cut_pov20(x1, y1, x2, y2, thick)
  458. double x1, y1, x2, y2, thick;
  459. {
  460.    double minx, miny, minz, maxx, maxy, maxz, origin;
  461.  
  462.    if (fabs(x1-x2) < EPSILON)
  463.        if (fabs(thick) > EPSILON)
  464.        x1 = x1 * 1.001;    /* Fudge a flat cone (ring) */
  465.        else
  466.        return;
  467.  
  468.    minx = min(x1,x2);
  469.    maxx = max(x1,x2);
  470.    maxy = max(y1,y2);
  471.    miny = -maxy;
  472.    maxz = maxy;
  473.    minz = miny;
  474.  
  475.    tab_printf();printf("intersection\n");
  476.    tab_printf();printf("{\n");
  477.    tab_inc();
  478.    if (fabs(y1-y2) < EPSILON)
  479.    {
  480.        if (fabs(y1) > EPSILON)
  481.        {
  482.        tab_printf();printf("quadric { Cylinder_X  scale <1 %g %g> }\n", y1, y1);
  483.        }
  484.    }
  485.    else
  486.    {
  487.        if ((fabs(x1) < EPSILON) || (fabs(x2) < EPSILON))
  488.        origin = 0;
  489.        else
  490.        origin=intercept(x1, y1, x2, y2);
  491.        tab_printf();printf("quadric { QCone_X  ");
  492.  
  493.        if (fabs(x1) < EPSILON)
  494.        {printf("scale <%g %g %g>", fabs(origin-x2), y2, y2);}
  495.        else
  496.        {printf("scale <%g %g %g>", fabs(origin-x1), y1, y1);}
  497.        printf("  translate %g*x }\n", origin);
  498.    }
  499.  
  500.    if ((thick > 0.0) && (((y1-thick) > 0.0) || ((y2-thick) > 0.0)))
  501.    {
  502.        if (fabs(y1-y2) < EPSILON)
  503.        {
  504.        if ((y1-thick) > 0.0)
  505.        {
  506.            tab_printf();printf("quadric { Cylinder_X  scale <1, %g %g> inverse }\n", y1-thick, y1-thick);
  507.        }
  508.        }
  509.        else
  510.        {
  511.        if ((fabs(x1) < EPSILON) || (fabs(x2) < EPSILON))
  512.            origin = 0;
  513.        else
  514.            origin = (((y1-thick)/y1)*(origin-x1))+x1;
  515.        tab_printf();printf("quadric { QCone_X  ");
  516.  
  517.        if (fabs(origin-x1) < EPSILON)
  518.            {printf("scale <%g %g %g>", fabs(origin-x2), y2-thick, y2-thick);}
  519.        else
  520.            {printf("scale <%g %g %g>", fabs(origin-x1), y1-thick, y1-thick);}
  521.        printf("  translate %g*x inverse }\n", origin);
  522.        }
  523.    }
  524.  
  525.    tab_printf();printf("box { <%g %g %g>  <%g %g %g> }\n",minx,miny,minz,maxx,maxy,maxz);
  526.  
  527.    minx = minx*1.001;  /* Adjust for bounding */
  528.    maxx = maxx*1.001;
  529.    maxy = maxy*1.001;
  530.    miny = -maxy;
  531.    maxz = maxy;
  532.    minz = miny;
  533.  
  534.    tab_printf();printf("bounded_by\n");
  535.    tab_printf();printf("{\n");
  536.    tab_inc();
  537.    tab_printf();printf("box { <%g %g %g>  <%g %g %g> }\n",minx,miny,minz,maxx,maxy,maxz);
  538.    tab_dec();
  539.    tab_printf();printf("}\n");
  540.  
  541.    tab_printf();printf("texture\n");
  542.    tab_printf();printf("{\n");
  543.    tab_inc();
  544.    tab_printf();printf("LatheWorkTex\n");
  545.    tab_dec();
  546.    tab_printf();printf("}\n");
  547.  
  548.    tab_dec();
  549.    tab_printf();printf("} // intersection\n");
  550.  
  551. } /* lathe_cut_pov20 */
  552.  
  553.  
  554. /* ========================================================= */
  555. static void lathe_tri_raw(x1, y1, x2, y2, thick, slices, colorR, colorG, colorB)
  556.    double x1, y1, x2, y2, thick, colorR, colorG, colorB;
  557.    unsigned char slices;
  558.    {
  559.    double byo, bzo, cy1, cz1, byi, bzi, cy3, cz3;
  560.    double ark, angle;
  561.    double pointy, pointz;
  562.  
  563.    ark= (2 * PI / slices);
  564.    byo = 0;       /* set outside for first pass */
  565.    bzo = y2;
  566.    cy1 = 0;
  567.    cz1 = y1;
  568.    byi = 0;       /* same for inside */
  569.    bzi = y2-thick;
  570.    cy3 = 0;
  571.    cz3 = y1-thick;
  572.    for (angle=ark; angle<(2 * PI); angle+=ark)
  573.        {
  574.        pointy=sin(angle);
  575.        pointz=cos(angle);
  576.        if (y1 > 0)
  577.        {
  578.        if ( colorR >= 0)
  579.            printf("%g %g %g  ", colorR, colorG, colorB);
  580.     /*A*/  printf("%g %g %g  ", x1, (pointy*y1), (pointz*y1));
  581.     /*D*/  printf("%g %g %g  ", x2, byo, bzo );
  582.     /*C*/  printf("%g %g %g\n", x1, cy1, cz1);
  583.        }
  584.        if (y2 > 0)
  585.        {
  586.        if ( colorR >= 0)
  587.            printf("%g %g %g  ", colorR, colorG, colorB);
  588.     /*A*/  printf("%g %g %g  ", x1, (pointy*y1), (pointz*y1) );
  589.     /*B*/  printf("%g %g %g  ", x2, (pointy*y2), (pointz*y2));
  590.     /*D*/  printf("%g %g %g\n", x2, byo, bzo );
  591.        }
  592.        byo  = (pointy*y2); /* update for next pass */
  593.        bzo  = (pointz*y2);
  594.        cy1 = (pointy*y1);
  595.        cz1 = (pointz*y1);
  596.  
  597.        if ((thick >= 0) && (((y1-thick)>0) || ((y2-thick)>0)))
  598.        {
  599.        if ((y1-thick) > 0)
  600.            {
  601.            if ( colorR >= 0)
  602.            printf("%g %g %g  ", colorR, colorG, colorB);
  603.        /*A*/   printf("%g %g %g  ", x1, (pointy*(y1-thick)), (pointz*(y1-thick)) );
  604.        /*D*/   printf("%g %g %g  ", x2, byi, bzi );
  605.        /*C*/   printf("%g %g %g\n", x1, cy3, cz3);
  606.            }
  607.        if ((y2-thick) > 0)
  608.            {
  609.            if ( colorR >= 0)
  610.            printf("%g %g %g  ", colorR, colorG, colorB);
  611.     /*A*/  printf("%g %g %g  ", x1, (pointy*(y1-thick)), (pointz*(y1-thick)) );
  612.     /*B*/  printf("%g %g %g  ", x2, (pointy*(y2-thick)), (pointz*(y2-thick)));
  613.     /*D*/  printf("%g %g %g\n", x2, byi, bzi );
  614.            }
  615.        byi    = (pointy*(y2-thick)); /* update for next pass */
  616.        bzi    = (pointz*(y2-thick));
  617.        cy3 = (pointy*(y1-thick));
  618.        cz3 = (pointz*(y1-thick));
  619.        }
  620.        }
  621.    }
  622.  
  623.  
  624. /* ========================================================= */
  625. static double intercept(x1, y1, x2, y2)
  626. double x1, y1, x2, y2;
  627. {
  628.    return(x2 - ((x2-x1) / (y2-y1) * y2));
  629. } /* intercept */
  630.  
  631.  
  632. /* ========================================================= */
  633. static void  tab_printf(void)
  634. {
  635.    int       k;
  636.    /* Q&D way to do it... */
  637.    for (k=0; k<tab_width*tab_level; k++)
  638.        putchar(' ');
  639. } /* tab_printf */
  640.  
  641.  
  642. /* ========================================================= */
  643. static void  tab_inc()
  644. {
  645.    tab_level++;
  646. } /* tab_inc */
  647.  
  648.  
  649. /* ========================================================= */
  650. static void  tab_dec()
  651. {
  652.    tab_level--;
  653.    if (tab_level < 0)
  654.        tab_level = 0;
  655. } /* tab_dec */
  656.