↑ UP | Function row_2D |
∇ Z←State row_2D B;Axis;Pos;Face;Row [1] ⍝ [2] ⍝⍝ Z is one row (3 cubes) of a 2D face [3] ⍝ [4] (Face Row)←B ◊ (Pos Axis)←Face ◊ Z←2 12⍴' ' [5] Z[;1]←⊂' ' print_field State[Pos[Row;1]; Axis] [6] Z[;5]←⊂' ' print_field State[Pos[Row;2]; Axis] [7] Z[;9]←⊂' ' print_field State[Pos[Row;3]; Axis] [8] Z[2; 2 3]←State face_text Pos[Row;1] Axis [9] Z[2; 6 7]←State face_text Pos[Row;2] Axis [10] Z[2;10 11]←State face_text Pos[Row;3] Axis ∇ |