Драйвер-рисовалка по точкам (не Graph), Графический драйвер Опции

[Чужак]

Кто-нибудь может мне подсказать:
когда я учился в школе, у нас был Паскаль со своеобразным графическим драйвером-рисовалкой (не факт, что это был Паскаль 7; и не могу точно сказать-Борланд или ТурбоПаскаль)-там были команды PenDn (опустить перо), PenUp (поднять перо), MoveT(X,Y), OXOY (система координат);
и можно было сделать отрисовку по линиям и по точкам, не как в Graph. Назвывался он просто Drawer.pas. Программа отрисовки прямоугольника выглядела так:

Program pr;
{$I Drawer.pas}{<--это он подключался}
Var X,Y,Z,C:Real;
Begin
WriteLn('Ведите длину ');
Read(X),
WriteLn('Ведите ширину ');
Read(Y),
Z:=X/2; C:=Y/2;
Drawer on; {<--это он инициализировался}
PenDn;
Movet (0,0);{<--здесь  обход по точкам}
 .....PenUp;
End.

Может кто знает, в какой версии паскаля он есть?
Где его можно найти?
Как подключить к 7 Турбопаскалю (и можно ли это сделать)?
И еще вопрос (если это драйвер из старых версий Паскаля)-есть что-то аналогичное в 7 Паскале?

[Чужак]

Благодарю всех, кто откликнулся.
Пока разбираюсь...
Где можно прочесть про все команды graph3 и черепашки?
На форуме нашел тему "
Разработка виртуального процессора,
", где рассматривается близкая задача, качнул оттуда модуль tortuise, откомпиллировал-работает, но как подключить его к программе и использовать в ней его команды-не знаю. Никто не подскажет?
To volvo
Твоя программа работает.
Не подскажешь, как изменить начальную точку отрисовки и цвет (рисует только красным)?
To Оззя
Твой модуль скачал, пока разбираюсь...

Сообщение отредактировано: Чужак - 6.06.2007 22:21