Lines Matching refs:last
21 last = OTHER
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",
174 n, $0, leave(type,dir+180), leave(last,dir)
185 last = type
187 labsave(lastname, last, dir)
188 labsave(n, last, dir)
236 fused = joinring(typeint, dir, last)
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
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)