Code samples for AddSelCurve.
Automatically generated by the Every Method demo.
// Automated test of AddSelCurve - Typical Values
// Add a curved polygonal selection and adjust levels
curveWidth := ImageEnView1.IEBitmap.Width / CURVE_COUNT;
curveHeight := ImageEnView1.IEBitmap.Height * 0.4; // Make wave height 4/10 of bitmap
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( 0, 0 );
ImageEnView1.AddSelPoint( 0, curveWidth );
curveRate := 2.4; // How curved is the line? 1=half circle
curveStart := 0;
for i := 1 to CURVE_COUNT do
begin
curveStart := curveStart + curveWidth;
ImageEnView1.AddSelCurve( Round( curveStart ), curveHeight, curveRate );
curveRate := -1 * curveRate; // reverse direction of curve
end;
ImageEnView1.AddSelPoint( ImageEnView1.IEBitmap.Width, 0 );
ImageEnView1.EndSelect();
ImageEnView1.Proc.AdjustLevels( 0, 115, 255, 0, 255 );
// Automated test of AddSelCurve - Alpha Channel - Typical Values
// Add a curved polygonal selection and adjust levels
curveWidth := ImageEnView1.IEBitmap.Width / CURVE_COUNT;
curveHeight := ImageEnView1.IEBitmap.Height * 0.4; // Make wave height 4/10 of bitmap
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( 0, 0 );
ImageEnView1.AddSelPoint( 0, curveWidth );
curveRate := 2.4; // How curved is the line? 1=half circle
curveStart := 0;
for i := 1 to CURVE_COUNT do
begin
curveStart := curveStart + curveWidth;
ImageEnView1.AddSelCurve( Round( curveStart ), curveHeight, curveRate );
curveRate := -1 * curveRate; // reverse direction of curve
end;
ImageEnView1.AddSelPoint( ImageEnView1.IEBitmap.Width, 0 );
ImageEnView1.EndSelect();
ImageEnView1.Proc.AdjustLevels( 0, 115, 255, 0, 255 );
// Automated test of AddSelCurve - 32-Bit RGBA - Typical Values
// Add a curved polygonal selection and adjust levels
curveWidth := ImageEnView1.IEBitmap.Width / CURVE_COUNT;
curveHeight := ImageEnView1.IEBitmap.Height * 0.4; // Make wave height 4/10 of bitmap
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( 0, 0 );
ImageEnView1.AddSelPoint( 0, curveWidth );
curveRate := 2.4; // How curved is the line? 1=half circle
curveStart := 0;
for i := 1 to CURVE_COUNT do
begin
curveStart := curveStart + curveWidth;
ImageEnView1.AddSelCurve( Round( curveStart ), curveHeight, curveRate );
curveRate := -1 * curveRate; // reverse direction of curve
end;
ImageEnView1.AddSelPoint( ImageEnView1.IEBitmap.Width, 0 );
ImageEnView1.EndSelect();
ImageEnView1.Proc.AdjustLevels( 0, 115, 255, 0, 255 );
// Automated test of AddSelCurve - 1-bit - Typical Values
// Add a curved polygonal selection and clear
curveWidth := ImageEnView1.IEBitmap.Width / CURVE_COUNT;
curveHeight := ImageEnView1.IEBitmap.Height * 0.4; // Make wave height 4/10 of bitmap
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( 0, 0 );
ImageEnView1.AddSelPoint( 0, curveWidth );
curveRate := 2.4; // How curved is the line? 1=half circle
curveStart := 0;
for i := 1 to CURVE_COUNT do
begin
curveStart := curveStart + curveWidth;
ImageEnView1.AddSelCurve( Round( curveStart ), curveHeight, curveRate );
curveRate := -1 * curveRate; // reverse direction of curve
end;
ImageEnView1.AddSelPoint( ImageEnView1.IEBitmap.Width, 0 );
ImageEnView1.EndSelect();
ImageEnView1.Proc.ClearSel( True );
// Automated test of AddSelCurve - Random Values
// Add a curved polygonal selection and adjust luminance
curveWidth := ImageEnView1.IEBitmap.Width / CURVE_COUNT;
curveHeight := ImageEnView1.IEBitmap.Height * 0.4; // Make wave height 4/10 of bitmap
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( 0, 0 );
ImageEnView1.AddSelPoint( 0, curveWidth );
curveRate := 2.4; // How curved is the line? 1=half circle
curveStart := 0;
for i := 1 to CURVE_COUNT do
begin
curveStart := curveStart + curveWidth;
ImageEnView1.AddSelCurve( Round( curveStart ), curveHeight, curveRate );
curveRate := -1 * curveRate; // reverse direction of curve
end;
ImageEnView1.AddSelPoint( ImageEnView1.IEBitmap.Width, 0 );
ImageEnView1.EndSelect();
ImageEnView1.InvertSelection( True );
ImageEnView1.Proc.AdjustLumSatHistogram( 0.00, 0.85 );
// Automated test of AddSelCurve - Alpha Channel - Random Values
// Add a curved polygonal selection and adjust luminance
curveWidth := ImageEnView1.IEBitmap.Width / CURVE_COUNT;
curveHeight := ImageEnView1.IEBitmap.Height * 0.4; // Make wave height 4/10 of bitmap
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( 0, 0 );
ImageEnView1.AddSelPoint( 0, curveWidth );
curveRate := 2.4; // How curved is the line? 1=half circle
curveStart := 0;
for i := 1 to CURVE_COUNT do
begin
curveStart := curveStart + curveWidth;
ImageEnView1.AddSelCurve( Round( curveStart ), curveHeight, curveRate );
curveRate := -1 * curveRate; // reverse direction of curve
end;
ImageEnView1.AddSelPoint( ImageEnView1.IEBitmap.Width, 0 );
ImageEnView1.EndSelect();
ImageEnView1.InvertSelection( True );
ImageEnView1.Proc.AdjustLumSatHistogram( 0.00, 0.85 );
// Automated test of AddSelCurve - 32-Bit RGBA - Random Values
// Add a curved polygonal selection and adjust luminance
curveWidth := ImageEnView1.IEBitmap.Width / CURVE_COUNT;
curveHeight := ImageEnView1.IEBitmap.Height * 0.4; // Make wave height 4/10 of bitmap
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( 0, 0 );
ImageEnView1.AddSelPoint( 0, curveWidth );
curveRate := 2.4; // How curved is the line? 1=half circle
curveStart := 0;
for i := 1 to CURVE_COUNT do
begin
curveStart := curveStart + curveWidth;
ImageEnView1.AddSelCurve( Round( curveStart ), curveHeight, curveRate );
curveRate := -1 * curveRate; // reverse direction of curve
end;
ImageEnView1.AddSelPoint( ImageEnView1.IEBitmap.Width, 0 );
ImageEnView1.EndSelect();
ImageEnView1.InvertSelection( True );
ImageEnView1.Proc.AdjustLumSatHistogram( 0.00, 0.85 );
// Automated test of AddSelCurve - 1-bit - Random Values
// Add a curved polygonal selection and clear
curveWidth := ImageEnView1.IEBitmap.Width / CURVE_COUNT;
curveHeight := ImageEnView1.IEBitmap.Height * 0.4; // Make wave height 4/10 of bitmap
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( 0, 0 );
ImageEnView1.AddSelPoint( 0, curveWidth );
curveRate := 2.4; // How curved is the line? 1=half circle
curveStart := 0;
for i := 1 to CURVE_COUNT do
begin
curveStart := curveStart + curveWidth;
ImageEnView1.AddSelCurve( Round( curveStart ), curveHeight, curveRate );
curveRate := -1 * curveRate; // reverse direction of curve
end;
ImageEnView1.AddSelPoint( ImageEnView1.IEBitmap.Width, 0 );
ImageEnView1.EndSelect();
ImageEnView1.InvertSelection( True );
ImageEnView1.Proc.ClearSel( True );
