*** This script selects vertices with lengths of two neighbor walls less than entered value.

// Parameter list begins
mov r99 32 // Max length
// Parameter list ends
~~~ Default parameters:
~~~ mov r99 32 // Max length
deselectvertices
mov r01 -1
for each nonignored wall r01
  getprevwall r01 r00
  getwall r01 point2 r02
  getwall r00 x r10
  getwall r00 y r11
  getwall r01 x r12
  getwall r01 y r13
  getwall r02 x r14
  getwall r02 y r15
  sub r14 r12
  sub r15 r13
  sub r12 r10
  sub r13 r11
  hypot r03 r12 r13
  hypot r04 r14 r15
  max r03 r04
  if r03 < r99
    selectvertex r01 1
  endif
continue