topic Re: Simple JMP Script question: How to rotate word which is outside of graph in Discussions

A Simple JMP Script question: How to rotate word which is outside of graph

Steve_Kim — Sun, 01 Apr 2018 00:09:20 GMT

Hi All,

I'd like to rotate a word "where( :age==14)" which is outside of graph in a popup window.

Here is the script.

Could you tell me how to make a script? Thanks in advance. : )

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );

nw = dt << Graph Builder(
 Size( 563, 452 ),
 Show Control Panel( 0 ),
 Variables( X( :weight ), Y( :height ) ),
 where( :age == 14 ),  //   <-  I want to rotate this text in the graph window. 
 Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) ),
 SendToReport(
  Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "Hight " )} ),
  Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} )
 )
);

Re: Simple JMP Script question: How to rotate word which is outside of graph

Phil_Kay — Fri, 30 Mar 2018 08:25:03 GMT

I built a similar graph in Graph Builder, rotated the text of the y-axis and then saved the script to a script window (Red triangle menu > Save script > To script window).

Graph Builder(
	Size( 514, 444 ),
	Show Control Panel( 0 ),
	Variables( X( :weight ), Y( :height ) ),
	Elements( Points( X, Y, Legend( 3 ) ), Smoother( X, Y, Legend( 4 ) ) ),
	SendToReport(
		Dispatch( {}, "Y title", TextEditBox, {Rotate Text( "Horizontal" )} )
	)
);

The saved script shows you where to add the instruction to rotate text.

Does that help?

Regards,

Phil

Re: Simple JMP Script question: How to rotate word which is outside of graph

Steve_Kim — Fri, 30 Mar 2018 23:25:43 GMT

Hi Phil,

Thank you for the answer. : )

However I'd like to Rotate the text box "where( :age == 14 )" , Not Y-axis title.

Re: Simple JMP Script question: How to rotate word which is outside of graph

Steve_Kim — Fri, 30 Mar 2018 23:30:56 GMT

Re: Simple JMP Script question: How to rotate word which is outside of graph

txnelson — Fri, 30 Mar 2018 23:46:46 GMT

Here is a method that I have used in the past. It uses an invisible Outline Box() to gain easy access to the Text Box() you want to manipulate, which lies outside of the Platform Object

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
nw = New Window( "the output",
	ob = Outline Box( "",
		dt << Graph Builder(
			Size( 563, 452 ),
			Show Control Panel( 0 ),
			Variables( X( :weight ), Y( :height ) ),
			where( :age == 14 ),  //   <-  I want to rotate this text in the graph window. 
			Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) ),
			SendToReport(
				Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "Hight " )} ),
				Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} )
			)
		)
	)
);
nw[Outline Box( 1 )][Text Box( 1 )] << rotate text( left );

Re: Simple JMP Script question: How to rotate word which is outside of graph

Steve_Kim — Sun, 01 Apr 2018 01:09:04 GMT

Wow ~~~

That's what I'm looking for!!

Thank you so much Jim! : )

===============================================================

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );  // data table

nw = New Window( "the output", 

	H List Box(
		Graph Builder(
			Size( 563, 452 ),
			Show Control Panel( 0 ),
			Variables( X( :weight ), Y( :height ) ),
			where( :age == 12 ),  //   <-  I want to rotate this text in the graph window. 
			Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) ),
			SendToReport(
				Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "Hight " )} ),
				Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} )
			)
		),   // end of graph (age=12)
			
		Graph Builder(
			Size( 563, 452 ),
			Show Control Panel( 0 ),
			Variables( X( :weight ), Y( :height ) ),
			where( :age == 13 ),  //   <-  I want to rotate this text in the graph window. 
			Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) ),
			SendToReport(
				Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "Hight " )} ),
				Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} )
			)
		),  // end of graph (age=13)
			
	),  // end of H list box
	H List Box(
		Graph Builder(
			Size( 563, 452 ),
			Show Control Panel( 0 ),
			Variables( X( :weight ), Y( :height ) ),
			where( :age == 14 ),  //   <-  I want to rotate this text in the graph window. 
			Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) ),
			SendToReport(
				Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "Hight " )} ),
				Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} )
			)
		),   // end of graph (age=14)
		Graph Builder(
			Size( 563, 452 ),
			Show Control Panel( 0 ),
			Variables( X( :weight ), Y( :height ) ),
			where( :age == 15 ),  //   <-  I want to rotate this text in the graph window. 
			Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) ),
			SendToReport(
				Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "Hight " )} ),
				Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} )
			)
		),  // end of graph (age=15)
	),  // end of H list box
	// 	)  // end of outline box
);    // end of new window






/*Check text box numbers by clicking "show tree structure"  from the graph window*/
nw[Text Box( 1 )] << rotate text( left ); // rotate text
//nw[Text Box( 1 )] << hide (1);  // hide text


nw[Text Box( 5 )] << rotate text( left ); // rotate text
//nw[Text Box( 5 )] << hide (1);  // hide text

nw[Text Box( 9 )] << rotate text( left ); // rotate text
//nw[Text Box( 9 )] << hide (1);  // hide text

nw[Text Box( 13 )] << rotate text( left ); // rotate text
//nw[Outline Box( 1 )][Text Box( 13 )] << hide (1);  // hide text

I found a "text box number"

from the "show tree structure" button on the window as well.