Primeiras experimentações com Pen-C.

gistfile1.c

// desenho formado por esse código:
// http://is.gd/sbxOxQ

void main(void) {
  inicia();

  origem(320, 240);

  int i;

  for (i = 0; i < 64; i++) {

    // pura tentativa e erro pra gerar as cores das linhas.
    cor(
	i + i % 100,      // vermelho
	2 * i % 100,      // verde
	1 / (1 + i * i)   // azul
    );

    // do ponto A(0, 20) ao B(200, 20)
    linha(0, 20, 200, 20);

    rotaciona(45);

    // muda as coordenadas de origem
    // novamente, tentativa e erro. :P
    origem(
      i,	// x
      -2 * i	// y
    );

  }

  termina();
}