parabolar

[iambas]

void parabolar(int r) {
int pk, x = 0, y = 0;
pk = 0.4;
setpixel(image, cx, x, y, 0, 0, 0);
while (x <= r) {
if (x < 6)
{
x++;
if (pk < 0)
{
pk = pk - 0.2x + 0.7;
y++;
}
else
{
pk = pk - 0.2x - 0.3;
}
}
else
{
if (x == 6)
{
pk = 0.475;
}
y++;
if (pk < 0)
{
pk = pk + 1;
}
else
{
pk = pk - 0.2 * x + 0.8;
x++;
}
}
setpixel(image, cx, x, y, 0, 0, 0);
}
}