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

[#1]

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( "" )} )
 )
);

[#2]

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

[#3]

Hi Phil,

Thank you for the answer. : )

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

[#4 · Accepted solution]

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 );

[#5]

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.