Prolog - codigo en C++ y necesito ayuda pasar a Prolog

#define PI 3.141593
#define XCENTRO 359
#define YCENTRO 173
#define XMAX 680
#define YMAX 400
#define XYREL 1.3
main()
{
int driver = DETECT, modo;
double orden, t[6], h, m, n, l, k, s, x, y;
clrscr();
initgraph(&driver, &modo, "C:\\BC5\\BGI");
rectangle(0, 0, XMAX, YMAX);
for (orden = 1; orden <= 5; orden++) {
x = 180.0; y = 10 + 63 * (5 - orden);
h = pow(3.0, ((-1.0) * orden)) * 280.0;
moveto((int)(x), YMAX - (int)(y));
/* Se construye la curva */
for (n = 0.0; n <= pow(4.0, orden) -1; n++) {
m = n;
for (l = 0.0; l <= orden - 1.0; l++) {
t[l] = (int)m % 4;
m = floor(m / 4.0);
}
s = 0.0;
for (k = 0.0; k <= orden - 1.0; k++) {
s = s + (int)(t[(int)k] + 1) % 3 - 1;
}
x = x + cos(PI * s / 3.0) * h * XYREL;
y = y + sin(PI * s / 3.0) * h;
lineto((int)x, YMAX - (int)y);
}
}
/* Se emite un sonido cuando finaliza la graficacion */
putchar('\a');
getch();
closegraph();
return 0;
}