Я как-то делал модуль Canvas для простого рисования на отображении, он в составе подсистемы Stern:
download/file.php?id=178

Вот пример использования полилинии:
## Код:
```
PROCEDURE SetPoint(VAR ap: ARRAY OF Ports.Point; x,y : INTEGER; n: INTEGER);
   BEGIN
         ap[n].x := x; ap[n].y := y;
   END SetPoint;

   PROCEDURE Draw*;
   VAR p: ARRAY 10 OF Ports.Point;
   BEGIN
       SternCanvas.SetBgColor(100,100,1);
      (*подготовка массива точек*)
      SetPoint(p, 10,5, 0);
      SetPoint(p, 40,20, 1);
      SetPoint(p, 80,10, 2);
      SetPoint(p, 160,20, 3);
      SetPoint(p, 200,30, 4);
      SetPoint(p, 180,80, 5);
      SetPoint(p, 120,100, 6);
      SetPoint(p, 80,110, 7);
      SetPoint(p, 40,50, 8);
      SetPoint(p, 10,30, 9);
      SternCanvas.Path(p, 0, SternCanvas.red, SternCanvas.openBezier);
      SternCanvas.Path(p, 0, SternCanvas.blue, SternCanvas.openPoly);
   END Draw;
```
