Lines Matching +full:120 +full:- +full:db
9 set(dc, "0 n 30 ne 45 ne 60 ne 90 e 120 se 135 se 150 se 180 s")
28 db = scale * 0.2 # bond length
34 dew = scale * 0.02 # east-west shift for left of/right of
48 $1 == "pic" { shiftfields(1); print; next } # pic pass-thru
53 $1 == "db" { db = $NF; next }
60 $1 ~ /^[A-Z].*:$/ { # label; falls thru after shifting left
61 lastname = substr($1, 1, length($1)-1)
77 $1 ~ /^[A-Z]/ { molecule(); next }
81 $1 == "right" { bracket(); stack--; next }
96 NF = i - 1
99 leng = db
102 if ($cf ~ /(\+|-)?[0-9]+|up|down|right|left|ne|se|nw|sw/)
141 if (n ~ /^\.[A-Z]/) # "from .V" => "from Last.V.s"
143 if (n ~ /^[A-Z][^.]*\.[A-Z][^.]*$/) # "from X.V" => "from X.V.s"
145 return fields(cf-1, NF)
156 printf("%s from last [].se-(%g,0) to last [].se to last [].ne to last [].ne-(%g,0)\n",
171 gsub(/[^A-Za-z0-9]/, "", n) # for stuff like C(OH3): zap non-alnum
182 printf("Last: %s: %s with .w at %s.e-(%g,0)\n", n, $1, $4, dew)
197 printf("\"\\s-3%d\\s0\" at 0.%d<%s.C,%s.V%d>\n", i, v+2, $2, $2, i)
203 if (type ~ /[1-8]$/)
252 a = ((i-1) / v * 360 + pt) / deg
293 2-rat, i, 2-rat, j, c1, c2
311 2-rat, i, 2-rat, j
333 gsub(/[^A-Za-z0-9]/, "", m)
341 if (substr(type, 3) == substr(last, 3)) # fails if not 6-sided
376 return sprintf("V%d.%s", int(reduce(d-rd)/(360/verts)) + 1, corner(d))
390 for (cf++; $cf ~ /^[1-9]/; cf++) {
405 if ($cf ~ /^[+\-]?[0-9]+/)
417 d -= 360
432 if (substr(s, i, 1) !~ /[A-Z]/) {
437 gsub(/([0-9]+\.[0-9]+)|([0-9]+)/, "\\s-3\\d&\\u\\s+3", s)
438 if (s ~ /([^0-9]\.)|(\.[^0-9])/) # centered dot
439 gsub(/\./, "\\v#-.3m#.\\v#.3m#", s)
441 s, (n-nsub/2)*cwid, textht, (cloc-nsubc/2-0.5)*cwid, crh, crw, dav)
447 while ((n = match(s, /!?[A-Z][A-Za-z]*(([0-9]+\.[0-9]+)|([0-9]+))/)) > 0) {
448 os = os substr(s, 1, n-1) # prefix
453 gsub(/([0-9]+\.[0-9]+)|([0-9]+)/, "\\s-3\\d&\\u\\s+3", s1)
454 if (s1 ~ /([^0-9]\.)|(\.[^0-9])/) # centered dot
455 gsub(/\./, "\\v#-.3m#.\\v#.3m#", s1)
465 function shiftfields(n, i) { # move $n+1..$NF to $n..$NF-1, zap $NF
469 NF--