Разработка виртуального процессора Опции

[Stinger]

Нужно разработать виртуальный процессор для резки листов железа.Система команд типа "опустить резак","переместить резак на n миллиметров","повернуть резак на k градусов" и т.д. Дать описание системы команд и программу на ней для вырезания квадратного листа с треугольным отверстием посередине.
Помогите пожалуйста.

[Дож]

Вот, написал год назад...

(Это только заголовок модуля)

Код

Unit tortuise;
Interface
Uses graph,crt;
Var gm,gd : integer;{В модуле не используется}
   tx,ty,ta : integer;{позиция и угол, на который повернута черепашка}
   tr : boolean;{рисовать ли}
   tc : word;{цвет карандаша}

Procedure position(q,r : integer);{Устанавливает позицию черепашки}
Procedure setc(q : word);{установить цвет карандаша}
Procedure pendown;{BeginDraw}
Procedure penup;{EndDraw}
Procedure turn(q:integer);{Angle:=Angle+q;}
Procedure turnto(q:integer);{Angle:=q}
Procedure move(q:integer);{сдвинуть черепашку на расстояние q}

IMPLEMENTATION