[geocar]

    us←{'_'@{¯1⌽⍵⍷⍨(⊂⊃K),'*'}⍵}

[rak1507]

Ah, ⍷, clever, don't even need the outer {...⍵},

  us←'_'@{¯1⌽⍵⍷⍨(⊂⊃K),'*'}

[geocar]

Yes!

You could also do: ⌽'*',⊂⊃K to save another character. I don't know if that's "better" though.

[rak1507]

Or alternatively '*',⍨⊂⊃K which I think I prefer over ⌽, but neither seem that 'better' in my mind anyway.