Графор с выводом на плоттер Watanabe

[vak]

В середине 80-х в Дубне на БЭСМ-6 появился диковинный девайс: плоттер WX4675 фирмы Watanabe. Народ сбацал выдачу из библиотеки Графор непосредственно на этот плоттер. На симуляторе этот механизм удалось оживить. Берем самый первый пример из книжки по Графору:

*name графор
*call plotter:wx4675,direct
*ftn
        program grafor
        real x(100), y(100), z(100)
        x(1) = -1.9
        y(1) = sin(x(1))
        z(1) = cos(x(1)) * 1.5
        do 5 i=2,90
            x(i) = x(i-1) + 0.1
            y(i) = sin(x(i))
            z(i) = cos(x(i)) * 1.5
  5         continue
        call page(15., 20., 'PAGE', 4, 1)
        call limits(-2., 7., -1.5, 1.5)
        call region(3., 3., 10., 15., 'REGION', 6, 1)
        call axes('X axis', 6, 1., 5, 'Y axis', 6, 0.3, 4, 0)
        call linemo(x, y, 85, 2, 10)
        call broken(0.5, 0.2, 0.3, 0.2)
        call brline(x, z, 85)
        call endpg(0)
        end
*execute
*end file

Запускаем, получаем рисунок:



А вот так выглядел сам плоттер.

Comments

[juan_gandhi]

Графор!!! Ох забытое слово...

[spamsink]

И, главное, принтер, в сущности, почти постскриптовский. Для счастья нужно только moveto и lineto, остальное от лукавого.

[vak]

Слово из далёкой студенческой юности.
А я ведь и самого Баяковского видел. 😀
Руку жал.

[vak]

Красивый японский минимализм. 😀
Ну а чо, перо одно несменное. Скорость тоже одна и не регулируется. Смена бумаги вручную. Нет причин добавлять какие-то другие команды.

[spamsink]

Я к тому, что язык команд, по сравнению с тем же Калкомпом, высокого уровня. Никаких тебе "поднять перо/опустить перо", программисту не нужно вручную делать Брезенхама - по крайней мере, для отрезков - и т.п.

[vak]

А какая система команд у Калкомпа? Я не помню. А может и не знал никогда.

[spamsink]

Самая базовая модель: https://i.sstatic.net/diJ3W.png
Что у Кобелева: https://i.sstatic.net/TSTlz.jpg

[vak]

Спасибо, понятно. Перепощу у себя для памяти. Это тоже нетрудно в SVG преобразовать. Там есть инкрементные движения. А наш графор выдаёт команды для базовой модели, или для расширенной?

[spamsink]

(Для информации прочих читателей)
Наш графор выдаёт команды для какой-то совсем базовой модели плоттера Calcomp:
нулевой байт в выдаваемом потоке не встречается; биты 5-0 отдельно друг от друга имеют значение движения на шаг в направлении +X, -X, +Y, -Y, поднять перо, опустить перо. По диагоналям двигаться можно; попытка одновременно двигаться и работать пером, или двигаться в противоположных направлениям, видимо, приведет к негарантийной поломке. После команд движения пера выдается 4 байта 0100 (т. е. с установленным битом 6) - это, видимо, явная пауза.