NB. Sample Jsoftware script ips_ex.ijs
NB. Requires raster5.ijs from http://www.lafayette.edu/~reiterc/j/fvj2/raster5.ijs.html
NB. note: raster4+.ijs would suffice
NB. By Cliff Reiter, March 14, 2002
NB. It creates generalized inner product fractals

require 'fvj2\raster5'  NB. check path
'g' load 'graph'
delay=:6!:3

NB. the following viewmat lines one at a time to see
NB. the result individually
viewmat_g_&>/autopal M +/ . * |: M=:#:i.2^7
delay 2
viewmat_g_&>/autopal M +/ . *: |: M=: #:i.2^7
delay 2
viewmat_g_&>/autopal M (#.@|:) . *: |: M=:#:i.2^7
delay 2
viewmat_g_&>/autopal M i.&0"1@|: . *: |: M=:#:i.2^7
delay 2
viewmat_g_&>/autopal M +./ . *. |: M=: #:i.2^7
delay 2
viewmat_g_&>/autopal M +./ . *. |: M=:(5#3)#:i.3^5