drawdlib.m

AFD - Advanced Filter Design using MATLABMiroslav D. Lutovac, Dejan V. Tosicversion 1.00 released 15

 ,Line[({a,b}+s*#)& /@ {{0.85,0.05},{0.75,0},{0.85,-0.05}}]
  ,Text[FontForm[t,{"Times",F}],{a+s*0.4,b+s*0.4},{0,-1}]
  ,Text[FontForm["z",{"Times-Italic",F}],{a+s*0.4,b},{1,0}]
  ,Text[FontForm[n,{"Times",F-1}],{a+s*0.4,b},{-1,-1}] }
,5
 ,{Line[({g,h}+s*#)& /@ {
   {0,(d-h)/s},{0,0.1},{0.3,0.1},{0.3,0.7},{-0.3,0.7},
   {-0.3,0.1},{0.3,0.1},{0.3,0.7},{0,0.7},{0,(f-h)/s}  }]
 ,Line[({g,h}+s*#)& /@ {{0.05,0.85},{0,0.75},{-0.05,0.85}}]
  ,Text[FontForm[t,{"Times",F}],{g-s*0.4,h+s*0.4},{1,0}]
  ,Text[FontForm["z",{"Times-Italic",F}],{g,h+s*0.4},{1,0}]
  ,Text[FontForm[n,{"Times",F-1}],{g,h+s*0.4},{-1,-1}] }
,6
 ,{Line[({a,b}+s*#)& /@ {
   {(c-a)/s,0},{0.1,0},{0.1,0.3},{0.7,0.3},{0.7,-0.3},
   {0.1,-0.3},{0.1,0.3},{0.7,0.3},{0.7,0},{(f-a)/s,0} }]
 ,Line[({a,b}+s*#)& /@ {{-0.05,0.05},{0.05,0},{-0.05,-0.05}}]
  ,Text[FontForm[t,{"Times",F}],{a+s*0.4,b-s*0.4},{0,1}]
  ,Text[FontForm["z",{"Times-Italic",F}],{a+s*0.4,b},{1,0}]
  ,Text[FontForm[n,{"Times",F-1}],{a+s*0.4,b},{-1,-1}] }
,7
 ,{Line[({g,h}+s*#)& /@ {
   {0,(d-h)/s},{0,0.1},{0.3,0.1},{0.3,0.7},{-0.3,0.7},
   {-0.3,0.1},{0.3,0.1},{0.3,0.7},{0,0.7},{0,(f-h)/s}  }]
 ,Line[({g,h}+s*#)& /@ {{0.05,-0.05},{0,0.05},{-0.05,-0.05}}]
  ,Text[FontForm[t,{"Times",F}],{g+s*0.4,h+s*0.4},{-1,0}] 
  ,Text[FontForm["z",{"Times-Italic",F}],{g,h+s*0.4},{1,0}]
  ,Text[FontForm[n,{"Times",F-1}],{g,h+s*0.4},{-1,-1}]  }
,8
,{Line[({a,b}+s*#)& /@ {
   {(c-a)/s,0},{0.1,0},{0.1,0.3},{0.7,0.3},{0.7,-0.3},
   {0.1,-0.3},{0.1,0.3},{0.7,0.3},{0.7,0},{(f-a)/s,0} }]
 ,Line[({a,b}+s*#)& /@ {{-0.05,0.05},{0.05,0},{-0.05,-0.05}}]
 ,Line[({a,b}+s*#)& /@ {{0.75,0.05},{0.85,0},{0.75,-0.05}}]
  ,Text[FontForm[t,{"Times",F}],{a+s*0.4,b+s*0.4},{0,-1}]
  ,Text[FontForm["z",{"Times-Italic",F}],{a+s*0.4,b},{1,0}]
  ,Text[FontForm[n,{"Times",F-1}],{a+s*0.4,b},{-1,-1}] }
,9
,{Line[({g,h}+s*#)& /@ {
   {0,(d-h)/s},{0,0.1},{0.3,0.1},{0.3,0.7},{-0.3,0.7},
   {-0.3,0.1},{0.3,0.1},{0.3,0.7},{0,0.7},{0,(f-h)/s}  }]
 ,Line[({g,h}+s*#)& /@ {{0.05,-0.05},{0,0.05},{-0.05,-0.05}}]
 ,Line[({g,h}+s*#)& /@ {{0.05,0.75},{0,0.85},{-0.05,0.75}}]
  ,Text[FontForm[t,{"Times",F}],{g-s*0.4,h+s*0.4},{1,0}]
  ,Text[FontForm["z",{"Times-Italic",F}],{g,h+s*0.4},{1,0}]
  ,Text[FontForm[n,{"Times",F-1}],{g,h+s*0.4},{-1,-1}] }
,10
,{Line[({a,b}+s*#)& /@ {
   {(c-a)/s,0},{0.1,0},{0.1,0.3},{0.7,0.3},{0.7,-0.3},
   {0.1,-0.3},{0.1,0.3},{0.7,0.3},{0.7,0},{(f-a)/s,0} }]
 ,Line[({a,b}+s*#)& /@ {{0.85,0.05},{0.75,0},{0.85,-0.05}}]
 ,Line[({a,b}+s*#)& /@ {{0.05,0.05},{-0.05,0},{0.05,-0.05}}]
  ,Text[FontForm[t,{"Times",F}],{a+s*0.4,b-s*0.4},{0,1}]
  ,Text[FontForm["z",{"Times-Italic",F}],{a+s*0.4,b},{1,0}]
  ,Text[FontForm[n,{"Times",F-1}],{a+s*0.4,b},{-1,-1}] }
,11
,{Line[({g,h}+s*#)& /@ {
   {0,(d-h)/s},{0,0.1},{0.3,0.1},{0.3,0.7},{-0.3,0.7},
   {-0.3,0.1},{0.3,0.1},{0.3,0.7},{0,0.7},{0,(f-h)/s}  }]
 ,Line[({g,h}+s*#)& /@ {{0.05,0.85},{0,0.75},{-0.05,0.85}}]
 ,Line[({g,h}+s*#)& /@ {{0.05,0.05},{0,-0.05},{-0.05,0.05}}]
  ,Text[FontForm[t,{"Times",F}],{g+s*0.4,h+s*0.4},{-1,0}] 
  ,Text[FontForm["z",{"Times-Italic",F}],{g,h+s*0.4},{1,0}]
  ,Text[FontForm[n,{"Times",F-1}],{g,h+s*0.4},{-1,-1}]  }
,12
,{Line[({a,b}+s*#)& /@ {
   {(c-a)/s,0},{0.1,0},{0.1,0.3},{0.7,0.3},{0.7,-0.3},
   {0.1,-0.3},{0.1,0.3},{0.7,0.3},{0.7,0},{(f-a)/s,0} }]
 ,Line[({a,b}+s*#)& /@ {{0.85,0.05},{0.75,0},{0.85,-0.05}}]
 ,Line[({a,b}+s*#)& /@ {{0.05,0.05},{-0.05,0},{0.05,-0.05}}]
  ,Text[FontForm[t,{"Times",F}],{a+s*0.4,b+s*0.4},{0,-1}]
  ,Text[FontForm["z",{"Times-Italic",F}],{a+s*0.4,b},{1,0}]
  ,Text[FontForm[n,{"Times",F-1}],{a+s*0.4,b},{-1,-1}] }
,13
,{Line[({g,h}+s*#)& /@ {
   {0,(d-h)/s},{0,0.1},{0.3,0.1},{0.3,0.7},{-0.3,0.7},
   {-0.3,0.1},{0.3,0.1},{0.3,0.7},{0,0.7},{0,(f-h)/s}  }]
 ,Line[({g,h}+s*#)& /@ {{0.05,0.85},{0,0.75},{-0.05,0.85}}]
 ,Line[({g,h}+s*#)& /@ {{0.05,0.05},{0,-0.05},{-0.05,0.05}}]
  ,Text[FontForm[t,{"Times",F}],{g-s*0.4,h+s*0.4},{1,0}]
  ,Text[FontForm["z",{"Times-Italic",F}],{g,h+s*0.4},{1,0}]
  ,Text[FontForm[n,{"Times",F-1}],{g,h+s*0.4},{-1,-1}] }
,14
,{Line[({a,b}+s*#)& /@ {
   {(c-a)/s,0},{0.1,0},{0.1,0.3},{0.7,0.3},{0.7,-0.3},
   {0.1,-0.3},{0.1,0.3},{0.7,0.3},{0.7,0},{(f-a)/s,0} }]
 ,Line[({a,b}+s*#)& /@ {{-0.05,0.05},{0.05,0},{-0.05,-0.05}}]
 ,Line[({a,b}+s*#)& /@ {{0.75,0.05},{0.85,0},{0.75,-0.05}}]
  ,Text[FontForm[t,{"Times",F}],{a+s*0.4,b-s*0.4},{0,1}]
  ,Text[FontForm["z",{"Times-Italic",F}],{a+s*0.4,b},{1,0}]
  ,Text[FontForm[n,{"Times",F-1}],{a+s*0.4,b},{-1,-1}] }
,15
,{Line[({g,h}+s*#)& /@ {
   {0,(d-h)/s},{0,0.1},{0.3,0.1},{0.3,0.7},{-0.3,0.7},
   {-0.3,0.1},{0.3,0.1},{0.3,0.7},{0,0.7},{0,(f-h)/s}  }]
 ,Line[({g,h}+s*#)& /@ {{0.05,-0.05},{0,0.05},{-0.05,-0.05}}]
 ,Line[({g,h}+s*#)& /@ {{0.05,0.75},{0,0.85},{-0.05,0.75}}]
  ,Text[FontForm[t,{"Times",F}],{g+s*0.4,h+s*0.4},{-1,0}] 
  ,Text[FontForm["z",{"Times-Italic",F}],{g,h+s*0.4},{1,0}]
  ,Text[FontForm[n,{"Times",F-1}],{g,h+s*0.4},{-1,-1}]  }
]]];

DrawAdd[a_,b_,c0_,c1_,c2_,c3_,t_:"",p_:0,s_:1,f_:8] := Graphics[{
 { Circle[{a+s*0.6,b},s*0.3]
 ,Line[{{a+s*0.45,b},{a+s*0.75,b},{a+s*0.6,b}
       ,{a+s*0.6,b+s*0.15},{a+s*0.6,b-s*0.15}}]}
,Switch[p
 ,0 ,Text[FontForm[t,{"Times",f}], {a+s,b}, {-1,0}]
 ,1 ,Text[FontForm[t,{"Times",f}], {a+s*0.8,b+s*0.3}, {-1,-1}]
 ,2 ,Text[FontForm[t,{"Times",f}], {a+s*0.6,b+s*0.4}, {0,-1}]
 ,3 ,Text[FontForm[t,{"Times",f}], {a+s*0.4,b+s*0.3}, {1,-1}]
 ,4 ,Text[FontForm[t,{"Times",f}], {a+s*0.2,b}, {1,0}]
 ,5 ,Text[FontForm[t,{"Times",f}], {a+s*0.4,b-s*0.3}, {1,1}]
 ,6 ,Text[FontForm[t,{"Times",f}], {a+s*0.6,b-s*0.4}, {0,1}]
 ,7 ,Text[FontForm[t,{"Times",f}], {a+s*0.8,b-s*0.3}, {-1,1}] ]
,Switch[c0
 ,0 ,{AbsolutePointSize[.5],Point[{a+0.9*s,b}]}
 ,1 ,{Line[{{a+s*1.1,b+s*0.05},{a+s,b},{a+s*1.1,b-s*0.05}}]
     ,Line[{{a+s*0.9,b},{a+s*1.2,b}}] } 
 ,2 ,{Line[{{a+s,b+s*0.05},{a+s*1.1,b},{a+s,b-s*0.05}}]
     ,Line[{{a+s*0.9,b},{a+s*1.2,b}}] } 
 ,3 ,{Line[{{a+s*1.1,b+s*0.05},{a+s,b},{a+s*1.1,b-s*0.05}}]
     ,Line[{{a+s*0.9,b},{a+s*1.2,b}}] 
     ,Line[{{a+s,b+s*0.1},{a+s*1.1,b+s*0.1}}] } ]
,Switch[c1
 ,0 ,{AbsolutePointSize[.5],Point[{a+s*0.6,b+s*0.3}]}
 ,1 ,{Line[{{a+s*0.55,b+s*0.5},{a+s*0.6,b+s*0.4},{a+s*0.65,b+s*0.5}}]
     ,Line[{{a+s*0.6,b+s*0.6},{a+s*0.6,b+s*0.3}}] } 
 ,2 ,{Line[{{a+s*0.55,b+s*0.4},{a+s*0.6,b+s*0.5},{a+s*0.65,b+s*0.4}}]
     ,Line[{{a+s*0.6,b+s*0.6},{a+s*0.6,b+s*0.3}}] } 
 ,3 ,{Line[{{a+s*0.55,b+s*0.5},{a+s*0.6,b+s*0.4},{a+s*0.65,b+s*0.5}}]
     ,Line[{{a+s*0.6,b+s*0.6},{a+s*0.6,b+s*0.3}}]
     ,Line[{{a+s*0.7,b+s*0.45},{a+s*0.8,b+s*0.45}}] } ]
,Switch[c2
 ,0 ,{AbsolutePointSize[.5],Point[{a+0.3*s,b}]}
 ,1 ,{Line[{{a+s*0.1,b+s*0.05},{a+s*0.2,b},{a+s*0.1,b-s*0.05}}]
     ,Line[{{a,b},{a+s*0.3,b}}] } 
 ,2 ,{Line[{{a+s*0.2,b+s*0.05},{a+s*0.1,b},{a+s*0.2,b-s*0.05}}]
     ,Line[{{a,b},{a+s*0.3,b}}] } 
 ,3 ,{Line[{{a+s*0.1,b+s*0.05},{a+s*0.2,b},{a+s*0.1,b-s*0.05}}]
     ,Line[{{a,b},{a+s*0.3,b}}]
     ,Line[{{a+s*0.2,b+s*0.1},{a+s*0.1,b+s*0.1}}] } ]
,Switch[c3
 ,0 ,{AbsolutePointSize[.5],Point[{a+s*0.6,b-s*0.3}]}
 ,1 ,{Line[{{a+s*0.55,b-s*0.5},{a+s*0.6,b-s*0.4},{a+s*0.65,b-s*0.5}}]
     ,Line[{{a+s*0.6,b-s*0.6},{a+s*0.6,b-s*0.3}}] } 
 ,2 ,{Line[{{a+s*0.55,b-s*0.4},{a+s*0.6,b-s*0.5},{a+s*0.65,b-s*0.4}}]
     ,Line[{{a+s*0.6,b-s*0.6},{a+s*0.6,b-s*0.3}}] } 
 ,3 ,{Line[{{a+s*0.55,b-s*0.5},{a+s*0.6,b-s*0.4},{a+s*0.65,b-s*0.5}}]
     ,Line[{{a+s*0.6,b-s*0.6},{a+s*0.6,b-s*0.3}}]
     ,Line[{{a+s*0.7,b-s*0.45},{a+s*0.8,b-s*0.45}}] } ]
}];

DrawSumS[a_,b_,c0_,c1_,c2_,c3_,t_:""
   ,t1_:"",t2_:"",t3_:"",t4_:"",p_:0,s_:1,f_:8] := Graphics[{
 { Circle[{a+s*0.6,b},s*0.3]
 ,Line[{{a+s*0.45,b},{a+s*0.75,b},{a+s*0.6,b}
       ,{a+s*0.6,b+s*0.15},{a+s*0.6,b-s*0.15}}]}
,Switch[p
 ,0 ,Text[FontForm[t,{"Times",f}], {a+s,b}, {-1,0}]
 ,1 ,Text[FontForm[t,{"Times",f}], {a+s*0.9,b+s*0.3}, {-1,-1}]
 ,2 ,Text[FontForm[t,{"Times",f}], {a+s*0.6,b+s*0.4}, {0,-1}]
 ,3 ,Text[FontForm[t,{"Times",f}], {a+s*0.3,b+s*0.3}, {1,-1}]
 ,4 ,Text[FontForm[t,{"Times",f}], {a+s*0.1,b}, {1,0}]
 ,5 ,Text[FontForm[t,{"Times",f}], {a+s*0.3,b-s*0.3}, {1,1}]
 ,6 ,Text[FontForm[t,{"Times",f}], {a+s*0.6,b-s*0.4}, {0,1}]
 ,7 ,Text[FontForm[t,{"Times",f}], {a+s*0.9,b-s*0.3}, {-1,1}] ]
,Switch[c0
 ,0 ,{AbsolutePointSize[.5],Point[{a+0.9*s,b}]}
 ,1 ,{Line[{{a+s*1.1,b+s*0.05},{a+s,b},{a+s*1.1,b-s*0.05}}]
     ,Line[{{a+s*0.9,b},{a+s*1.2,b}}] } 
 ,2 ,{Line[{{a+s,b+s*0.05},{a+s*1.1,b},{a+s,b-s*0.05}}]
     ,Line[{{a+s*0.9,b},{a+s*1.2,b}}] } 
 ,3 ,{Line[{{a+s*1.1,b+s*0.05},{a+s,b},{a+s*1.1,b-s*0.05}}]
     ,Line[{{a+s*0.9,b},{a+s*1.2,b}}] 
     ,Text[FontForm[t1,{"Times",f}], {a+s,b+s*0.1}, {-1,-1}]  } ]
,Switch[c1
 ,0 ,{AbsolutePointSize[.5],Point[{a+s*0.6,b+s*0.3}]}
 ,1 ,{Line[{{a+s*0.55,b+s*0.5},{a+s*0.6,b+s*0.4},{a+s*0.65,b+s*0.5}}]
     ,Line[{{a+s*0.6,b+s*0.6},{a+s*0.6,b+s*0.3}}] } 
 ,2 ,{Line[{{a+s*0.55,b+s*0.4},{a+s*0.6,b+s*0.5},{a+s*0.65,b+s*0.4}}]
     ,Line[{{a+s*0.6,b+s*0.6},{a+s*0.6,b+s*0.3}}] } 
 ,3 ,{Line[{{a+s*0.55,b+s*0.5},{a+s*0.6,b+s*0.4},{a+s*0.65,b+s*0.5}}]
     ,Line[{{a+s*0.6,b+s*0.6},{a+s*0.6,b+s*0.3}}]
     ,Text[FontForm[t2,{"Times",f}], {a+s*0.7,b+s*0.55}, {-1,1}]  } ]
,Switch[c2
 ,0 ,{AbsolutePointSize[.5],Point[{a+0.3*s,b}]}
 ,1 ,{Line[{{a+s*0.1,b+s*0.05},{a+s*0.2,b},{a+s*0.1,b-s*0.05}}]
     ,Line[{{a,b},{a+s*0.3,b}}] } 
 ,2 ,{Line[{{a+s*0.2,b+s*0.05},{a+s*0.1,b},{a+s*0.2,b-s*0.05}}]
     ,Line[{{a,b},{a+s*0.3,b}}] } 
 ,3 ,{Line[{{a+s*0.1,b+s*0.05},{a+s*0.2,b},{a+s*0.1,b-s*0.05}}]
     ,Line[{{a,b},{a+s*0.3,b}}]
     ,Text[FontForm[t3,{"Times",f}], {a+s*0.2,b+s*0.1}, {1,-1}]  } ]
,Switch[c3
 ,0 ,{AbsolutePointSize[.5],Point[{a+s*0.6,b-s*0.3}]}
 ,1 ,{Line[{{a+s*0.55,b-s*0.5},{a+s*0.6,b-s*0.4},{a+s*0.65,b-s*0.5}}]
     ,Line[{{a+s*0.6,b-s*0.6},{a+s*0.6,b-s*0.3}}] } 
 ,2 ,{Line[{{a+s*0.55,b-s*0.4},{a+s*0.6,b-s*0.5},{a+s*0.65,b-s*0.4}}]
     ,Line[{{a+s*0.6,b-s*0.6},{a+s*0.6,b-s*0.3}}] } 
 ,3 ,{Line[{{a+s*0.55,b-s*0.5},{a+s*0.6,b-s*0.4},{a+s*0.65,b-s*0.5}}]
     ,Line[{{a+s*0.6,b-s*0.6},{a+s*0.6,b-s*0.3}}]
     ,Text[FontForm[t4,{"Times",f}], {a+s*0.7,b-s*0.55}, {-1,-1}]  } ]
}];

DrawLine[x1_,y1_,x2_,y2_] := Graphics[Line[{{x1,y1},{x2,y2}}]];

DrawIn[a_,b_,t_:"",p_:0,s_:1,F_:8] := Graphics[Switch[p
,0
,{Line[{{a,b},{a+s*0.3,b}}]
 ,Line[({a,b}+s*#)& /@ {{0.2,0.05},{0.1,0},{0.2,-0.05}}]
  ,Circle[{a+s*0.35,b},s*0.05]
  ,Text[FontForm[t,{"Times-Italic",F}],{a+s*0.45,b},{-1,0}] }
,1
,{Line[{{a,b},{a,b+s*0.3}}]
 ,Line[({a,b}+s*#)& /@ {{0.05,0.2},{0,0.1},{-0.05,0.2}}]
 ,Circle[{a,b+s*0.35},s*0.05]
 ,Text[FontForm[t,{"Times-Italic",F}],{a,b+s*0.45},{0,-1}] }
,2
,{Line[{{a,b},{a-s*0.3,b}}]
 ,Line[({a,b}+s*#)& /@ {{-0.2,0.05},{-0.1,0},{-0.2,-0.05}}]
 ,Circle[{a-s*0.35,b},s*0.05]
 ,Text[FontForm[t,{"Times-Italic",F}],{a-s*0.45,b},{1,0}] }
,3
,{Line[{{a,b},{a,b-s*0.3}}]
 ,Line[({a,b}+s*#)& /@ {{0.05,-0.2},{0,-0.1},{-0.05,-0.2}}]
 ,Circle[{a,b-s*0.35},s*0.05]
 ,Text[FontForm[t,{"Times-Italic",F}],{a,b-s*0.45},{0,1}] }
,4
,{Line[{{a,b},{a+s*0.3,b}}]
  ,Circle[{a+s*0.35,b},s*0.05]
  ,Text[FontForm[t,{"Times-Italic",F}],{a+s*0.45,b},{-1,0}] }
,5
,{Line[{{a,b},{a,b+s*0.3}}]
 ,Circle[{a,b+s*0.35},s*0.05]
 ,Text[FontForm[t,{"Times-Italic",F}],{a,b+s*0.45},{0,-1}] }
,6
,{Line[{{a,b},{a-s*0.3,b}}]
 ,Circle[{a-s*0.35,b},s*0.05]
 ,Text[FontForm[t,{"Times-Italic",F}],{a-s*0.45,b},{1,0}] }
,7
,{Line[{{a,b},{a,b-s*0.3}}]
 ,Circle[{a,b-s*0.35},s*0.05]
 ,Text[FontForm[t,{"Times-Italic",F}],{a,b-s*0.45},{0,1}] }
]];

DrawOut[a_,b_,t_:"",p_:0,s_:1,F_:8] := Graphics[Switch[p
,0
,{Line[{{a,b},{a+s*0.3,b}}]
 ,Line[({a,b}+s*#)& /@ {{0.1,0.05},{0.2,0},{0.1,-0.05}}]
  ,Circle[{a+s*0.35,b},s*0.05]
  ,Text[FontForm[t,{"Times-Italic",F}],{a+s*0.45,b},{-1,0}] }
,1
,{Line[{{a,b},{a,b+s*0.3}}]
 ,Line[({a,b}+s*#)& /@ {{0.05,0.1},{0,0.2},{-0.05,0.1}}]
 ,Circle[{a,b+s*0.35},s*0.05]
 ,Text[FontForm[t,{"Times-Italic",F}],{a,b+s*0.45},{0,-1}] }
,2
,{Line[{{a,b},{a-s*0.3,b}}]
 ,Line[({a,b}+s*#)& /@ {{-0.1,0.05},{-0.2,0},{-0.1,-0.05}}]
 ,Circle[{a-s*0.35,b},s*0.05]
 ,Text[FontForm[t,{"Times-Italic",F}],{a-s*0.45,b},{1,0}] }
,3
,{Line[{{a,b},{a,b-s*0.3}}]
 ,Line[({a,b}+s*#)& /@ {{0.05,-0.1},{0,-0.2},{-0.05,-0.1}}]
 ,Circle[{a,b-s*0.35},s*0.05]
 ,Text[FontForm[t,{"Times-Italic",F}],{a,b-s*0.45},{0,1}] }
,4
,{Line[{{a,b},{a+s*0.3,b}}]
  ,Circle[{a+s*0.35,b},s*0.05]
  ,Text[FontForm[t,{"Times-Italic",F}],{a+s*0.45,b},{-1,0}] }
,5
,{Line[{{a,b},{a,b+s*0.3}}]
 ,Circle[{a,b+s*0.35},s*0.05]
 ,Text[FontForm[t,{"Times-Italic",F}],{a,b+s*0.45},{0,-1}] }
,6
,{Line[{{a,b},{a-s*0.3,b}}]
 ,Circle[{a-s*0.35,b},s*0.05]
 ,Text[FontForm[t,{"Times-Italic",F}],{a-s*0.45,b},{1,0}] }
,7
,{Line[{{a,b},{a,b-s*0.3}}]
 ,Circle[{a,b-s*0.35},s*0.05]
 ,Text[FontForm[t,{"Times-Italic",F}],{a,b-s*0.45},{0,1}] }
]];

DrawText[a_,b_,t_,f_] := Graphics[
   {Text[FontForm[t,{"Times-Bold",f+1}],{a,b},{0,0}]}];