home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / d / fortranfnd / !WimpPoly / f77 / WPolyPic < prev    next >
Encoding:
Text File  |  1991-12-12  |  2.0 KB  |  40 lines
  1.       PARAMETER (MXFACE=400, MXVTF=10, MAXVTX=360, MAXHIN=180)       
  2. C             MXFACE maximum no of faces  MXVTF max no of vertices in a face
  3. C             MAXVTX maximum number of vertices altogether
  4. C             MAXHIN maximum number of hinges
  5.       COMMON/PolyD/NFACES,MAXVF,NDIH,
  6.      1             NNET,NETVX(MXFACE),NETNV(MXVTF,MXFACE),
  7.      2            NVTOT,NVTX(MXFACE),IVTX(MXVTF,MXFACE),
  8.      3           NHINGS,IHING(MAXHIN,4),HINANG(MAXHIN),
  9.      4  X(MAXVTX),Y(MAXVTX),Z(MAXVTX),
  10.      5  INDX(MXFACE),ZFACE(MXFACE),DCFACE(3,MXFACE),NFPLOT
  11. C           NFACES number of faces in the solid
  12. C           MAXVF max number of vertices for a face 
  13. C           NDIH number of dihedral angles
  14. C           NNET number of polygons in the net
  15. C           NETVX(I) number of vertices in the Ith polygon
  16. C           NETNV(I,J) vertex numbers for the Ith polygon
  17. C           NVTOT total number of vertices net and solid
  18. C           NVTX(I) number of vertices for Ith face
  19. C           IVTX(I,J) vertex numbers for the Ith face
  20. C           NHINGS number of hinges
  21. C           IHING(I,4) face and vertex no.s for each hinge
  22. C           HINANG(I) hinge angles      
  23. C           X(J),Y(J),Z(J) spatial co-ordinates of vertices derived variables
  24. C           INDX(I) Ith face to plot   1 to NFPLOT=number to be plotted
  25. C           ZFACE(I) Z co-ordinate of face centre
  26. C           DCFACE(3,I) Direction cosines of normal to the faces
  27. C     
  28.       COMMON/PIC/IX0,IY0,X0S,Y0S,Z0S,X0N,Y0N,ISTK3D,ISTKNT,
  29.      1           ROTX,ROTY,ROTZ,SCLONE,SCLNET,SCL3D
  30. C             IX0,IY0 origin of polyhedra on screen
  31. C             X0S,Y0S,Z0S   centre of solid
  32. C             X0N,Y0N       centre of net
  33. C             ISTK3D=0 for 3D solid, =1 for wire frame
  34. C             ISTKNT=0 for filled face for net, =1 for wire frame
  35. C             ROTX,ROTY,ROTZ X,Y,Z rotations angles degrees
  36. C             SCLONE  scale to convert original co-ords to unit size
  37. C             SCLNET   User defined scale to be applied to net
  38. C             SCL3D    User defined scale to be applied to solid
  39.  
  40.