set vari MAT_ROT global = 3

set vari CYCLE_N = 1

<aver_loop CYCLE_N 
! <make_rota_maps

return

make map MAP_HEX + 1 conv real
make map MAP_HEX + 1 zero
make map MAP_HEX + 1 set -1 1 9999
make map MAP_HEX + 1 from MAP_HEX copy

make map MAP_ORT + 1 conv real
make map MAP_ORT + 1 zero
make map MAP_ORT + 1 set -1 1 9999
make map MAP_ORT + 1 from MAP_ORT copy



make map MAP_HEX conv real
make map MAP_HEX zero
make map MAP_HEX set -1 1 9999
make map MAP_HEX from MAP_HEX + 1 copy

make map MAP_ORT  conv real
make map MAP_ORT  zero
make map MAP_ORT  set -1 1 9999
make map MAP_ORT  from MAP_ORT + 1 copy