21c
@verb #11:"_get_gps" this none this rxdo #1177
@program #11:"_get_gps" this none this
"Copied from Generic DT Intersection (#880):_get_gps by DT_Mayor (#1177) Sep  2 00:24:05 2002"
"Return the same map as on intersection {0, 0}, bit offset to the 'sw'."
x = y = 0
{minx, miny, maxx, maxy} = #1177:offsets()
height = abs(miny) + abs(maxy) + 1
mapx = x * 4 + 2 - minx * 4
mapy = y * 3 + 2 - miny * 3
mapy = height * 3 - mapy + 1
return {#1177, mapx - 1, mapy + 1}
"Last modified by Dax (#789) on Mon Sep  2 00:27:23 2002 MDT."
.

0