home *** CD-ROM | disk | FTP | other *** search
/ Computerworld 1996 March / Computerworld_1996-03_cd.bin / idg_cd3 / grafika / aplikace / irt52 / example.irt next >
Encoding:
Text File  |  1996-02-14  |  1003 b   |  49 lines
  1. ;
  2. ; TO GET STARTED:
  3. ;
  4. ; Click on Run in the menu above.  Then click on 
  5. ;   the Graph 1 window and try the Display Menu.
  6. ;
  7. ;  Activate HELP for more Information
  8. ;    In particular, read and follow the tutorial
  9. ;    carefully.  IRT is a very powerful tool,
  10. ;    and like all such tools it takes a little
  11. ;    time to master.
  12. ;
  13. ; Example -- Simple Newtonian Telescope
  14. ;
  15. ; set title for graphics
  16. _ti='Example - Spherical Aberration'
  17. ; point object at effectively infinity
  18. objp,0.,0.,1.e12,400,6328.
  19. ; circular pupil, random ray distribution
  20. pupcr,0.,50.
  21. ; displace origin 1000mm down
  22. disp,0,0,-1000.
  23. ; spherical mirror of radius 2000
  24. conic,0.,2000.
  25. mirror
  26. ; move origin back up
  27. disp,0,0,700.
  28. ; rotate coordinates 45 degrees about y axis
  29. rot,0,-45.,0
  30. ; flat diagonal mirror
  31. flat
  32. mirror
  33. ; rotate coordinates to follow reflected rays
  34. rot,0,-45.,0
  35. ; move origin to focal plane
  36. disp,0,0,-300.
  37. ; flat focal plane
  38. flat
  39. detector
  40. ; make spot plot
  41. spot
  42. oprof
  43. end
  44.  
  45.  
  46.  
  47.  
  48.  
  49.