Lines Matching full:last
19 printf "Last: 0,0\n"
21 last = OTHER
66 $1 ~ /^\"/ { print "Last: ", $0; last = OTHER; next }
79 $1 == "left" { left[++stack] = fields(2, NF); printf("Last: [\n"); next }
85 /./ { print "Last: ", $0; last = OTHER }
125 from = "from Last." leave(last, dir) " " fields(cf, NF)
126 printf "Last: %s(%g, %g, %s)\n", type, leng, dir, from
127 last = BOND
129 labsave(lastname, last, dir)
141 if (n ~ /^\.[A-Z]/) # "from .V" => "from Last.V.s"
142 return "from Last" n "." corner(dir)
154 printf("%s from last [].sw+(%g,0) to last [].sw to last [].nw to last [].nw+(%g,0)\n",
156 printf("%s from last [].se-(%g,0) to last [].se to last [].ne to last [].ne-(%g,0)\n",
159 printf("\" %s\" ljust at last [].se\n", fields(4,NF))
173 printf "Last: %s: %s with .%s at Last.%s\n", \
174 n, $0, leave(type,dir+180), leave(last,dir)
176 printf("Last: %s: %s with .n at %s.s\n", n, $1, $3)
178 printf("Last: %s: %s with .s at %s.n\n", n, $1, $3)
180 printf("Last: %s: %s with .e at %s.w+(%g,0)\n", n, $1, $4, dew)
182 printf("Last: %s: %s with .w at %s.e-(%g,0)\n", n, $1, $4, dew)
184 printf "Last: %s: %s\n", n, $0
185 last = type
187 labsave(lastname, last, dir)
188 labsave(n, last, dir)
236 fused = joinring(typeint, dir, last)
237 printf "Last: [\n"
240 last = typeint
242 labsave(lastname, last, dir)
339 function joinring(type, dir, last) { # join a ring to something
340 if (substr(last, 1, 1) == RING) { # ring to ring
341 if (substr(type, 3) == substr(last, 3)) # fails if not 6-sided
342 return "with .V6 at Last.V2"
345 return sprintf("with .%s at Last.%s", \
346 leave(type,dir+180), leave(last,dir))
349 function leave(last, d, c, c1) { # return vertex of last in dir d
350 if (last == BOND)
353 if (substr(last, 1, 1) == RING)
354 return ringleave(last, d)
355 if (last == MOL) {
368 if (last == OTHER)
373 function ringleave(last, d, rd, verts) { # return vertex of ring in dir d
374 verts = substr(last, 2, 1)
375 rd = substr(last, 3)