Язык программирования Euphoria. Справочное руководство

-- запуск звука на встроенном динамике под DOS

sound(500)

t = time()

while time() do

end while

sound(0)

else

-- пропуск команды под Linux/FreeBSD

end if

См. также:

platformr.doc

poke

Синтаксис:

poke(a, x)

Описание:

Если x является атомом, в память по адресу a записывается один байт. Если же x является рядом, в память, начиная с адреса a, записывается последовательность байтов, представленная этим рядом.

Комментарии:

В память записываются младшие 8 битов величины x, т.е. remainder(x, 256), а не сама величина х.

Запись в память ряда байтов является значительно более быстрой, чем поочерёдная запись отдельных байтов в цикле.

Вывод в экранную память с помощью poke() может быть намного быстрее, чем стандартная запись на экран с помощью процедур puts() или printf(), но программирование такого вывода заметно сложнее. В большинстве случаев сверхвысокая скорость не требуется. Например, в редакторе ed.ex из пакета Euphoria poke() никогда не используется.

Пример:

a = allocate(100) -- выделяется 100 байтов в памяти

-- заносится в память один байт за один вызов poke():

poke(a, 97)

poke(a+1, 98)

poke(a+2, 99)

-- заносится 3 байта сразу:

poke(a, {97, 98, 99})

Пример программы:

demo\callmach.ex

См. также:

peek, poke4, allocate, free, allocate_low, free_low, call, safe.e

poke4

Синтаксис:

poke4(a, x)

Описание:

Если x является атомом, в память по адресу a записывается 4 байта (32 бита).

Если x является рядом, в память, начиная с адреса a, записывается последовательность 4-байтовых величин, представленная этим рядом.

Комментарии:

Величина или величины, предназначенные к записи, не должны превышать 32-битного значения.

Более быстрой является процедура записи сразу нескольких 4-байтовых величин, чем поочерёдная запись этих величин в цикле.

Записываемые 4-байтовые величины могут быть положительными или отрицательными. Считаны они могут быть затем с помощью или peek4s(), или peek4u().

Пример:

a = allocate(100) -- выделяется 100 байтов в памяти

-- записывается одна 4-байтовая величина за каждый вызов poke4():

poke4(a, 9712345)

poke4(a+4, #FF00FF00)

poke4(a+8, -12345)

-- записывается три 4-байтовых величины сразу:

poke4(a, {9712345, #FF00FF00, -12345})

См. также:

peek4u, peek4s, poke, allocate, allocate_low, call

polygon

Платформа:

DOS32

Синтаксис:

include graphics.e

polygon(i1, i2, s)

Описание:

Вычерчивается многоугольник с 3-мя или более вершинами, заданными в s, на пиксельно-графическом экране с использованием цвета i1. Внутренняя область закрашивается, если i2 равно 1. Не закрашивается, если i2 равно 0.

Пример:

polygon(GREEN, 1, {{100, 100}, {200, 200}, {900, 700}})

-- вычерчивается сплошной зелёный треугольник.

См. также:

draw_line, ellipse

position

Синтаксис:

position(i1, i2)

Описание:

Перемещает курсор на строку i1, в колонку i2, верхний левый угол экрана соответствует строке 1, колонке 1. Символ, выводимый на экран после этой команды, появится именно в назначенном месте. position() сообщит об ошибке, если предпринимается попытка задания знакоместа за пределами экрана.

Комментарии:

position() работает и в текстовом, и в пиксельно-графическом режимах.

Система координат при отображении текста отличается от системы координат при отображении пикселов. Пикселы отображаются так, что верхний левый угол экрана соответствует координатам (x=0,y=0), а первая координата задает положение по горизонтали, слева направо. В пиксельно-графических режимах вы можете отображать и текст, и пикселы. Процедура position() устанавливает только строку и колонку для текста, положением пикселов она не управляет. Аналогичной процедуры для назначения следующей пиксельной позиции не существует.

Пример:

position(2,1)

-- курсор устанавливается в начало второй строки сверху

См. также:

get_position, puts, print, printf

power

Синтаксис:

x3 = power(x1, x2)

Описание:

Возводит x1 в степень x2, выдаёт результат.

Комментарии:

Аргументами данной функции могут быть атомы или ряды. В последнем случае применяются правила операций на рядах.

Степени 2 вычисляются очень быстро.

Пример 1:

? power(5, 2)

-- печатается 25

Пример 2:

? power({5, 4, 3.5}, {2, 1, -0.5})

-- печатается {25, 4, 0.534522}

Пример 3:

? power(2, {1, 2, 3, 4})

-- {2, 4, 8, 16}