home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Tex / texdr179.lzh / texdraw / epic / man-fig2.tex < prev    next >
Text File  |  1991-02-06  |  3KB  |  33 lines
  1. \xjunk=60 \yjunk=3                                                              
  2. \loop                                                                           
  3. \drawline(0,0)(\xjunk,\yjunk)                                                   
  4. \drawline(0,0)(-\xjunk,\yjunk)                                                  
  5. \drawline(0,0)(\xjunk,-\yjunk)                                                  
  6. \drawline(0,0)(-\xjunk,-\yjunk)                                                 
  7. \put(\xjunk,\yjunk){\plotchar}                                                  
  8. \put(-\xjunk,\yjunk){\plotchar}                                                 
  9. \put(\xjunk,-\yjunk){\plotchar}                                                 
  10. \put(-\xjunk,-\yjunk){\plotchar}                                                
  11. \put(\xjunk,\yjunk){\makebox(8,0)[l]{\ \ (\number\xjunk,\number\yjunk)}}        
  12. \put(-\xjunk,\yjunk){\makebox(-4,0)[r]{(\number-\xjunk,\number\yjunk)}}         
  13. \put(\xjunk,-\yjunk){\makebox(8,0)[l]{\ \ (\number\xjunk,\number-\yjunk)}}      
  14. \put(-\xjunk,-\yjunk){\makebox(-4,0)[r]{(\number-\xjunk,\number-\yjunk)}}       
  15. \ifnum\yjunk < 53 \advance\yjunk by 10 %will go till 53.                        
  16. \repeat                                                                         
  17. \xjunk=3 \yjunk=60                                                              
  18. \loop                                                                           
  19. \drawline(0,0)(\xjunk,\yjunk)                                                   
  20. \drawline(0,0)(-\xjunk,\yjunk)                                                  
  21. \drawline(0,0)(\xjunk,-\yjunk)                                                  
  22. \drawline(0,0)(-\xjunk,-\yjunk)                                                 
  23. \put(\xjunk,\yjunk){\plotchar}                                                  
  24. \put(-\xjunk,\yjunk){\plotchar}                                                 
  25. \put(\xjunk,-\yjunk){\plotchar}                                                 
  26. \put(-\xjunk,-\yjunk){\plotchar}                                                
  27. \put(\xjunk,\yjunk){\makebox(0,7)[t]{(\number\xjunk,\number\yjunk)}}            
  28. \put(-\xjunk,\yjunk){\makebox(0,5)[t]{(\number-\xjunk,\number\yjunk)}}          
  29. \put(\xjunk,-\yjunk){\makebox(0,-4)[t]{(\number\xjunk,\number-\yjunk)}}         
  30. \put(-\xjunk,-\yjunk){\makebox(0,-6)[t]{(\number-\xjunk,\number-\yjunk)}}       
  31. \ifnum\xjunk < 53 \advance\xjunk by 10                                          
  32. \repeat                                                                         
  33.