selips=: 4 :0
  'n a b'=. y
  1 >: ((n^~a%~]) +&|/ n^~b%~]) i:x
)

   require'viewmat'
   viewmat 300 selips 2.5 200 200