Vladar4

: spc 32 ;

: half ( n -- n/2 ) 2 / ;

: rep ( c n -- ) 0 do dup emit loop drop ;

: top ( width -- ) cr dup 3 rot 2 mod - + half spc swap rep '* emit ;

: line ( width index -- )
  cr dup rot 2 + 2 / swap - spc swap rep