Programmable number of multiple graph boxes in a new window

matth1

Apologies if this answered somewhere else I haven't been able to find.

 

I want to generate a number of separate graph boxes within a Window, which I can then draw custom shapes in. There should be X columns and Y rows - i.e. the number and format has to be programmable.

 

I would like it to look a bit like the attached image. This was created with each Graph Box written out in full, which is obviously not ideal.

 

As a simple starting point, I tried this:

 

 

win01 = New Window( "test",
	Outline Box( "test",
		V List Box(
			For( yy = 1, yy <= 5, yy++,
				H List Box(
					For( xx = 1, xx <= 5, xx++,
						aa = xx + 5 * ( yy - 1 );
						Graph Box(
							framesize( 200, 200 ),
							X Scale( 0, 10 ),
							Y Scale( 0, 10 ),
							X Axis( Inc( 2 ), Minor Ticks( 1 ), Show Major Grid( 1 ), Show Minor Grid( 1 ) ),
							Y Axis( Inc( 2 ), Minor Ticks( 1 ), Show Major Grid( 1 ), Show Minor Grid( 1 ) ),
							XName( "Die X" ),
							YName( "Die Y" ),
							Text({1,5}, char(aa) )
						)
					)
				)
			)
		)
	)
);

 

But of course that didn't work. I probably need to enclose this in some sort of eval(substitute(expr())) type expression, but my JSL is very rusty and I'm not sure where to start!

 

Any suggestions would be gratefully received.

 

Many thanks,

 

Matthew.

 

vince_faller

Would something like this work?

 

Names default to here(1);
vlb = V List Box();
For( yy = 1, yy <= 5, yy++,
	vlb << Append(hlb = H List Box());
	For( xx = 1, xx <= 5, xx++,
		aa = xx + 5 * ( yy - 1 );
		Eval(EvalExpr(
			hlb << Append(
				Graph Box(
					framesize( 200, 200 ),
					X Scale( 0, 10 ),
					Y Scale( 0, 10 ),
					X Axis( Inc( 2 ), Minor Ticks( 1 ), Show Major Grid( 1 ), Show Minor Grid( 1 ) ),
					Y Axis( Inc( 2 ), Minor Ticks( 1 ), Show Major Grid( 1 ), Show Minor Grid( 1 ) ),
					XName( "Die X" ),
					YName( "Die Y" ),
					Text({1,5}, Expr(char(aa)) )
				)
			);
		));
	);
);

win01 = New Window( "test",
	Outline Box( "test",
		vlb
	)
);