Use a for loop to better telegraph intention.
[geda-gaf/berndj.git] / examples / gTAG / gTAG.ps
blob0adfc602dc027e246a83328812a5de565554d85a
1 %!
2 /inch {72 mul} def
4 /mils
6 1000 div inch
7 } def
9 /setcoords
11 8269 mils 0 translate
12 90 rotate
13 0.449193 0.449193 scale
14 } def
16 /box {
17 exch dup 0 rlineto
18 exch 0 exch rlineto
19 neg 0 rlineto
20 closepath
21 stroke
22 } def
23 /fbox {
24 exch dup 0 rlineto
25 exch 0 exch rlineto
26 neg 0 rlineto
27 closepath
28 fill
29 } def
32 setcoords
34 2 setlinecap
36 % Translate origin to the right place...
37 -42999 mils -50546 mils translate
39 gsave
40 gsave
41 gsave
42 newpath
43 44300 mils 51500 mils moveto
44 67600 mils 51500 mils lineto
45 stroke
46 grestore
47 gsave
48 newpath
49 67600 mils 51500 mils moveto
50 67600 mils 68000 mils lineto
51 stroke
52 grestore
53 gsave
54 newpath
55 67600 mils 68000 mils moveto
56 44300 mils 68000 mils lineto
57 stroke
58 grestore
59 gsave
60 newpath
61 44300 mils 68000 mils moveto
62 44300 mils 51500 mils lineto
63 stroke
64 grestore
65 grestore
68 gsave
69 newpath
70 63500 mils 52100 mils moveto
71 63500 mils 51500 mils lineto
72 stroke
73 grestore
75 gsave
76 /Helvetica findfont
77 11.200000 scalefont
78 setfont
80 60100 mils 51900 mils moveto
81 (FILE:) show
82 grestore
84 gsave
85 /Helvetica findfont
86 11.200000 scalefont
87 setfont
89 63600 mils 51900 mils moveto
90 (REVISION:) show
91 grestore
93 gsave
94 /Helvetica findfont
95 11.200000 scalefont
96 setfont
98 63600 mils 51600 mils moveto
99 (DRAWN BY: ) show
100 grestore
102 gsave
103 /Helvetica findfont
104 11.200000 scalefont
105 setfont
107 60100 mils 51600 mils moveto
108 (PAGE) show
109 grestore
111 gsave
112 /Helvetica findfont
113 11.200000 scalefont
114 setfont
116 61800 mils 51600 mils moveto
117 (OF) show
118 grestore
120 gsave
121 /Helvetica findfont
122 11.200000 scalefont
123 setfont
125 60100 mils 52200 mils moveto
126 (TITLE) show
127 grestore
129 gsave
130 gsave
131 newpath
132 60000 mils 51500 mils moveto
133 67600 mils 51500 mils lineto
134 stroke
135 grestore
136 gsave
137 newpath
138 67600 mils 51500 mils moveto
139 67600 mils 52900 mils lineto
140 stroke
141 grestore
142 gsave
143 newpath
144 67600 mils 52900 mils moveto
145 60000 mils 52900 mils lineto
146 stroke
147 grestore
148 gsave
149 newpath
150 60000 mils 52900 mils moveto
151 60000 mils 51500 mils lineto
152 stroke
153 grestore
154 grestore
156 gsave
157 newpath
158 60000 mils 52100 mils moveto
159 67600 mils 52100 mils lineto
160 stroke
161 grestore
163 grestore
165 gsave
166 newpath
167 1.5 setlinewidth
168 52800 mils 59800 mils moveto
169 54100 mils 59800 mils lineto
170 stroke
171 grestore
173 gsave
174 /Helvetica findfont
175 14.000000 scalefont
176 setfont
178 53300 mils 59900 mils moveto
179 (tdi_ttl) show
180 grestore
182 gsave
183 newpath
184 1.5 setlinewidth
185 52800 mils 59400 mils moveto
186 54100 mils 59400 mils lineto
187 stroke
188 grestore
190 gsave
191 /Helvetica findfont
192 14.000000 scalefont
193 setfont
195 53300 mils 59500 mils moveto
196 (tdo_ttl) show
197 grestore
199 gsave
200 newpath
201 1.5 setlinewidth
202 52800 mils 59000 mils moveto
203 54100 mils 59000 mils lineto
204 stroke
205 grestore
207 gsave
208 /Helvetica findfont
209 14.000000 scalefont
210 setfont
212 53300 mils 59100 mils moveto
213 (tms_ttl) show
214 grestore
216 gsave
217 newpath
218 1.5 setlinewidth
219 52800 mils 58600 mils moveto
220 54100 mils 58600 mils lineto
221 stroke
222 grestore
224 gsave
225 /Helvetica findfont
226 14.000000 scalefont
227 setfont
229 53300 mils 58700 mils moveto
230 (tck_ttl) show
231 grestore
233 gsave
234 newpath
235 1.5 setlinewidth
236 52800 mils 58200 mils moveto
237 54100 mils 58200 mils lineto
238 stroke
239 grestore
241 gsave
242 /Helvetica findfont
243 14.000000 scalefont
244 setfont
246 53300 mils 58300 mils moveto
247 (trst_ttl) show
248 grestore
250 gsave
251 newpath
252 1.5 setlinewidth
253 53900 mils 62300 mils moveto
254 51200 mils 62300 mils lineto
255 stroke
256 grestore
258 gsave
259 newpath
260 1.5 setlinewidth
261 51200 mils 62300 mils moveto
262 51200 mils 60300 mils lineto
263 stroke
264 grestore
266 gsave
267 /Helvetica findfont
268 14.000000 scalefont
269 setfont
271 50200 mils 61200 mils moveto
272 (jtag_power) show
273 grestore
275 gsave
276 newpath
277 1.5 setlinewidth
278 57100 mils 62300 mils moveto
279 60100 mils 62300 mils lineto
280 stroke
281 grestore
283 gsave
284 newpath
285 1.5 setlinewidth
286 60100 mils 62300 mils moveto
287 60100 mils 60300 mils lineto
288 stroke
289 grestore
291 gsave
292 /Helvetica findfont
293 14.000000 scalefont
294 setfont
296 60200 mils 61200 mils moveto
297 (usb_power) show
298 grestore
300 gsave
301 /Helvetica findfont
302 14.000000 scalefont
303 setfont
305 51100 mils 57400 mils moveto
306 (JTAG \(IEEE1149.1\) consist of tdi, tdo, tck, tms, \(trst\)) show
307 grestore
309 gsave
310 newpath
311 1.5 setlinewidth
312 57300 mils 59100 mils moveto
313 58600 mils 59100 mils lineto
314 stroke
315 grestore
317 gsave
318 /Helvetica findfont
319 14.000000 scalefont
320 setfont
322 57500 mils 59200 mils moveto
323 (usb_io+) show
324 grestore
326 gsave
327 newpath
328 1.5 setlinewidth
329 57300 mils 58800 mils moveto
330 58600 mils 58800 mils lineto
331 stroke
332 grestore
334 gsave
335 /Helvetica findfont
336 14.000000 scalefont
337 setfont
339 57500 mils 58900 mils moveto
340 (usb_io-) show
341 grestore
343 gsave
344 gsave
345 gsave
346 newpath
347 54400 mils 58000 mils moveto
348 57000 mils 58000 mils lineto
349 stroke
350 grestore
351 gsave
352 newpath
353 57000 mils 58000 mils moveto
354 57000 mils 60000 mils lineto
355 stroke
356 grestore
357 gsave
358 newpath
359 57000 mils 60000 mils moveto
360 54400 mils 60000 mils lineto
361 stroke
362 grestore
363 gsave
364 newpath
365 54400 mils 60000 mils moveto
366 54400 mils 58000 mils lineto
367 stroke
368 grestore
369 grestore
371 gsave
372 /Helvetica findfont
373 14.000000 scalefont
374 setfont
376 55600 mils (gTAG-ucont) stringwidth pop
377 .5 mul -1 mul add
378 59000 mils
379 10.000000
380 .5 mul -1 mul add moveto
381 (gTAG-ucont) show
382 grestore
384 newpath
385 1.5 setlinewidth
386 54400 mils 59800 mils moveto
387 54100 mils 59800 mils lineto
388 stroke
389 1 setlinewidth
392 gsave
393 /Helvetica findfont
394 14.000000 scalefont
395 setfont
397 54400 mils 59800 mils moveto
398 (tdi_ttl) show
399 grestore
401 newpath
402 1.5 setlinewidth
403 54400 mils 59400 mils moveto
404 54100 mils 59400 mils lineto
405 stroke
406 1 setlinewidth
409 gsave
410 /Helvetica findfont
411 14.000000 scalefont
412 setfont
414 54400 mils 59400 mils moveto
415 (tdo_ttl) show
416 grestore
418 newpath
419 1.5 setlinewidth
420 54400 mils 59000 mils moveto
421 54100 mils 59000 mils lineto
422 stroke
423 1 setlinewidth
426 gsave
427 /Helvetica findfont
428 14.000000 scalefont
429 setfont
431 54400 mils 59000 mils moveto
432 (tms_ttl) show
433 grestore
435 newpath
436 1.5 setlinewidth
437 54400 mils 58600 mils moveto
438 54100 mils 58600 mils lineto
439 stroke
440 1 setlinewidth
443 gsave
444 /Helvetica findfont
445 14.000000 scalefont
446 setfont
448 54400 mils 58600 mils moveto
449 (tck_ttl) show
450 grestore
452 newpath
453 1.5 setlinewidth
454 54400 mils 58200 mils moveto
455 54100 mils 58200 mils lineto
456 stroke
457 1 setlinewidth
460 gsave
461 /Helvetica findfont
462 14.000000 scalefont
463 setfont
465 54400 mils 58200 mils moveto
466 (trst_ttl) show
467 grestore
469 newpath
470 1.5 setlinewidth
471 57000 mils 59100 mils moveto
472 57300 mils 59100 mils lineto
473 stroke
474 1 setlinewidth
477 gsave
478 /Helvetica findfont
479 14.000000 scalefont
480 setfont
482 56900 mils (usb_io+) stringwidth pop
483 -1 mul add
484 59100 mils
485 moveto
486 (usb_io+) show
487 grestore
489 newpath
490 1.5 setlinewidth
491 57000 mils 58800 mils moveto
492 57300 mils 58800 mils lineto
493 stroke
494 1 setlinewidth
497 gsave
498 /Helvetica findfont
499 14.000000 scalefont
500 setfont
502 56900 mils (usb_io-) stringwidth pop
503 -1 mul add
504 58800 mils
505 moveto
506 (usb_io-) show
507 grestore
510 newpath
511 1.5 setlinewidth
512 57000 mils 59800 mils moveto
513 57300 mils 59800 mils lineto
514 stroke
515 1 setlinewidth
518 gsave
519 /Helvetica findfont
520 14.000000 scalefont
521 setfont
523 56900 mils (reset#) stringwidth pop
524 -1 mul add
525 59800 mils
526 moveto
527 (reset#) show
528 grestore
530 grestore
532 gsave
533 /Helvetica findfont
534 14.000000 scalefont
535 setfont
537 54400 mils 60100 mils moveto
538 (S1) show
539 grestore
541 gsave
542 /Helvetica findfont
543 14.000000 scalefont
544 setfont
546 54900 mils 57800 mils moveto
547 (gTAG-ucont.sch) show
548 grestore
550 gsave
551 gsave
552 gsave
553 newpath
554 49900 mils 58000 mils moveto
555 52500 mils 58000 mils lineto
556 stroke
557 grestore
558 gsave
559 newpath
560 52500 mils 58000 mils moveto
561 52500 mils 60000 mils lineto
562 stroke
563 grestore
564 gsave
565 newpath
566 52500 mils 60000 mils moveto
567 49900 mils 60000 mils lineto
568 stroke
569 grestore
570 gsave
571 newpath
572 49900 mils 60000 mils moveto
573 49900 mils 58000 mils lineto
574 stroke
575 grestore
576 grestore
578 gsave
579 /Helvetica findfont
580 14.000000 scalefont
581 setfont
583 51200 mils (gTAG-jtagio) stringwidth pop
584 .5 mul -1 mul add
585 59000 mils
586 10.000000
587 .5 mul -1 mul add moveto
588 (gTAG-jtagio) show
589 grestore
591 newpath
592 1.5 setlinewidth
593 52800 mils 59800 mils moveto
594 52500 mils 59800 mils lineto
595 stroke
596 1 setlinewidth
598 gsave
599 /Helvetica findfont
600 14.000000 scalefont
601 setfont
603 52400 mils (tdi_ttl) stringwidth pop
604 -1 mul add
605 59800 mils
606 moveto
607 (tdi_ttl) show
608 grestore
611 newpath
612 1.5 setlinewidth
613 52800 mils 59400 mils moveto
614 52500 mils 59400 mils lineto
615 stroke
616 1 setlinewidth
618 gsave
619 /Helvetica findfont
620 14.000000 scalefont
621 setfont
623 52400 mils (tdo_ttl) stringwidth pop
624 -1 mul add
625 59400 mils
626 moveto
627 (tdo_ttl) show
628 grestore
631 newpath
632 1.5 setlinewidth
633 52800 mils 59000 mils moveto
634 52500 mils 59000 mils lineto
635 stroke
636 1 setlinewidth
638 gsave
639 /Helvetica findfont
640 14.000000 scalefont
641 setfont
643 52400 mils (tms_ttl) stringwidth pop
644 -1 mul add
645 59000 mils
646 moveto
647 (tms_ttl) show
648 grestore
651 newpath
652 1.5 setlinewidth
653 52800 mils 58600 mils moveto
654 52500 mils 58600 mils lineto
655 stroke
656 1 setlinewidth
658 gsave
659 /Helvetica findfont
660 14.000000 scalefont
661 setfont
663 52400 mils (tck_ttl) stringwidth pop
664 -1 mul add
665 58600 mils
666 moveto
667 (tck_ttl) show
668 grestore
671 newpath
672 1.5 setlinewidth
673 52800 mils 58200 mils moveto
674 52500 mils 58200 mils lineto
675 stroke
676 1 setlinewidth
678 gsave
679 /Helvetica findfont
680 14.000000 scalefont
681 setfont
683 52400 mils (trst_ttl) stringwidth pop
684 -1 mul add
685 58200 mils
686 moveto
687 (trst_ttl) show
688 grestore
691 newpath
692 1.5 setlinewidth
693 51200 mils 60000 mils moveto
694 51200 mils 60300 mils lineto
695 stroke
696 1 setlinewidth
699 gsave
700 /Helvetica findfont
701 14.000000 scalefont
702 setfont
704 50800 mils 59800 mils moveto
705 (jtag_power) show
706 grestore
710 grestore
712 gsave
713 /Helvetica findfont
714 14.000000 scalefont
715 setfont
717 49900 mils 60100 mils moveto
718 (S2) show
719 grestore
721 gsave
722 /Helvetica findfont
723 14.000000 scalefont
724 setfont
726 50500 mils 57800 mils moveto
727 (gTAG-jtagio.sch) show
728 grestore
730 gsave
731 gsave
732 gsave
733 newpath
734 58900 mils 58000 mils moveto
735 61500 mils 58000 mils lineto
736 stroke
737 grestore
738 gsave
739 newpath
740 61500 mils 58000 mils moveto
741 61500 mils 60000 mils lineto
742 stroke
743 grestore
744 gsave
745 newpath
746 61500 mils 60000 mils moveto
747 58900 mils 60000 mils lineto
748 stroke
749 grestore
750 gsave
751 newpath
752 58900 mils 60000 mils moveto
753 58900 mils 58000 mils lineto
754 stroke
755 grestore
756 grestore
758 gsave
759 /Helvetica findfont
760 14.000000 scalefont
761 setfont
763 60100 mils (gTAG-consio) stringwidth pop
764 .5 mul -1 mul add
765 59000 mils
766 10.000000
767 .5 mul -1 mul add moveto
768 (gTAG-consio) show
769 grestore
771 newpath
772 1.5 setlinewidth
773 58600 mils 59100 mils moveto
774 58900 mils 59100 mils lineto
775 stroke
776 1 setlinewidth
778 gsave
779 /Helvetica findfont
780 14.000000 scalefont
781 setfont
783 59000 mils 59100 mils moveto
784 (usb_io+) show
785 grestore
788 newpath
789 1.5 setlinewidth
790 58600 mils 58800 mils moveto
791 58900 mils 58800 mils lineto
792 stroke
793 1 setlinewidth
796 gsave
797 /Helvetica findfont
798 14.000000 scalefont
799 setfont
801 59000 mils 58800 mils moveto
802 (usb_io-) show
803 grestore
805 newpath
806 1.5 setlinewidth
807 60100 mils 60000 mils moveto
808 60100 mils 60300 mils lineto
809 stroke
810 1 setlinewidth
812 gsave
813 /Helvetica findfont
814 14.000000 scalefont
815 setfont
817 59600 mils 59800 mils moveto
818 (usb_power) show
819 grestore
824 grestore
826 gsave
827 /Helvetica findfont
828 14.000000 scalefont
829 setfont
831 58900 mils 60100 mils moveto
832 (S3) show
833 grestore
835 gsave
836 /Helvetica findfont
837 14.000000 scalefont
838 setfont
840 59600 mils 57800 mils moveto
841 (gTAG-consio.sch) show
842 grestore
844 gsave
845 gsave
846 gsave
847 newpath
848 54200 mils 61700 mils moveto
849 56800 mils 61700 mils lineto
850 stroke
851 grestore
852 gsave
853 newpath
854 56800 mils 61700 mils moveto
855 56800 mils 63500 mils lineto
856 stroke
857 grestore
858 gsave
859 newpath
860 56800 mils 63500 mils moveto
861 54200 mils 63500 mils lineto
862 stroke
863 grestore
864 gsave
865 newpath
866 54200 mils 63500 mils moveto
867 54200 mils 61700 mils lineto
868 stroke
869 grestore
870 grestore
872 gsave
873 /Helvetica findfont
874 14.000000 scalefont
875 setfont
877 55400 mils (gTAG-psu) stringwidth pop
878 .5 mul -1 mul add
879 62700 mils
880 10.000000
881 .5 mul -1 mul add moveto
882 (gTAG-psu) show
883 grestore
885 newpath
886 1.5 setlinewidth
887 54200 mils 62300 mils moveto
888 53900 mils 62300 mils lineto
889 stroke
890 1 setlinewidth
892 gsave
893 /Helvetica findfont
894 14.000000 scalefont
895 setfont
897 54300 mils 62300 mils moveto
898 (jtag_power) show
899 grestore
902 newpath
903 1.5 setlinewidth
904 56800 mils 62300 mils moveto
905 57100 mils 62300 mils lineto
906 stroke
907 1 setlinewidth
910 gsave
911 /Helvetica findfont
912 14.000000 scalefont
913 setfont
915 56700 mils (usb_power) stringwidth pop
916 -1 mul add
917 62300 mils
918 moveto
919 (usb_power) show
920 grestore
924 newpath
925 1.5 setlinewidth
926 56800 mils 61900 mils moveto
927 57100 mils 61900 mils lineto
928 stroke
929 1 setlinewidth
932 gsave
933 /Helvetica findfont
934 14.000000 scalefont
935 setfont
937 56700 mils (pon_reset#) stringwidth pop
938 -1 mul add
939 61900 mils
940 moveto
941 (pon_reset#) show
942 grestore
944 grestore
946 gsave
947 /Helvetica findfont
948 14.000000 scalefont
949 setfont
951 54200 mils 63600 mils moveto
952 (S4) show
953 grestore
955 gsave
956 /Helvetica findfont
957 14.000000 scalefont
958 setfont
960 54800 mils 61500 mils moveto
961 (gTAG-psu.sch) show
962 grestore
964 gsave
965 /Helvetica findfont
966 14.000000 scalefont
967 setfont
969 62200 mils 51600 mils moveto
970 (5) show
971 grestore
973 gsave
974 /Helvetica findfont
975 14.000000 scalefont
976 setfont
978 60700 mils 51600 mils moveto
979 (1) show
980 grestore
982 gsave
983 /Helvetica findfont
984 70.000000 scalefont
985 setfont
987 48500 mils 65200 mils moveto
988 (gTAG - usb to jtag interface) show
989 grestore
991 gsave
992 /Helvetica findfont
993 28.000000 scalefont
994 setfont
996 61500 mils 52400 mils moveto
997 (gTAG - top level) show
998 grestore
1000 gsave
1001 /Helvetica findfont
1002 14.000000 scalefont
1003 setfont
1005 60700 mils 51900 mils moveto
1006 (gTAG.sch) show
1007 grestore
1009 gsave
1010 /Helvetica findfont
1011 14.000000 scalefont
1012 setfont
1014 64500 mils 51600 mils moveto
1015 (Stefan Petersen \(spe@stacken.kth.se\)) show
1016 grestore
1018 gsave
1019 /Helvetica findfont
1020 14.000000 scalefont
1021 setfont
1023 64500 mils 51900 mils moveto
1024 ($Revision$) show
1025 grestore
1027 gsave
1028 gsave
1029 /Helvetica findfont
1030 14.000000 scalefont
1031 setfont
1033 44600 mils 54000 mils moveto
1034 (This schematic is free software; you can redistribute it and/or modify) show
1035 grestore
1037 gsave
1038 /Helvetica findfont
1039 14.000000 scalefont
1040 setfont
1042 44600 mils 53800 mils moveto
1043 ( it under the terms of the GNU General Public License as published by) show
1044 grestore
1046 gsave
1047 /Helvetica findfont
1048 14.000000 scalefont
1049 setfont
1051 44600 mils 53600 mils moveto
1052 (the Free Software Foundation; either version 2 of the License, or) show
1053 grestore
1055 gsave
1056 /Helvetica findfont
1057 14.000000 scalefont
1058 setfont
1060 44600 mils 53400 mils moveto
1061 (\(at your option\) any later version.) show
1062 grestore
1064 gsave
1065 /Helvetica findfont
1066 14.000000 scalefont
1067 setfont
1069 44600 mils 53100 mils moveto
1070 (This schematic is distributed in the hope that it will be useful,) show
1071 grestore
1073 gsave
1074 /Helvetica findfont
1075 14.000000 scalefont
1076 setfont
1078 44600 mils 52900 mils moveto
1079 (but WITHOUT ANY WARRANTY; without even the implied warranty of) show
1080 grestore
1082 gsave
1083 /Helvetica findfont
1084 14.000000 scalefont
1085 setfont
1087 44600 mils 52700 mils moveto
1088 (MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the) show
1089 grestore
1091 gsave
1092 /Helvetica findfont
1093 14.000000 scalefont
1094 setfont
1096 44600 mils 52400 mils moveto
1097 (GNU General Public License for more details.) show
1098 grestore
1100 gsave
1101 /Helvetica findfont
1102 14.000000 scalefont
1103 setfont
1105 44600 mils 52200 mils moveto
1106 (You should have received a copy of the GNU General Public License) show
1107 grestore
1109 gsave
1110 /Helvetica findfont
1111 14.000000 scalefont
1112 setfont
1114 44600 mils 52000 mils moveto
1115 (along with this program; if not, write to the Free Software) show
1116 grestore
1118 gsave
1119 /Helvetica findfont
1120 14.000000 scalefont
1121 setfont
1123 44600 mils 51800 mils moveto
1124 (Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA) show
1125 grestore
1127 gsave
1128 /Helvetica findfont
1129 14.000000 scalefont
1130 setfont
1132 44600 mils 54400 mils moveto
1133 (\(C\) 2001 Stefan Petersen \(spe@stacken.kth.se\)) show
1134 grestore
1137 grestore
1139 gsave
1140 newpath
1141 1.5 setlinewidth
1142 57300 mils 59800 mils moveto
1143 57400 mils 59800 mils lineto
1144 stroke
1145 grestore
1147 gsave
1148 newpath
1149 1.5 setlinewidth
1150 57400 mils 59800 mils moveto
1151 57400 mils 61900 mils lineto
1152 stroke
1153 grestore
1155 gsave
1156 /Helvetica findfont
1157 14.000000 scalefont
1158 setfont
1160 57500 mils 60900 mils moveto
1161 (pon_reset#) show
1162 grestore
1164 gsave
1165 newpath
1166 1.5 setlinewidth
1167 57400 mils 61900 mils moveto
1168 57100 mils 61900 mils lineto
1169 stroke
1170 grestore
1173 showpage