win = New Window( "透明度",
Graph Box(
Frame Size( 200, 200 ),
Pen Color( "gray" );
Fill Color( "gray" );
Transparency( 0.25 );
Rect( 0, 40, 60, 0, 1 );
Pen Color( "red" );
Fill Color( "red" );
Transparency( 0.5 );
Rect( 10, 60, 70, 10, 1 );
Pen Color( "green" );
Fill Color( "green" );
Transparency( 0.75 );
Rect( 50, 90, 90, 50, 1 );
Pen Color( "blue" );
Fill Color( "blue" );
Transparency( 1 );
Rect( 0, 80, 70, 70, 1 );
)
);
図12.20 透明度と長方形