home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource4 / 293_01 / ang1.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-08-25  |  21.0 KB  |  759 lines
  1. /********************  ang.c  ******************************
  2.  
  3.    Three dimensional surface reconstruction program
  4.  
  5.    This program assumes that the views from the main axis
  6.    directions were done thus an angle view between two main
  7.    axis views can be created from the depth_code viewa(floating
  8.    point). 
  9.  
  10.  Daniel Geist
  11.  Michael W. Vannier
  12.  
  13.  Mallinckrodt Institute of Radiology
  14.  Washington University School of Medicine
  15.  510 S. Kingshighway Blvd.
  16.  St. Louis, Mo. 63110
  17.  
  18.  Note:  This program is intended for the private non-commercial
  19.  use of interested individuals to provide a fuller explanation of
  20.  the algorithms described in "Three dimensional reconstruction in
  21.  Medical Imaging" by D. Geist and M. Vannier.
  22.  
  23.  1988
  24.  
  25.  A.Wallin
  26.  -Command line input
  27.  -Threshold on gradient shading, background not used for gradient.
  28.  -Combination of gradient and distance is possible.
  29.  -Distance or gradient image turned off
  30.  -Straight views (0, 90, 180 etc) possible. (0 = ydis2.dat, 90 = xdis1.dat
  31.   180 = ydis1.dat, 270 = xdis2.dat)
  32.  -Incremental views possible
  33.  -Views always head up
  34.  *************************************************************/
  35.  
  36. #include <stdio.h>
  37. #include <math.h>
  38. #include <ctype.h>
  39. #define FLOAT_LINE 256*sizeof(float)
  40. #define PI 3.141592653
  41.  
  42. /* the structure below is the data for a point on the surface projected
  43.    on the view plane                        */
  44. typedef struct DIS_REC {
  45.       float dist;            /*distance from view plane */
  46.       int indXY;             /* index of data on main axis view */
  47.       char XY;               /* Which main axis view obtained from (X or Y)*/
  48. };
  49.  
  50. struct DIS_REC distances[256]; /* one projected line */
  51.  
  52. int NLINES,IXmax,IYmax,xinc,yinc;
  53. int (*xdir)(),(*ydir)();
  54. double THETA,cosTheta,sinTheta,tgnTheta;
  55. float fxbuf[3][256],fybuf[3][256];/* input buffers */
  56.  
  57. char *usestr = "Usage: ang [-a] [-r] [-g] [-n(d|g)] [-h] [-d]";
  58. float GRAD_THRESHOLD = 10.0;
  59. int  number_pic = 1;
  60. int  dispmode = 3;
  61. float dist_weight;
  62.  
  63. /*  output files  */
  64. char fng[13],fnd[13],xfile[13],yfile[13],DR;
  65.  
  66. succ(i)
  67. int i;
  68. {return(i==2?0:i+1);}
  69.  
  70. prev(i)
  71. int i;
  72. {return(i==0?2:i-1);}
  73.  
  74. forward(i)
  75. int i;
  76. { return(i); }
  77.  
  78. backward(i,start)
  79. int i;
  80. {return(start-i); }
  81.  
  82. /* PUTD - fill a DIS_REC with values */
  83. putd(pdis,D,i,xy_sym)
  84. struct DIS_REC *pdis;
  85. float D;
  86. int i,xy_sym;
  87.  
  88. { pdis->dist=D;
  89.   pdis->indXY=i;
  90.   pdis->XY=xy_sym;
  91. }
  92.  
  93. /* take one line from X and Y views and create a projrcted line */
  94. getdistances(linex,liney)
  95. float linex[],liney[];
  96.  
  97. { int i,IND,X,Y;
  98.   float D;
  99.   float Dhole;
  100.   float INDf;
  101.   int   holex, holey;
  102.   float dx1, dx2, dx;
  103.   float dy1, dy2, dy;
  104.   float temp1, temp2;
  105.  
  106.   for(i=0;i<256;i++) distances[i].XY=0;
  107.   /* project Y-data onto image line */
  108.   for(i=0;i<256;i++) if(liney[i] < 256.0){
  109.        X=(*ydir)(i,255);
  110.        INDf=IXmax -(X*sinTheta-liney[i]*cosTheta);
  111.        D=liney[i]/sinTheta+(X-liney[i]/tgnTheta)*cosTheta;
  112.        /*  Do the two nearest neighbours */
  113.        IND = INDf;
  114.        if((IND>=0) && (IND<256)){
  115.            if(distances[IND].XY==0)putd(&distances[IND],D,i,1);
  116.            else if(distances[IND].dist>D)putd(&distances[IND],D,i,1);
  117.        }
  118.        IND = INDf + 0.5;
  119.        if((IND>=0) && (IND<256)){
  120.            if(distances[IND].XY==0)putd(&distances[IND],D,i,1);
  121.            else if(distances[IND].dist>D)putd(&distances[IND],D,i,1);
  122.        }
  123.   }
  124.  
  125.   /*project X-data onto image plane */
  126.  for(i=0;i<256;i++) if(linex[i] < 256.0){
  127.        Y=(*xdir)(i,255);
  128.        D=Y/sinTheta+(linex[i]-Y/tgnTheta)*cosTheta;
  129.        INDf=IXmax-(linex[i]*sinTheta-Y*cosTheta);
  130.        /*  Do the two nearest neighbours */
  131.        IND = INDf;
  132.        if((IND>=0) && (IND<256)){
  133.            if(distances[IND].XY==0)putd(&distances[IND],D,i,2);
  134.            else if(distances[IND].dist>D)putd(&distances[IND],D,i,2);
  135.        }
  136.        IND = INDf + 0.5;
  137.        if((IND>=0) && (IND<256)){
  138.            if(distances[IND].XY==0)putd(&distances[IND],D,i,2);
  139.            else if(distances[IND].dist>D)putd(&distances[IND],D,i,2);
  140.        }
  141.   }
  142.  
  143.   /* fill holes due to low resolution */
  144.   if (dispmode & 4)
  145.     /* test neighbours */
  146.     for(i=1;i<255;i++)
  147.       if( (distances[i].XY==0) && (distances[i+1].XY!=0) &&
  148.             (distances[i-1].XY!=0))
  149.              putd(&distances[i],distances[i-1].dist,
  150.                    distances[i-1].indXY,(int)distances[i-1].XY);
  151.                    
  152. }
  153.  
  154. /* returns gradient shade in point given the variations of the surface */
  155. unsigned char grad(x1,x2,y1,y2,z1,z2,x_fac,y_fac,z_fac)
  156. float x1,x2,y1,y2,z1,z2;
  157. int x_fac,y_fac,z_fac;
  158. {float gx,gy,gz,G,nx,ny;
  159.  unsigned char gxint;
  160.      /* components of gradient */
  161.   gx=(x2-x1)/x_fac;
  162.   gy=(y2-y1)/y_fac;
  163.   gz=(z1-z2)/z_fac;
  164.   G=sqrt(gx*gx+gy*gy+gz*gz);
  165.      /*compute nx,ny normalized x,y component of gradient */
  166.   nx=gx/G;
  167.   ny=gy/G;
  168.   gxint=255*(nx*cosTheta+ny*sinTheta)+0.5; /*scale gradient shade by 256 */
  169.   return(gxint);
  170. }
  171.  
  172. doline(linex,linex1,linex2,liney,liney1,liney2,z_fac,fg,fd)
  173. float linex[],linex1[],linex2[],liney[],liney1[],liney2[];
  174. int z_fac;
  175. FILE *fg,*fd;
  176.  
  177. { int i;
  178.   unsigned char lined[256],lineg[256];
  179.   float x1, x2, y1, y2, z1, z2;
  180.   int   x_fac, y_fac;
  181.  
  182.       /* empty bit on image line */
  183.   for(i=0;i<256;i++)
  184.     if (distances[i].XY==0)
  185.       lineg[i]=lined[i]=0;
  186.     else {
  187.       if (dispmode & 1)
  188.         lined[i]=(distances[i].dist<256)?255-distances[i].dist+0.5:0;
  189.       /* bit on image line projected from Y view */
  190.       if (dispmode & 2) {
  191.         if(distances[i].XY==1) switch(distances[i].indXY){
  192.            case 0:
  193.              lineg[i]=
  194.                    grad(liney[1]*yinc,liney[0]*yinc,(float)0,(float)2,
  195.                         liney1[0],liney2[0],1,2,z_fac);
  196.              break;
  197.            case 255:
  198.              lineg[i]=
  199.                     grad(liney[255]*yinc,liney[254]*yinc,(float)0,(float)2,
  200.                          liney1[255],liney2[255],1,2,z_fac);
  201.              break;
  202.            default:
  203.              x1 = liney[distances[i].indXY+yinc];
  204.              x2 = liney[distances[i].indXY-yinc];
  205.              x_fac = 2;
  206.              y1 = 0.0;
  207.              y2 = 2.0;
  208.              y_fac = 2;
  209.              z1 = liney1[distances[i].indXY];
  210.              z2 = liney2[distances[i].indXY];
  211.              if (x1 > 255.0) {
  212.                x1 = liney[distances[i].indXY];
  213.                x_fac = 1;
  214.              }
  215.              else if (x2 > 255.0) {
  216.                x2 = liney[distances[i].indXY];
  217.                x_fac = 1;
  218.              }
  219.              else if (fabs(x2 - x1) > GRAD_THRESHOLD) {
  220.                if (fabs(liney[distances[i].indXY] - x1) < GRAD_THRESHOLD/2.0 &&
  221.                    x2 < liney[distances[i].indXY]) {
  222.                  x2 = liney[distances[i].indXY];
  223.                  x_fac = 1;
  224.                }
  225.                else if (fabs(x2 - liney[distances[i].indXY]) <
  226.                         GRAD_THRESHOLD/2.0 && x1 < liney[distances[i].indXY]) {
  227.                  x1 = liney[distances[i].indXY];
  228.                  x_fac = 1;
  229.                }
  230.              }
  231.              if (z1 > 255.0) {
  232.                z1 = liney[distances[i].indXY];
  233.                z_fac = 1;
  234.              }
  235.              else if (z2 > 255.0) {
  236.                z2 = liney[distances[i].indXY];
  237.                z_fac = 1;
  238.              }
  239.              else if (fabs(z2 - z1) > GRAD_THRESHOLD) {
  240.                if (fabs(liney[distances[i].indXY] - z1) < GRAD_THRESHOLD/2.0 &&
  241.                  z2 < liney[distances[i].indXY]) {
  242.                  z2 = liney[distances[i].indXY];
  243.                  z_fac = 1;
  244.                }
  245.                else if (fabs(z2 - liney[distances[i].indXY]) <
  246.                         GRAD_THRESHOLD/2.0 && z1 < liney[distances[i].indXY]) {
  247.                  z1 = liney[distances[i].indXY];
  248.                  z_fac = 1;
  249.                }
  250.              }
  251.              lineg[i]= grad(x1, x2, y1, y2, z1, z2, x_fac, y_fac, z_fac);
  252.              break;
  253.         }
  254.         /* bit on image line projected from X view */
  255.         else 
  256.           switch(distances[i].indXY){
  257.            case 0:
  258.              lineg[i]=
  259.                    grad((float)0,(float)2,linex[1]*xinc,linex[0]*xinc,
  260.                         linex1[0],linex2[0],2,1,z_fac);
  261.              break;
  262.            case 255:
  263.              lineg[i]=
  264.                     grad((float)0,(float)2,linex[255]*xinc,linex[254]*xinc,
  265.                          linex1[255],linex2[255],2,1,z_fac);
  266.              break;
  267.            default:
  268.              x1 = 0.0;
  269.              x2 = 2.0;
  270.              x_fac = 2;
  271.              y1 = linex[distances[i].indXY+xinc];
  272.              y2 = linex[distances[i].indXY-xinc];
  273.              y_fac = 2;
  274.              z1 = linex1[distances[i].indXY];
  275.              z2 = linex2[distances[i].indXY];
  276.              if (y1 > 255.0) {
  277.                y1 = linex[distances[i].indXY];
  278.                y_fac = 1;
  279.              }
  280.              else if (y2 > 255.0) {
  281.                y2 = linex[distances[i].indXY];
  282.                y_fac = 1;
  283.              }
  284.              else if (fabs(y2 - y1) > GRAD_THRESHOLD) {
  285.                if (fabs(linex[distances[i].indXY] - y1) < GRAD_THRESHOLD/2.0 &&
  286.                  y2 < linex[distances[i].indXY]) {
  287.                  y2 = linex[distances[i].indXY];
  288.                  y_fac = 1;
  289.                }
  290.                else if (fabs(y2 - linex[distances[i].indXY]) <
  291.                         GRAD_THRESHOLD/2.0 && y1 < linex[distances[i].indXY]) {
  292.                  y1 = linex[distances[i].indXY];
  293.                  y_fac = 1;
  294.                }
  295.              }
  296.              if (z1 > 255.0) {
  297.                z1 = linex[distances[i].indXY];
  298.                z_fac = 1;
  299.              }
  300.              else if (z2 > 255.0) {
  301.                z2 = linex[distances[i].indXY];
  302.                z_fac = 1;
  303.              }
  304.              else if (fabs(z2 - z1) > GRAD_THRESHOLD) {
  305.                if (fabs(linex[distances[i].indXY] - z1) < GRAD_THRESHOLD/2.0 &&
  306.                  z2 < linex[distances[i].indXY]) {
  307.                  z2 = linex[distances[i].indXY];
  308.                  z_fac = 1;
  309.                }
  310.                else if (fabs(z2 - linex[distances[i].indXY]) <
  311.                         GRAD_THRESHOLD/2.0 && z1 < linex[distances[i].indXY]) {
  312.                  z1 = linex[distances[i].indXY];
  313.                  z_fac = 1;
  314.                }
  315.              }
  316.              lineg[i]= grad(x1, x2, y1, y2, z1, z2, x_fac, y_fac, z_fac);
  317.              break;
  318.           }
  319.         if (dispmode & 8) {
  320.           /* combine with distance */
  321.           lineg[i] = (float) lineg[i] * (1.0 - dist_weight) +
  322.                      ((distances[i].dist < 255.0) ? 
  323.                         (255.0-distances[i].dist) : 0.0) * dist_weight;
  324.         }
  325.  
  326.       }
  327.   }
  328.  
  329.   if (fg != NULL) fwrite(lineg,sizeof(unsigned char),256,fg);
  330.   if (fd != NULL) fwrite(lined,sizeof(unsigned char),256,fd);
  331. }
  332.  
  333.  
  334.  
  335.  
  336.  
  337. dostrline(linex,linex1,linex2,z_fac,fg,fd)
  338. float linex[],linex1[],linex2[];
  339. int z_fac;
  340. FILE *fg,*fd;
  341.  
  342. { int i;
  343.   unsigned char lined[256],lineg[256];
  344.   float x1, x2, y1, y2, z1, z2;
  345.   int   x_fac, y_fac;
  346.  
  347.   if(linex[0] > 255.0)
  348.     lineg[0] = lined[0] = 0;
  349.   else {
  350.     if (dispmode & 1)
  351.       lined[0] = 255.5 - linex[0];
  352.     if (dispmode & 2) {
  353.       lineg[0] = grad(0.0, 2.0, linex[0], linex[1], linex1[0], linex2[0],
  354.                       1, 2, z_fac);
  355.       if (dispmode & 8) {
  356.         lineg[i] = (float) lineg[0] * (1.0 - dist_weight) + 
  357.                    (255.0-linex[0]) * dist_weight;
  358.         }
  359.     }
  360.    }
  361.  
  362.    for(i = 1; i < 255; i++)
  363.     if(linex[i] > 255.0)
  364.       lineg[i] = lined[i] = 0;
  365.     else {
  366.       if (dispmode & 1)
  367.         lined[i] = 255.5 - linex[i];
  368.       if (dispmode & 2) {
  369.         x1 = 0.0;
  370.         x2 = 2.0;
  371.         x_fac = 2;
  372.         y1 = linex[i-1];
  373.         y2 = linex[i+1];
  374.         y_fac = 2;
  375.         z1 = linex1[i];
  376.         z2 = linex2[i];
  377.         if (y1 > 255.0) {
  378.           y1 = linex[i];
  379.           y_fac = 1;
  380.         }
  381.         else if (y2 > 255.0) {
  382.           y2 = linex[i];
  383.           y_fac = 1;
  384.         }
  385.         else if (fabs(y2 - y1) > GRAD_THRESHOLD) {
  386.           if (fabs(linex[i] - y1) < GRAD_THRESHOLD/2. && y2 < linex[i]) {
  387.             y2 = linex[i];
  388.             y_fac = 1;
  389.           }
  390.           else if ((y2 - linex[i]) < GRAD_THRESHOLD/2. && y1 > linex[i]) {
  391.             y1 = linex[i];
  392.             y_fac = 1;
  393.           }
  394.         }
  395.         if (z1 > 255.0) {
  396.           z1 = linex[i];
  397.           z_fac = 1;
  398.         }
  399.         else if (z2 > 255.0) {
  400.           z2 = linex[i];
  401.           z_fac = 1;
  402.         }
  403.         else if (fabs(z2 - z1) > GRAD_THRESHOLD) {
  404.           if (fabs(linex[i] - z1) < GRAD_THRESHOLD/2. && z2 < linex[i]) {
  405.             z2 = linex[i];
  406.             z_fac = 1;
  407.           }
  408.           else if (fabs(z2 - linex[i]) < GRAD_THRESHOLD/2. && z1 < linex[i]) {
  409.             z1 = linex[i];
  410.             z_fac = 1;
  411.           }
  412.         }
  413.         lineg[i] = grad(x1, x2, y1, y2, z1, z2, x_fac, y_fac, z_fac);
  414.         if (dispmode & 8) {
  415.           /* combine with distance */
  416.           lineg[i] = (float) lineg[i] * (1.0 - dist_weight) + 
  417.                      (255.0-linex[i]) * dist_weight;
  418.         }
  419.       }
  420.     }
  421.  
  422.   if (linex[255] > 255.0)
  423.     lineg[255] = lined[255] = 0;
  424.   else {
  425.     if (dispmode & 1)
  426.       lined[255] = 255.5 - linex[255];
  427.     if (dispmode & 2) {
  428.       lineg[255] = grad(0.0, 2.0, linex[254], linex[255], linex1[255], linex2[255],
  429.                         1, 2, z_fac);
  430.       if (dispmode & 8) {
  431.         lineg[i] = (float) lineg[255] * (1.0 - dist_weight) + 
  432.                    (255.0-linex[255]) * dist_weight;
  433.         }
  434.  
  435.     }
  436.    }
  437.  
  438.  
  439.   if (fg != NULL) fwrite(lineg,sizeof(unsigned char),256,fg);
  440.   if (fd != NULL) fwrite(lined,sizeof(unsigned char),256,fd);
  441.  
  442. }
  443.  
  444.  
  445.  
  446.  
  447. doviews()
  448. {
  449.  FILE *fg,*fd,*fx,*fy;
  450.  int z,i,j,k,mid;
  451.  
  452.  mid=1;
  453.  
  454.  fd = fg = NULL;
  455.  if(dispmode & 1) {
  456.    if ((fd=fopen(fnd,"wb")) == NULL) {
  457.      printf("Error opening %s\n", fnd);
  458.      exit(1);
  459.    }
  460.    printf("Created %s\n", fnd);
  461.  }
  462.  if (dispmode & 2) {
  463.    if ((fg=fopen(fng,"wb")) == NULL) {
  464.      printf("Error opening %s\n", fng);
  465.      exit(1);
  466.    }
  467.    printf("Created %s\n", fng);
  468.  }
  469.  if ((fx=fopen(xfile,"rb")) == NULL || (fy=fopen(yfile,"rb")) == NULL) {
  470.    printf("Error opening %s or %s\n", xfile, yfile);
  471.    exit(1);
  472.  }
  473.  
  474. /*read first three lines */
  475.  for(i=0;i<3;i++){
  476.      fseek(fx,(long)FLOAT_LINE*i,SEEK_SET);
  477.      fread(fxbuf[i],1,FLOAT_LINE,fx);
  478.      fseek(fy,(long)FLOAT_LINE*i,SEEK_SET);
  479.      fread(fybuf[i],1,FLOAT_LINE,fy);
  480.  }
  481.  
  482.  /* do first line (forward differene)*/
  483.  getdistances(fxbuf[0],fybuf[0]);
  484.  doline(fxbuf[0],fxbuf[0],fxbuf[1],fybuf[0],fybuf[0],fybuf[1],1,fg,fd);
  485.  
  486.  /* do middle lines (central diffrence) */
  487.  for(z=0;z<(NLINES-2);z++){      /*for each slice */
  488.      getdistances(fxbuf[mid],fybuf[mid]);
  489.      doline(fxbuf[mid],fxbuf[prev(mid)],fxbuf[succ(mid)],
  490.             fybuf[mid],fybuf[prev(mid)],fybuf[succ(mid)],2,fg,fd);
  491.      fseek(fx,(long)FLOAT_LINE*i,SEEK_SET);
  492.      fseek(fy,(long)FLOAT_LINE*i,SEEK_SET);
  493.      i++;
  494.      fread(fxbuf[prev(mid)],1,FLOAT_LINE,fx);
  495.      fread(fybuf[prev(mid)],1,FLOAT_LINE,fy);
  496.      mid=succ(mid);
  497.      printf(" line %d\r", z+2);
  498.  }
  499.  printf("\n");
  500.  
  501.  /* do last line (backward difference)*/
  502.  getdistances(fxbuf[mid],fybuf[mid]);
  503.  doline(fxbuf[mid],fxbuf[prev(mid)],fxbuf[prev(mid)],
  504.             fybuf[mid],fybuf[prev(mid)],fybuf[prev(mid)],1,fg,fd);
  505.  
  506.  if (fg != NULL) fclose(fg);
  507.  if (fd != NULL) fclose(fd);
  508.  fclose(fx);
  509.  fclose(fy);
  510. }
  511.  
  512. dostrview()
  513. {
  514.  FILE *fg,*fd,*fx;
  515.  int z,i,j,k,mid;
  516.  
  517.  mid=1;
  518.  
  519.  fd = fg = NULL;
  520.  if(dispmode & 1) {
  521.    if ((fd=fopen(fnd,"wb")) == NULL) {
  522.      printf("Error opening %s\n", fnd);
  523.      exit(1);
  524.    }
  525.    printf("Created %s\n", fnd);
  526.  }
  527.  if (dispmode & 2) {
  528.    if ((fg=fopen(fng,"wb")) == NULL) {
  529.      printf("Error opening %s\n", fng);
  530.      exit(1);
  531.    }
  532.    printf("Created %s\n", fng);
  533.  }
  534.  if ((fx=fopen(xfile,"rb")) == NULL) {
  535.    printf("Error opening %s\n", xfile);
  536.    exit(1);
  537.  }
  538.  
  539. /*read first three lines */
  540.  for(i=0;i<3;i++) {
  541.    fseek(fx,(long)FLOAT_LINE*i,SEEK_SET);
  542.    fread(fxbuf[i],1,FLOAT_LINE,fx);
  543.  }
  544.  
  545.  /* do first line (forward differene)*/
  546.  dostrline(fxbuf[0], fxbuf[0], fxbuf[1], 1, fg, fd);
  547.  
  548.  /* do middle lines (central diffrence) */
  549.  for(z=0;z<(NLINES-2);z++){      /*for each slice */
  550.      dostrline(fxbuf[mid],fxbuf[prev(mid)],fxbuf[succ(mid)],2,fg,fd);
  551.      fseek(fx,(long)FLOAT_LINE*i,SEEK_SET);
  552.      i++;
  553.      fread(fxbuf[prev(mid)],1,FLOAT_LINE,fx);
  554.      mid=succ(mid);
  555.      printf(" line %d\r",z+2);
  556.  }
  557.  printf("\n");
  558.  
  559.  /* do last line (backward difference)*/
  560.  dostrline(fxbuf[mid],fxbuf[prev(mid)],fxbuf[prev(mid)],
  561.            1,fg,fd);
  562.  
  563.  if (fg != NULL) fclose(fg);
  564.  if (fd != NULL) fclose(fd);
  565.  fclose(fx);
  566. }
  567.  
  568. getang(ang)
  569. int ang;
  570. {
  571.   sprintf(fng,"gang%03d.out",ang);
  572.   sprintf(fnd,"dang%03d.out",ang);
  573.   if( ( ang > 0) && ( ang < 90) ){
  574.        xdir=forward;
  575.        ydir=backward;
  576.        sprintf(xfile,"%c:ydis2.dat",DR);
  577.        sprintf(yfile,"%c:xdis1.dat",DR);
  578.        xinc=1;
  579.        yinc=-1;
  580.    }
  581.    else if( ( ang > 90) && ( ang < 180) ){
  582.        xdir=forward;
  583.        ydir=backward;
  584.        sprintf(xfile,"%c:xdis1.dat",DR);
  585.        sprintf(yfile,"%c:ydis1.dat",DR);
  586.        xinc=1;
  587.        yinc=-1;
  588.        ang-=90;
  589.    }
  590.    else if( ( ang > 180) && ( ang < 270) ){
  591.        xdir=forward;
  592.        ydir=backward;
  593.        sprintf(xfile,"%c:ydis1.dat",DR);
  594.        sprintf(yfile,"%c:xdis2.dat",DR);
  595.        xinc=1;
  596.        yinc=-1;
  597.        ang-=180;
  598.    }
  599.    else if( ( ang > 270) && ( ang < 360) ){
  600.        xdir=forward;
  601.        ydir=backward;
  602.        sprintf(xfile,"%c:xdis2.dat",DR);
  603.        sprintf(yfile,"%c:ydis2.dat",DR);
  604.        xinc=1;
  605.        yinc=-1;
  606.        ang-=270;
  607.    }
  608.    else if (ang == 0) {
  609.        xdir=forward;
  610.        sprintf(xfile,"%c:ydis2.dat",DR);
  611.        xinc=1;
  612.        cosTheta = 1.0;
  613.        sinTheta = 0.0;
  614.        return(0);
  615.    }
  616.    else if (ang == 90) {
  617.        xdir=forward;
  618.        sprintf(xfile,"%c:xdis1.dat",DR);
  619.        xinc=1;
  620.        cosTheta = 1.0;
  621.        sinTheta = 0.0;
  622.        return(0);
  623.    }
  624.    else if (ang == 180) {
  625.        xdir=forward;
  626.        sprintf(xfile,"%c:ydis1.dat",DR);
  627.        xinc=1;
  628.        cosTheta = 1.0;
  629.        sinTheta = 0.0;
  630.        return(0);
  631.    }
  632.    else if (ang == 270) {
  633.        xdir=forward;
  634.        sprintf(xfile,"%c:xdis2.dat",DR);
  635.        xinc=1;
  636.        cosTheta = 1.0;
  637.        sinTheta = 0.0;
  638.        return(0);
  639.    }
  640.    else {
  641.        printf(" Bad angle\n");
  642.        exit(1);
  643.   }
  644.   IXmax = 127.5 * (1.0 + sqrt(2.0) * sin(((double) ang - 45.0) * PI / 180.0));
  645.   THETA=(double)ang * PI/180;
  646.   sinTheta=sin(THETA);
  647.   cosTheta=cos(THETA);
  648.   tgnTheta=sinTheta/cosTheta;
  649. }
  650.  
  651. /**********************************************************/
  652. /**** MAIN ***** MAIN ***** MAIN ***** MAIN ***** MAIN ****/
  653. /**********************************************************/
  654. /* Command line input:
  655.    ang [-a] [-r] [-g] [-n(d|g)] [-h] [-d]
  656.    -a  : angle (no default)
  657.    -r  : number of output images (default: 1)
  658.    -g  : threshold for gradient (default: 3.0)
  659.    -n  : not making distance (d) or gradient (g) image
  660.    -h  : filling holes
  661.    -d  : weight for distance combined with the gradient
  662.  */
  663.  
  664. main(argc, argv)
  665. int argc;
  666. char *argv[];
  667.  
  668. {
  669.   char filname[13];
  670.   FILE *par;
  671.   int ANG;
  672.   int i;
  673.  
  674.  /* first get some parameters */
  675.  if ((par=fopen("param.dat","r")) == NULL) {
  676.    printf("Error opening PARAM.DAT\n");
  677.    exit(1);
  678.  }
  679.  fscanf(par,"%c %d",&DR,&NLINES);
  680.  fclose(par);
  681.  if (argc != 1) {
  682.    for (argc--; argc > 0; argc--) {
  683.      if (**++argv == '-' || **argv == '/') {
  684.        switch (tolower(*(*argv+1))) {
  685.          case 'a':
  686.            ANG = atoi(*argv+2);
  687.            break;
  688.          case 'r':
  689.            number_pic = atoi(*argv+2);
  690.            break;
  691.          case 'g':
  692.            GRAD_THRESHOLD = atof(*argv+2);
  693.            break;
  694.          case 'd':
  695.            dispmode |= 8;
  696.            if (*(*argv+2) != '\0')
  697.              if ((dist_weight = atof(*argv+2)) < 0.0 || dist_weight > 1.0)
  698.                dist_weight = 0.5;
  699.            break;
  700.          case 'n':
  701.            switch (tolower(*(*argv+2))) {
  702.              case 'd':
  703.                dispmode &= 0xfe;
  704.                break;
  705.              case 'g':
  706.                dispmode &= 0xfd;
  707.                break;
  708.              default:
  709.                usage();
  710.            }
  711.            break;
  712.            case 'h':
  713.              dispmode |= 4;
  714.              break;
  715.          default:
  716.            usage();         
  717.        }
  718.      }
  719.      else
  720.        usage();
  721.    }
  722.  }
  723.  else {
  724.    printf("Enter angle: ");
  725.    scanf("%d", &ANG);
  726.    if (ANG != 0) {
  727.      printf("Enter number of rotations: ");
  728.      scanf("%d", number_pic);
  729.    }
  730.  }
  731.  
  732.  if (number_pic <= 0) {
  733.    printf("number_pic should be larger than 0!\n");
  734.    exit(1);
  735.  }
  736.  if (GRAD_THRESHOLD <= 1.0) {
  737.    printf("Gradient threshold should be larger than 1.0!\n");
  738.    exit(1);
  739.  }
  740.  while (ANG < 0) ANG = 360 - ANG;
  741.  if (ANG == 0 && number_pic > 1) number_pic = 1;
  742.  
  743.  for (i = 1; i <= number_pic; i++) {
  744.    getang(ANG*i % 360);
  745.    if (ANG*i % 90 != 0)
  746.      doviews();
  747.    else
  748.      dostrview((ANG % 360) / 90);
  749.  }
  750.  
  751. }
  752.  
  753.  
  754. usage()
  755. {
  756.   printf("%s\n", usestr);
  757.   exit(1);
  758. }
  759.