home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / graphics / blob1.zip / RAW_DXF.BAS < prev    next >
BASIC Source File  |  1994-02-09  |  1KB  |  64 lines
  1.  ' RAW TO DXF TRANSLATOR        by Alfonso Hermida   2/8/94
  2.  '                              Pi Squared BBS (301)725-9080
  3.  '                              CIS 72114,2060  (GraphDev Forum)
  4.  '
  5.  ' Compatible with QBasic and QuickBasic
  6.  '----------------------------------------------------------------
  7.  
  8.   CLS
  9.  LOCATE 1, 1: PRINT "RAW to DXF Translator by Alfonso Hermida"
  10.  
  11.  LOCATE 3, 1
  12.  INPUT "Enter RAW data file name (leave blank to quit)", RAW$
  13.  IF RAW$ = "" THEN END
  14.  DOT = INSTR(RAW$, ".")
  15.  IF DOT = 0 THEN RAW$ = RAW$ + ".raw"
  16.  DOT = INSTR(RAW$, ".")
  17.  ROOT$ = LEFT$(RAW$, DOT - 1)
  18.  
  19.  INPUT "Enter name for DXF        ", DXF$
  20.  IF DXF$ = "" THEN DXF$ = ROOT$
  21.  IF INSTR(DXF$, ".") = 0 THEN DXF$ = DXF$ + ".dxf"
  22.  
  23.  
  24.  OPEN RAW$ FOR INPUT AS #1
  25.  OPEN DXF$ FOR OUTPUT AS #2
  26.  
  27.  PRINT #2, 0
  28.  PRINT #2, "SECTION"
  29.  PRINT #2, 2
  30.  PRINT #2, "ENTITIES"
  31.  
  32.  DO WHILE NOT EOF(1)
  33.  
  34.    PRINT #2, 0
  35.    PRINT #2, "3DFACE"
  36.    INPUT #1, x, y, z
  37.    PRINT #2, 10: PRINT #2, x
  38.    PRINT #2, 20: PRINT #2, y
  39.    PRINT #2, 30: PRINT #2, z
  40.  
  41.    INPUT #1, x, y, z
  42.    PRINT #2, 11: PRINT #2, x
  43.    PRINT #2, 21: PRINT #2, y
  44.    PRINT #2, 31: PRINT #2, z
  45.  
  46.    INPUT #1, x, y, z
  47.    PRINT #2, 12: PRINT #2, x
  48.    PRINT #2, 22: PRINT #2, y
  49.    PRINT #2, 32: PRINT #2, z
  50.  
  51.    ' repeat las point!
  52.    PRINT #2, 13: PRINT #2, x
  53.    PRINT #2, 23: PRINT #2, y
  54.    PRINT #2, 33: PRINT #2, z
  55.  
  56.  LOOP
  57.  CLOSE #1
  58.   PRINT #2, 0
  59.   PRINT #2, "ENDSEC"
  60.   PRINT #2, 0
  61.   PRINT #2, "EOF"
  62.  CLOSE #2
  63.  
  64.