Graph Builder > Add Graphics script > Add Customize Shape, Icons or Picture?

Thierry_S

Hi JMP Community,

 

Similarly to the Graphics Script commands Circle, Oval, and Rectangle, is it possible to insert in a FrameBox customized shapes, icons, or, pictures?

Of note, I'm not looking for customize data point markers.

Here is a snippet of the type of graphics script I'm working with (gb is a graph builder heat map) where I would like to replace the Circle with a customized shape:

	gbr = report (gb);
	fb = gbr [FrameBox (1)];
	
	fb << add graphics script (
		Fill color (black);
		
		For (i = 0, i <= 24, i++,
			For (j = 0.5, j <= 7, j = j+2,
				r = (i*8) + (j+0.5);
				s = column (dt,"SIZE FDR") [r] / 8;
				if (s < 0.02, s = 0.02);
				circle ({i,j}, s, "FILL")
			 )	
		);
		
		
	);

Thank you for your help.

Best,

TS

Craige_Hales

N-pointed stars

 

makestar = Function( {x, y, npoints, inside, outside},
	{p = J( 2 * npoints, 3, . ), angle, i, move = 1, draw = 2},
	For( i = 1, i < N Rows( p ), 0,
		angle = 2 * Pi() * i / N Rows( p );
		p[i, 1] = x + Sin( angle ) * inside; // sin and cos are reversed here to
		p[i, 2] = y + Cos( angle ) * inside; // make the point be at the top.
		p[i, 3] = If( i == 1, move, draw ); // swap sin/cos for point at left.
		i += 1;
		angle = 2 * Pi() * i / N Rows( p );
		p[i, 1] = x + Sin( angle ) * outside; // ditto
		p[i, 2] = y + Cos( angle ) * outside;
		p[i, 3] = If( i == N Rows( p ), -draw, draw );
		i += 1;
	);
	p; // return
);

New Window( "Example",
	gb = Graph Box(
		xaxis( Show Major Grid( 1 ) ),
		yaxis( Show Major Grid( 1 ) ),
		framesize( 500, 500 ),
		Pen Color( "red" );
		Pen Size( 3 );
		Fill Color( "blue" );
		npoints = 3; // each star gets more points below
		For( xx = 20, xx <= 80, xx += 20,
			For( yy = 20, yy <= 80, yy += 20, 
				// the inside/outside ratio needs to change with more points...
				p = makestar( xx, yy, npoints, 2 + npoints / 4, 8 );
				Path( p, 1 ); // blue solid fill
				Path( p, 0 ); // red outline
				npoints += 1;
			)
		);
	)
);

// move the grid lines above the stars
grid = gb[framebox( 1 )] << find seg( SegPlaceholder( 1 ) );
// grid is the original, below the stars
gb[framebox( 1 )] << appendseg( grid ); // makes a copy above
// probably not needed...they are on top of each other...
grid << delete; // delete the original from below