1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75
| program Clowns3;
uses BGRABitmap, BGRABitmapTypes;
{$I utils}
var
bmp: TBGRABitmap;
color: TBGRAPixel;
begin
bmp := TBGRABitmap.Create(640, 480, LongWordToBGRA($191970));
color := LongWordToBGRA($FFFFFF);
bmp.FillEllipseAntialias(163, 239, 100, 150, color);
bmp.FillEllipseAntialias(476, 239, 100, 150, color);
color := LongWordToBGRA($FF80FF);
bmp.RoundRectAntialias(143, 244, 183, 284, 20, 20, color, 2, []);
color := LongWordToBGRA($90EE90);
bmp.RoundRectAntialias(456, 244, 496, 284, 20, 20, color, 2, []);
color := LongWordToBGRA($ADD8E6);
bmp.FillEllipseAntialias(163, 299, 50, 55, color);
bmp.FillEllipseAntialias(163, 299, 50, 20, color);
bmp.FillEllipseAntialias(163, 299, 50, 54, color);
bmp.FillEllipseAntialias(163, 299, 50, 21, color);
color := LongWordToBGRA($FF0000);
bmp.FillEllipseAntialias(476, 299, 50, 55, color);
bmp.FillEllipseAntialias(476, 299, 50, 20, color);
bmp.FillEllipseAntialias(476, 299, 50, 21, color);
bmp.FillEllipseAntialias(476, 299, 50, 54, color);
bmp.FillEllipseAntialias(123, 239, 20, 60, color);
bmp.FillEllipseAntialias(123, 243, 20, 10, color);
color := LongWordToBGRA($FF);
bmp.RoundRectAntialias(113, 233, 133, 253, 10, 10, color, 2, []);
color := LongWordToBGRA($0);
bmp.RoundRectAntialias(120, 240, 126, 246, 3, 3, color, 2, []);
color := LongWordToBGRA($FFFFFF);
bmp.RoundRectAntialias(113, 233, 133, 253, 10, 10, color, 2, []);
color := LongWordToBGRA($FF0000);
bmp.FillEllipseAntialias(203, 239, 20, 60, color);
bmp.FillEllipseAntialias(203, 243, 20, 10, color);
color := LongWordToBGRA($FF);
bmp.RoundRectAntialias(193, 233, 213, 253, 10, 10, color, 2, []);
color := LongWordToBGRA($0);
bmp.RoundRectAntialias(200, 240, 206, 246, 3, 3, color, 2, []);
color := LongWordToBGRA($FFFFFF);
bmp.RoundRectAntialias(193, 233, 213, 253, 10, 10, color, 2, []);
color := LongWordToBGRA($FF0000);
bmp.FillEllipseAntialias(521, 239, 20, 60, color);
bmp.FillEllipseAntialias(521, 243, 20, 10, color);
color := LongWordToBGRA($FF);
bmp.RoundRectAntialias(511, 233, 531, 253, 10, 10, color, 2, []);
color := LongWordToBGRA($0);
bmp.RoundRectAntialias(518, 240, 524, 246, 3, 3, color, 2, []);
color := LongWordToBGRA($FFFFFF);
bmp.RoundRectAntialias(511, 233, 531, 253, 10, 10, color, 2, []);
color := LongWordToBGRA($FF0000);
bmp.FillEllipseAntialias(434, 239, 20, 60, color);
bmp.FillEllipseAntialias(434, 243, 20, 10, color);
color := LongWordToBGRA($FF);
bmp.RoundRectAntialias(424, 233, 444, 253, 10, 10, color, 2, []);
color := LongWordToBGRA($0);
bmp.RoundRectAntialias(431, 240, 437, 246, 3, 3, color, 2, []);
color := LongWordToBGRA($FFFFFF);
bmp.RoundRectAntialias(424, 233, 444, 253, 10, 10, color, 2, []);
color := LongWordToBGRA($FF00FF);
bmp.RoundRectAntialias(85, 85, 115, 115, 15, 15, color, 2, []);
color := LongWordToBGRA($90EE90);
bmp.RoundRectAntialias(64, 109, 94, 139, 15, 15, color, 2, []);
color := LongWordToBGRA($ADD8E6);
bmp.RoundRectAntialias(50, 136, 80, 166, 15, 15, color, 2, []);
color := LongWordToBGRA($FFFF);
bmp.RoundRectAntialias(41, 165, 71, 195, 15, 15, color, 2, []);
color := LongWordToBGRA($FFFF00);
bmp.RoundRectAntialias(35, 193, 65, 223, 15, 15, color, 2, []);
bmp.FillEllipseAntialias(477, 180, 100, 50, color);
bmp.FillEllipseAntialias(477, 180, 100, 50, color);
bmp.SaveToFile('result.png');
bmp.Free;
end. |
Partager