http://www.radioman-portal.ru/progra...7ae448be.shtml
Front Designer v3.0
http://www.radioman-portal.ru/progra...7ae448be.shtml
Front Designer v3.0
Я предпочитаю Splan70.
Немножко дольше, но маневра больше.
Спасибо от evgenij 257
в формате dpf нет циклов и чего-то ещё (уже забыл чего, но там много)
.pdf не язык, в отличии от .ps
по этому всё переведенное в пдф назад вернуть невозможно в принципе
вот Вложение 352143 исходник, даю как есть (давно так не пишу, тогда на совместимость клал, теперь совсем наоборот ибо коллеги могут не понимать кириллицу, а я их национальную кодировку ), кодировка 1251 (я тогда ещё под 98 виндой жил) имена переменных русские (при перекодировке в utf оно умирает, ибо .ps такое не понимает ибо старше юникода)
зы. очень рад что пс интересует людей, язык с нулевым порогом вхождения, читаешь ман, пишешь, учишся...
у вас ограничение "всё что автор программы заложил" а я предлагаю вариант "всё что можно отобразить в формате pdf или написать на языке ps (для нашего случая одно и то-же)"
реальные ограничения - фантазия и художественный вкус
перевыкладываю
ohm.ps.7z
Спасибо, Форт конечно же вспомнился
для желающих освоить postscript два примера разлинованной страницы (простейший пример с одним (в линейку) и двумя циклами (в клетку))
лист влинейку
оно же, конвертировано в pdf влинейку.pdfКод:%!PS-Adobe-3.0 %%For: cqham %%CreationDate: 2021-02-21 11:41:09 %%Orientation: Portrait %%Pages: 1 %%DocumentProcessColors: Black %%EndComments /mm {72 25.4 div mul} bind def 1 setlinecap .5 setlinewidth /dY 8 mm def /Y 20 mm def 33{20 mm Y moveto gsave 595 20 mm 15 mm add sub 0 rlineto stroke grestore /Y Y dY add def}repeat showpage
лист вклетку
оно же, конвертировано в pdf вклетку.pdfКод:%!PS-Adobe-3.0 %%For: cqham %%CreationDate: 2021-02-21 11:41:09 %%Orientation: Portrait %%Pages: 1 %%DocumentProcessColors: Black %%EndComments /mm {72 25.4 div mul} bind def 1 setlinecap .3 setlinewidth /dY 5 mm def /Y 20 mm def /dX 5 mm def /X 20 mm def 53{20 mm Y moveto gsave 595 20 mm 15 mm add sub 0 rlineto stroke grestore /Y Y dY add def }repeat 36{X 20 mm moveto gsave 0 52 5 mm mul rlineto stroke grestore /X X dX add def }repeat showpage
ещё один пример на постскрипте
оптический_обман.pdfКод:%!PS-Adobe-3.0 /dlinna_linii 420 def /rr 28 def 100 60 moveto 13{ dlinna_linii 0 rlineto dlinna_linii neg -5 rmoveto 28{ 10 10 rlineto 5 -10 rmoveto }repeat dlinna_linii neg rr rmoveto dlinna_linii 0 rlineto dlinna_linii neg 5 rmoveto 28{ 10 -10 rlineto 5 10 rmoveto }repeat dlinna_linii neg rr rmoveto }repeat stroke showpage
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)