summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/ASME_Y14-5.m4
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/circuit_macros/examples/ASME_Y14-5.m4')
-rw-r--r--graphics/circuit_macros/examples/ASME_Y14-5.m410
1 files changed, 6 insertions, 4 deletions
diff --git a/graphics/circuit_macros/examples/ASME_Y14-5.m4 b/graphics/circuit_macros/examples/ASME_Y14-5.m4
index fbcf8eb003..00b044b093 100644
--- a/graphics/circuit_macros/examples/ASME_Y14-5.m4
+++ b/graphics/circuit_macros/examples/ASME_Y14-5.m4
@@ -138,11 +138,11 @@ define(`cdashl',0.1*scale)
define(`cgapl',0.03*scale)
define(`ctrline',`rpoint_(ifelse(`$1',,`to rvec_(linewid,0)',`$1'))
define(`m4h',ifelse(`$2',,1*scale,`$2'))dnl
- m4n = int(rp_len/2/(m4h))*2+1
- for i=1 to m4n do {
- line to rvec_(rp_len/m4n/2-cdashl/2-cgapl,0)
+ m4xn = int(rp_len/2/(m4h))*2+1
+ for i=1 to m4xn do {
+ line to rvec_(rp_len/m4xn/2-cdashl/2-cgapl,0)
move to rvec_(cgapl,0); line to rvec_(cdashl,0); move to rvec_(cgapl,0)
- line to rvec_(rp_len/m4n/2-cdashl/2-cgapl,0) } ')
+ line to rvec_(rp_len/m4xn/2-cdashl/2-cgapl,0) } ')
`ctrarcr(pos,radius,startang,endang,len)
Arc cr centerline'
@@ -165,4 +165,6 @@ define(`ctrarcr',`dnl
m5sa = m5sa+m5a
} ')
+define(`ASME_Y14-5_')
+
divert(0)dnl