home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / text / tex / 9581 < prev    next >
Encoding:
Internet Message Format  |  1992-07-28  |  1.7 KB
  1. Path: sparky!uunet!sun-barr!sh.wide!wnoc-tyo-news!ccut!wsclark!lab!lab!isozaki
  2. From: isozaki@ntt-20.ntt.jp (Hideki ISOZAKI)
  3. Newsgroups: comp.text.tex
  4. Subject: Re: picture of a coil?
  5. Message-ID: <oq1.bnqtf@lab.ntt.jp>
  6. Date: 28 Jul 92 09:26:00 GMT
  7. References: <1992Jul20.200855.7751@wpi.WPI.EDU>
  8. Sender: news@lab.ntt.jp
  9. Organization: NTT Basic Research Laboratories
  10. Lines: 55
  11. In-Reply-To: llew@wpi.WPI.EDU's message of 20 Jul 92 20:08:55 GMT
  12.  
  13.  
  14. llew@wpi.WPI.EDU (Lew Yan Voon) writes
  15. >does anyone know how to draw a coil using latex?
  16.  
  17. The following METAFONT code let
  18. you draw horizontally laid coils.
  19. Each character corresponds to one turn or an end of a coil.
  20. Please ask someone near you about how to install/use it.
  21.  
  22. Hideki Isozaki,       NTT Basic Research Labs.
  23.  
  24. -------------------- spring.mf --------------------
  25. mode_setup;
  26.  
  27. numeric code; numeric pitch;
  28.  
  29. for code:=0 upto 6:
  30.  
  31. pitch:=code*1pt#+4pt#;
  32.  
  33. beginchar(4code,pitch,5pt#,5pt#);
  34. path p;
  35. p=(0,-d){right}..(.8w,.3h){up}..(.5w,h){left}..(.2w,.3h){down}..{right}(w,-d);
  36. pickup pencircle scaled 0.4pt;
  37. draw p; 
  38. pickup pencircle scaled 2.5pt;
  39. undraw subpath(3.2,3.8) of p;
  40. pickup pencircle scaled 0.4pt;
  41. draw subpath(3,4) of p;
  42. endchar;
  43.  
  44. beginchar(4code+1,pitch,5pt#,5pt#);
  45. path p;
  46. p=(0,-d){right}..(.8w,.3h){up}..(.5w,h){left}..(.2w,.3h){down}..{right}(w,-d);
  47. pickup pencircle scaled 0.4pt;
  48. draw p; 
  49. pickup pencircle scaled 2.5pt;
  50. undraw subpath(0.2,0.8) of p;
  51. pickup pencircle scaled 0.4pt;
  52. draw subpath(0,1) of p;
  53. endchar;
  54.  
  55. beginchar(4code+2,pitch,5pt#,5pt#);
  56. pickup pencircle scaled 0.4pt;
  57. draw (w,-d){left}..(.3w,0)---(0,0);
  58. endchar;
  59.  
  60. beginchar(4code+3,pitch,5pt#,5pt#);
  61. pickup pencircle scaled 0.4pt;
  62. draw (0,-d){right}..(.7w,0)---(w,0);
  63. endchar;
  64.  
  65. endfor;
  66.  
  67. end
  68.