blob: af4c0921e55ed01915af7741121cb93cd0d0f297 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
#This file contains macros to draw circuits with pic
#it should be included at the start of a file with:
# .PS
# copy "circuit.pic"
# .PE
#
# Copyright (c) 2019 Tucker Evans
text_up = 0.175
text_down = 0.2
padding = 0.04
wire_wid = .25
define begin {line right padding}
define end_ {line right padding}
define wire {line $1 wire_wid}
define current {
arrowht = arrowht/2
#LEFT
arrow wire_wid/2 + arrowwid/2
#TEXT
move -arrowwid/2
"$1" at Here + (0, text_up); move to Here - (0,text_up)
" $2" ljust
"$3" at Here- (0, text_down); move to Here + (0,text_down)
"$4 " rjust
move arrowwid/2
#RIGHT
line wire_wid/2 - arrowwid/2
reset arrowht
}
define point {
circle radius .0175 fill 1 at last line .end
"$1" above at last circle .n
" $2" ljust at last circle .w
"$3" below at last circle .s
"$4 " rjust at last circle .e
move to last circle
}
define batt {
#LEFT
begin
move down .1; line up .2; move down .1
move right .025
#TEXT
move down text_down "$1"; move up text_down;
move up text_up "$2"; move down text_up;
#RIGHT
move right .025
move down .03333;
line up .066666; move down 0.03333 ;
end_
}
batt_len = .05 + padding*2
|