ZealOS/src/Demo/Graphics/SpriteRaw.ZC
TomAwezome 3a33e6baaf Rename CosmiC to ZealC.
Rename all .CC files to .ZC extension.
2021-12-11 06:21:22 -05:00

48 lines
851 B
HolyC
Executable file

//Normally, you make sprites with <CTRL-r>.
//This shows how to build a sprite by hand.
//See $MA-X+PU,"::/Apps/GrModels",LM="Cd(\"::/Apps/GrModels\");Dir;View;\n"$.
class MySprite
{ // See $LK,"Sprite Elem Types",A="MN:SPT_LINE"$
CSpriteColor color;
CSpritePtPt line1;
CSpritePtPt line2;
CSpritePtPt line3;
CSpritePt fill;
CSpriteBase end;
};
U0 SpriteRawDemo()
{
MySprite s;
MemSet(&s, 0, sizeof(s));
s.color.type = SPT_COLOR;
s.color.color = GREEN;
s.line1.type = SPT_LINE;
s.line1.x2 = 100;
s.line1.y2 = 50;
s.line2.type = SPT_LINE;
s.line2.x2 = 50;
s.line2.y2 = 100;
s.line3.type = SPT_LINE;
s.line3.x1 = 100;
s.line3.y1 = 50;
s.line3.x2 = 50;
s.line3.y2 = 100;
s.fill.type = SPT_FLOOD_FILL;
s.fill.x1 = 20;
s.fill.y1 = 20;
s.end.type = SPT_END;
Sprite(&s);
"%h13c", '\n';
}
SpriteRawDemo;