创建RGB分量圆:
function CreateRGBCircles(const size: INTEGER;
const Rflag, Gflag, Bflag: BOOLEAN): TBitmap;
var
AdjustedSize: INTEGER;
Border: INTEGER;
i, iR, iG, iB: INTEGER;
j, jR, jG, jB: INTEGER;
jOffset: INTEGER;
RadiusSquared: INTEGER;
row: pRGBTripleArray;
function DistanceSquared(const x1, y1, x2, y2: INTEGER): INTEGER;
begin
RESULT := SQR(x1 - x2) + SQR(y1 - y2)
end {两点间距平方};
begin
Border := MulDiv(size, 5, 1000);
AdjustedSize := size - 2 * Border;
RadiusSquared := SQR(MulDiv(AdjustedSize, 2, 6));
iR := Border + MulDiv(AdjustedSize, 2, 6);
iG := Border + MulDiv(AdjustedSize, 3, 6);
iB := Border + MulDiv(AdjustedSize, 4, 6);
//RGB颜色圈内的横坐标
jOffset := ROUND(AdjustedSize * (2 - SQRT(3)) / 12);
jR := jOffset + Border + Round(AdjustedSize * (2 + SQRT(3)) / 6);
jG := jOffset + Border + MulDiv(AdjustedSize, 2, 6);
jB := jR;
//RGB颜色圈内的纵坐标
RESULT := TBitmap.Create;
//输出位图
RESULT.Width := size;
RESULT.Height := size;
RESULT.PixelFormat := pf24bit;
RESULT.Canvas.Brush.Color := RGB(0, 0, 0);
// 黑色背景
RESULT.Canvas.FillRect(RESULT.Canvas.ClipRect);
//填充
for j := 0 to RESULT.Height - 1 do
begin
row := RESULT.Scanline[j];
for i := 0 to RESULT.Width - 1 do
begin
with row[i] do
begin
if Rflag and (DistanceSquared(i, j, iR, jR) < RadiusSquared)
then rgbtRed := 255;
//红色分量为255
if GFlag and (DistanceSquared(i, j, iG, jG) < RadiusSquared)
then rgbtGreen := 255;
//绿色分量为255
if BFlag and (DistanceSquared(i, j, iB, jB) < RadiusSquared)
then rgbtBlue := 255
//蓝色分量为255
end
end
end
end ;
创建CMYK分量圆:
function CreateCMYCircles(const size: INTEGER;
const Cflag, Mflag, Yflag: BOOLEAN): TBitmap;
var
AdjustedSize: INTEGER;
Border: INTEGER;
i, iC, iM, iY: INTEGER;
j, jC, jM, jY: INTEGER;
jOffset: INTEGER;
RadiusSquared: INTEGER;
row: pRGBTripleArray;
function DistanceSquared(const x1, y1, x2, y2: INTEGER): INTEGER;
begin
RESULT := SQR(x1 - x2) + SQR(y1 - y2)
end;
begin
Border := MulDiv(size, 5, 1000);
AdjustedSize := size - 2 * Border;
RadiusSquared := SQR(MulDiv(AdjustedSize, 2, 6));
iC := Border + MulDiv(AdjustedSize, 2, 6);
iM := Border + MulDiv(AdjustedSize, 3, 6);
iY := Border + MulDiv(AdjustedSize, 4, 6);
//CMY颜色圈的点的横坐标
jOffset := ROUND(AdjustedSize * (2 - SQRT(3)) / 12);
jC := jOffset + Border + Round(AdjustedSize * (2 + SQRT(3)) / 6);
jM := jOffset + Border + MulDiv(AdjustedSize, 2, 6);
jY := jC;
//CMY颜色圈的点的纵坐标
RESULT := TBitmap.Create;
RESULT.Width := size;
RESULT.Height := size;
RESULT.PixelFormat := pf24bit;
//创建输出位图
RESULT.Canvas.Brush.Color := RGB(255, 255, 255); // white
RESULT.Canvas.FillRect(RESULT.Canvas.ClipRect);
//白色背景
for j := 0 to RESULT.Height - 1 do
begin
row := RESULT.Scanline[j];
for i := 0 to RESULT.Width - 1 do
begin
with row[i] do
begin
if Cflag and (DistanceSquared(i, j, iC, jC) < RadiusSquared)
then rgbtRed := 0;
//红色分量为0
if MFlag and (DistanceSquared(i, j, iM, jM) < RadiusSquared)
then rgbtGreen := 0;
//绿色分量为0
if YFlag and (DistanceSquared(i, j, iY, jY) < RadiusSquared)
then rgbtBlue := 0;
end //蓝色分量为0
end
end
end;