-- вызывается прерывание номер 5 DOS: Print Screen - Печатать Экран
registers = dos_interrupt(#5, registers)
Пример программы:
demo\dos32\dosint.ex
См. также:
allocate_low, free_low
draw_line
Платформа:
DOS32
Синтаксис:
include graphics.e
draw_line(i, s)
Описание:
Чертит на экране в пиксельном режиме линию, соединяющую две или более точек с координатами, заданными в s, используя цвет номер i.
Пример:
draw_line(WHITE, {{100, 100}, {200, 200}, {900, 700}})
-- Белой линией будут соединены три точки
-- от {100, 100} до {200, 200}
-- и от {200, 200} до {900, 700}.
См. также:
polygon, ellipse, pixel
...
ellipse
Платформа:
DOS32
Синтаксис:
include graphics.e
ellipse(i1, i2, s1, s2)
Описание:
Вычерчивает на экране в пиксельном режиме эллипс цвета номер i1. Эллипс будет вписан в воображаемый прямоугольник, определённый диагональными точками s1 {x1, y1} и s2 {x2, y2}. Если прямоугольник равносторонний (квадрат), эллипс становится кругом. Эллипс будет заполненным, когда аргумент i2 равен 1, и незаполненным, когда i2 равно 0.
Пример:
ellipse(MAGENTA, 0, {10, 10}, {20, 20})
-- Процедура вычерчивает окружность пурпурного (малинового) цвета,
-- которая является вписанной в воображаемый квадрат
-- с координатами вершин: {10, 10}, {10, 20}, {20, 20}, {20, 10}.
Пример программы:
demo\dos32\sb.ex
См. также:
polygon, draw_line
equal
Синтаксис:
i = equal(x1, x2)
Описание:
Сравнивает два объекта Euphoria для проверки их идентичности. Выдаёт 1 (истина), если объекты идентичны, 0 (ложь), если имеется отличие.
Комментарии:
Данная операция эквивалентна выражению: compare(x1, x2) = 0
Эта подпрограмма, подобно большинству встроенных подпрограмм, очень быстрая. В ней нет никаких накладных расходов на дополнительные вызовы.
Пример 1:
if equal(PI, 3.14) then
puts(1, "дайте мне более точное значение для PI!\n")
end if
Пример 2:
if equal(name, "George") or equal(name, "GEORGE") then
puts(1, "его имя - George\n")
end if
См. также:
compare, операции сравнения (=)
find
Синтаксис:
i = find(x, s)
Описание:
Ищет объект x как элемент ряда s. В случае первого же успеха выдаёт индекс (номер) текущего элемента в ряде s, который совпадает по величине с x, и прекращает дальнейший поиск. При неудаче поиска выдаёт 0.
Пример 1:
location = find(11, {5, 8, 11, 2, 3})
-- индекс location будет равен 3
Пример 2:
names = {"fred", "rob", "george", "mary", ""}
location = find("mary", names)
-- индекс location будет равен 4
См. также:
find_from, match, match_from, compare
find_from
Синтаксис:
i1 = find_from(x, s, i2)
Описание:
Ищет объект x как элемент ряда s, начиная поиск с индекса (номера) i2. В случае первого же успеха выдаёт индекс (номер) текущего элемента в ряде s, который совпадает по величине с x, и прекращает дальнейший поиск. При неудаче поиска выдаёт 0. Индекс i2 может иметь любую величину в диапазоне от 1 до длины ряда s плюс 1 - аналогично первому индексу сечения (отрезка) ряда s.
Пример 1:
location = find_from(11, {11, 8, 11, 2, 3}, 2)
-- индекс location будет равен 3
Пример 2:
names = {"mary", "rob", "george", "mary", ""}
location = find_from("mary", names, 3)
-- индекс location будет равен 4
См. также:
find, match, match_from, compare
float32_to_atom
Синтаксис:
include machine.e
a1 = float32_to_atom(s)
Описание:
Преобразует ряд, состоящий из 4 байтов, в атом. Считается, что эти 4 байта должны содержать число с плавающей точкой в 32-битном формате по стандарту IEEE.
Комментарии:
Любая 4-х байтовая величина, выражающая 32-битное число с плавающей точкой в формате IEEE, может быть преобразована в атом.
Пример:
f = repeat(0, 4)
fn = open("numbers.dat", "rb") -- побайтовое чтение
f[1] = getc(fn)
f[2] = getc(fn)
f[3] = getc(fn)
f[4] = getc(fn)
a = float32_to_atom(f)
См. также:
float64_to_atom, atom_to_float32
float64_to_atom
Синтаксис:
include machine.e
a1 = float64_to_atom(s)
Описание:
