home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
windows3
/
irt52.zip
/
EXAMPLE.IRT
next >
Wrap
Text File
|
1994-01-05
|
1KB
|
49 lines
;
; TO GET STARTED:
;
; Click on Run in the menu above. Then click on
; the Graph 1 window and try the Display Menu.
;
; Activate HELP for more Information
; In particular, read and follow the tutorial
; carefully. IRT is a very powerful tool,
; and like all such tools it takes a little
; time to master.
;
; Example -- Simple Newtonian Telescope
;
; set title for graphics
_ti='Example - Spherical Aberration'
; point object at effectively infinity
objp,0.,0.,1.e12,400,6328.
; circular pupil, random ray distribution
pupcr,0.,50.
; displace origin 1000mm down
disp,0,0,-1000.
; spherical mirror of radius 2000
conic,0.,2000.
mirror
; move origin back up
disp,0,0,700.
; rotate coordinates 45 degrees about y axis
rot,0,-45.,0
; flat diagonal mirror
flat
mirror
; rotate coordinates to follow reflected rays
rot,0,-45.,0
; move origin to focal plane
disp,0,0,-300.
; flat focal plane
flat
detector
; make spot plot
spot
oprof
end