.PS # Timer.m4 cct_init iflatex(`latexcommand({\small\sf)') define(`ic555',`[Chip: box ht boxwid wid boxwid "555" P7: "7" ljust at 1/6 P6: "6" ljust at 1/2 P2: "2" ljust at 5/6 P4: "4" below at 1/3 P8: "8" below at 2/3 P3: "3" rjust at Chip.e P1: "1" above at Chip.s ]') define(`elen_',`linewid') Vs: dot down_ variable(`resistor(,E); llabel(,\SI{1}{M})') resistor(,E); llabel(,\SI{100}{\kilo{}}) capacitor(,E); llabel(\SI{220}{\micro{}}) Zero: dot dot(at Vs+(elen_*4/3,0)) resistor(,E); llabel(,\SI{33}{\kilo{}}) line to (Here,Zero) chop 0 chop elen_ C2: capacitor; llabel(\SI{0.1}{\micro{}}) dot IC1: ic555 with .P7 at C2.start + (elen_,0) line from IC1.P4 to (IC1.P4,Vs); dot line from IC1.P8 to (IC1.P8,Vs); dot line from IC1.P1 to (IC1.P1,Zero); dot line from IC1.P2 to (C2,IC1.P2); dot crossover(from IC1.P7 to (Zero,IC1.P7),R,C2); dot line from IC1.P6 left elen_/2 then down IC1.P6.y-IC1.P7.y; dot line from IC1.P3 right elen_*2/3 R: dot line right_ elen_/3 B: buzzer(,,C) with .In3 at Here line from B.In1 to (R,B.In1) reversed(`diode',to (Here,Vs),LE); "red" at last line.c+(elen_/2,0) resistor(down_ elen_ from R,E); llabel(,\num{470}) diode(to (Here,Zero),LE); {"green" at last line.c+(elen_*2/3,0)} line to Zero chop 0 chop -elen_ line up_ (Vs.y-Here.y)/3 battery(up_ (Vs.y-Here.y)/3); rlabel(,,\SI{9}{V}) switch(to (Here,Vs),,D) line to (R,Vs) iflatex(`latexcommand(})') .PE