Fit Y by X Spline fit color

[#1]

Hi,

I have a fit Y by X plot with smoothing spline fit, is there any way that I can make the marker colors gray and the spline fit line in JMP default color? I tried changing the color theme into medium light gray, but it's not working

rbiv[Framebox( 1 )] << Row Legend( Column( col1 ), Color( 1 ), Marker( 0 ), Color Theme("JMP Default"), Continuous Scale( 0 ) );

[#2]

htt is my 3rd parameter
ht is a column name

This is my function:
bivht = Function( { x_param, y_param, htt },
biv = Bivariate( Y( Column( y_param ) ), X( Column( x_param ) ), GroupBy( column( ht ) ),
<< Fit Spline( 1000, {Line Width( 2 )}));
rbiv = biv << Report;
rbiv[Framebox( 1 )] << {Marker Size( 3 )};
rbiv[Axisbox( 2 )] << Tick Font( style( 0 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
rbiv[Axisbox( 1 )] << Tick Font( style( 0 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
rbiv[TextEditBox( 2 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
rbiv[TextEditBox( 1 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
rbiv[Outline Box( 1 )] << Set Title( y_param||" by "||x_param );
rbiv["Smoothing Spline Fit, lambda=1000 ?"] << Close All Like This;
rbiv[Framebox( 1 )] << Row Legend( Column( ht ), Color( 1 ), Marker( 0 ), Color Theme("JMP Default"), Continuous Scale( 0 ) );
rbiv[BorderBox(2)] << Delete;
pbiv = rbiv[OutlineBox( 1 )] << get picture;
);

This is how I call my function:
lb = LineupBox(NCol(4));
For(j=1, j<=nitems( xparam ), j++,
bivht( xparam[j], yparam[j], h );
lb << append(pbiv);
biv << Close Window;
);
ppt9 << append(lb << get picture);