tests/feat/featdprism/E1

   1 restore [locate_data_file E_long.rle] E
   2 nexplode E f
   3
   4 profile cont S E_10 F 50 -100 X 50 Y -100 X -50
   5 ttranslate cont 0 0 -50
   6 featdprism E cont cont 10 1 1
   7 featperform dprism result E_9 E_6
   8
   9 set square 957573