puts "TODO ?OCC24156 MacOS: TEST INCOMPLETE"

#modele fabrique dans STRIM et transfere dans DRAW

restore [locate_data_file CFI_5_g12fgl.rle]  s
tscale s 0 0 0 SCALE1 
explode s E
blend result s 7.5*SCALE1 s_4  6*SCALE1 s_5  6.5*SCALE1 s_11  
explode result sh
tcopy result_1 result 

set square 1.25863e+06