Отлично, отлично, Слава! Я тут слегка подправил вариант, чтобы рисовал и серединку. Также ввёл коррекцию соотношений сторон, но в точном значении аспекта я не уверен (домножил по координате Y) — надо пробовать на реале. Кстати, в конце нужна процедура SetGraphMode(Text), тогда ошибка не возникает. А работать с образом диска у меня получилось с помощью плагина RT11dsk для Total Commander.
Ну и вот вариант на Обероне для Спектрума. Как видите, в нём легко угадывается старый добрый Паскаль. Рисует довольно медленно вследствие низкой скорости вещественных вычислений на Z80. Хотя ускорить конечно можно.
Ответить с цитированием
