Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.mso.anu.edu.au/~bessell/FTP/Workshop/applic/readme_asc2dxf Дата изменения: Wed Feb 14 11:08:43 2001 Дата индексирования: Tue Oct 2 14:17:26 2012 Кодировка:

DESCRIPTION OF PROGRAM

asc2dxf.f is fortran program to read a set of x,y coordinates and write
a .dxf file that can be used by the aperture mask cutting program.

Input is in.coo
Output file name (must be 12 characters) is given on line 1 of input file.

There are keywords in dxf files, such as CIRCLE, LINE, POINT that tell
the machine what to do.
The specific tasks that the asc2dxf program enables are
1) to cut on-axis slots for sky comparison where there are no stars of interest.
2) to cut holes at stellar positions or 5 arcsec slots at stellar positions.
The option whether to cut holes or slots at the star positions is set by the
"slot" keyword on line 2 in in.coo

Sample in.coo
*****************************************************************************
N0330_a1.dxf
noslot
line
51 43
58 43
point
15.38 44.32
20.63 58.56
25.24 34.51
34.05 37.58
37.40 33.21
39.61 39.28
41.59 48.53
46.44 51.2
47.23 47.91
48.37 40.32
60.27 64.56
65.82 30.94
********************************************************************************

line 2: slot or other; if slot, cuts 0.8 mm long slot at stellar "point"
positions.
line 3,4,5: slot cut between the following two pairs of x,y coordinates.
Insert as many sets of three lines as needed. These are for sky.
line 6: point; if point, then cuts hole or slot at the following x,y coordinates.
Once "point" is read, assumes all the following x,y coordinates are points.

If other than 1mm slot (= 5 arcsec) required then change fortran program line 57.

Program currently accepts up to 50 "point"s and an indefinite number of "line"s.

The program Aperplates converts ra, dec (given in arcmin from cluster center)
into x and y for drilling aperture plates. The center of the plate is at 43, 43.
(see readme_Aperplates)

The orientation of plate is N to top and W to left
and requires rotator set to PA and a rotation of 90 degrees for DBS.

********************************************************************************
Program asc2dxf
c reads set of x,y coordinates and writes a .dxf file for aperture plate.
character*4 xop1,xop2
character*12 outfile
1 format(1h0/7hSECTION/1h2/8hENTITIES/1h0)
2 format(6hCIRCLE/1h8/1h1/2h62/1h3)
3 format(4hLINE/1h8/1h1/2h62/1h3)
4 format(5hPOINT/1h8/1h1/2h62/1h3)
5 format(2h10/5h43.00/2h20/5h43.00/2h30/5h0.000/2h40/5h43.00/1h0)

6 format(2h10,/,f6.3,/,2h20,/,f6.3,/,2h30/5h0.000)
7 format(2h11,/,f6.3,/,2h21,/,f6.3,/,2h31/5h0.000)
8 format(1h0)
9 format(6hENDSEC/1h0/3hEOF)

10 format(a4)
11 format(a12)
100 open(unit=20,file='in.coo',status='old')
read(20,11) outfile
open(unit=21,file=outfile,status='new')
write(21,1)
write(21,2)
write(21,5)
read(20,10) xop1
if (xop1.eq.'slot') go to 1000
900 read(20,10) xop2
if(xop2.eq.'line') then
write(21,3)
read (20,*) x,y
write(21,6) x,y
read (20,*) x,y
write(21,7) x,y
write(21,8)
go to 900
else
910 do I=1,50
read (20,*,end=10000) x,y
write(21,4)
write(21,6) x,y
write(21,8)
enddo
endif
1000 continue
c SLOTS
901 read(20,10) xop2
if(xop2.eq.'line') then
write(21,3)
read (20,*) x,y
write(21,6) x,y
read (20,*) x,y
write(21,7) x,y
write(21,8)
go to 901
else
911 do I=1,50
read (20,*,end=10000) x,y
write(21,3)
write(21,6) x,y
c
c 0.8 mm slot cut. Change here for different length slot
xx=x+0.8
c
write(21,7) xx,y
write(21,8)
enddo
endif
10000 write(21,9)
end

****************************************************************************
compile program as follows
f77 asc2dxf -o asc2dxf