31. ACL -- задачи и решения. Анимация.

автор: Виктор Кон, Курчатовский институт, URL: http://kohnvict.ucoz.ru/main.htm

1. Введение.

В языке ACL есть специальный аппарат программирования анимаций. Он не такой мощный, как в языке Java, зато более простой в реализации и более понятный для новичков. Как это работает написано в главе 16. Здесь я просто покажу некоторые примеры готовых программ. Замечу также, что в языке есть и специальная операция команды анимации, которая показывает анимацию заданного типа в готовом виде. Необходимо только задать входные данные. Это тоже иногда полезно использовать. Она показывает произвольный набор картинок. А можно писать какие-то специальные программы анимаций.

2. Показ двумерного массива в виде графиков сечений, сменяющих друг друга с течением времени.

Такая программа может понадобиться в презентациях докладов по моей программе показа презентаций. Программа показа презентаций называется Lecture и она существует как одна из готовых ACL программ. В этой программе к любому слайду можно добавить файл с программой на языке ACL, которая выполняется при нажатии клавиши [Enter] в отдельном окне поверх слайда. Предположим, что вы показали на слайде двумерное распределение какой-то величины. Но в нем есть мелкие осцилляции, которые плохо видны на двумерном распределении. Альтернативно можно показать серию сечений. Но готовить много картинок не хочется. Вместо этого удобнее записать сам двумерный массив и готовить картинки динамически. Программа для такого показа может быть такой

# n1=2048; n2=256; n=n1*n2; W=980; H=500; d=0.04; x1=d*(1-n1)/2; x2=-x1; J1=1+n; #d 11 r(J1) 1 -42 42 -40 20 9 -0.01 0.35 0 0.1 9 #io [op=rd; fir=r(1); n=n; mo=1; file=lect/intp01s.dat; le=0;] #ag [op=o; wid=W+20; hei=H+46; xs=(s(106)-W)/2; ys=(s(107)-H)/2; file=nomusic;] -\E # &=0; k=0; #case 0 # j=1+k*n1; #d 7 A j n1 1 x1 x2 248 1100 #pri Intensity\E ============= # o=s(109)-99; #pas 26 A r(o+17) # i(14991)=s(4); i(14992)=s(5); # I=int(G/1000); G=0.01*(G-I*1000); J=30*G; K=470*G; #p [tw=980*G; th=500*G; wid=870*G; hei=400*G; xs=90*G; ys=50*G; bot=3*G; top=6*G; tsi=26*G;] #p [b=A; le=0; mo=0; sty=1; nx=B; ny=C; sav=3; uni=J1; msi=0;] #w [op=pf; file=here; n=1; c=1; col=F; tfo=3; tki=0;] D E J K -2 \Ti(14991) i(14992)\E #pas 26 r(o+17) A ============== #g [op=open; twi=W; the=H; col=246;] #g [op=image; nx=490; ny=250; n=3; file=here;] #g [op=clos; sav=2;] #ag [op=m; n=2; xs=0; ys=-13; wid=W; hei=H;] Интенсивность\E #rob [mo=1; le=200;] # &=abs(s(2)-10); #case 0 # k=k+1; &=k; #case n2 # k=0; #end | #end | # &=0; #end # &=12345; #ag [op=c;] #ini

Рассмотрим что она делает. В 1-й строке в переменных n1 и n2 заданы размеры числового массива по горизонтали и по вертикали. В переменных W и H заданы размеры картинки графика в пикселах. Далее в переменной d задан шаг сетки точек и в переменных x1 и x2 вычисляются первый и последний аргументы каждого сечения. Во 2-й строке в массив записаны 11 чисел разметки осей графика. В 3-й строке числа массива прочитываются из файла c заданным названием (его можно менять) в папке lect. Для программы презентации название папки менять нельзя, если вся презентация записана в zip архив.

Наконец, в 4-й строке открывается окно анимации посередине экрана компьютера. Затем открывается цикл и обнуляется счетчик цикла k. В 7-й строке задаются входные данные для показа стандартного графика, который делает суперкоманда smau. Но суперкоманда не используется, вместо ее вызова записан ее код, который выделен горизонтальными линиями. При этом программа запоминает картинку в третьем элементе массива картинок в памяти компьютера. Затем открывается графический режим для новой картинки, в нее записывается уже приготовленная картинка и режим закрывается. Новая картинка, то есть фактически та же самая снова спасается, но уже во второй элемент массива картинок.

Вообще говоря, это можно было бы не делать, просто в этом случае вместе со стандартной картинкой в новую картинку можно добавить еще что-то, а в примере показан способ как это сделать. После того, как картинка полностью готова, она показывается в окне анимации, а затем командой #rob устанавливается задержка в работе программы на 200 миллисекунд, число можно менять. Каждый раз команда показа картинок проверяет наличие нажатых клавишей и сообщает их код в переменную s(2). Если последней нажатой клавишей была клавиша [Enter], код которой равен 10, то счетчик увеличивается на 1, а по достижении максимального значения снова обнуляется.

И все. Цикл работает бесконечно. А выход из цикла выполняется по закрытию окна анимации кликом на крестике в правом углу титульной строки. В этом случае все циклы перестают работать, программа выходит из цикла, а команда #ini снова восстанавливает работу всех циклов. Интересно, что если в процессе показа нажать любую клавишу, отличную от [Enter], то картинка все равно рисуется постоянно и сменяется, только на ней все время будет одно и то же сечение, и зритель никакой анимации не заметит. То есть программа позволяет остановить анимацию на любом кадре и потом запустить ее снова.

Код программы можно использовать как есть и только менять значение переменных n1, n2, d, разметку осей и имя файла числовой матрицы. Переменные W и H менять нельзя, так как они используются в явном виде в программе рисования графика. Числовая матрица должна быть записана в коде компьютера в таком виде, как это делает Java. Если матрица записана в другом виде, то ее надо перезаписать используя команды языка ACL.