11:30

100% sabiko. Please, hug, hold, feed, care for.
Два дня назад я уснула поздно ночью, и, пока я спала, во всём городе заменили асфальт.

Чёрный асфальт, тёмно-серый или заледеневший - со всех улиц он исчез.

Мои глаза упорно настаивают на сём очевидном факте - я вижу, что иду по цементу. Бледному, мёрвому, светло-сероватому.

Это цвет разрушенных пустых городов из глупых фильмов-катостроф.

Улицы вымерзли.



И снег этого блёклого цемента не прячет, снега нет.

Я примитивно устроена - когда мне холодно, я могу думать лишь о том, что холодно. Мысли сразу становятся склизкие и медленные, как рыбы. Я даже представляю себе, как кровь густеет - она всё задумчивее, ей не хочется уже быть жидкостью, не хочется всё больше и больше - пока она не становится студенистой, словно вишнёвое желе. А потом - льдисто-звонкой - барбарисовые сосульки. Много длинных и тонких сосудов барабарисовых леденцов.

Или может быть - как тающие в соке льдинки - только процесс обратен - и шуршащего ледяного крошева в артериях всё больше, пока не.

Мысли-рыбы и льдины-мысли, скользят друг о друга - льдины кверху белым снегом, рыбы кверху белым брюхом.

Пальцы медленны.

В сеть лучше не заходить - медленные пальцы потратят в два раза больше времени и пэтээна, чем пальцы привычные.



Мне нравится чем-то это состояние. Энтузиазма хватает лишь на беганье от окна к окну - баррикадуруюсь от улицы душевно так, в комнатах уже темно, аки в подвалах, только на кухне сквозь толстую плёнку просачивается нечто мутно-солнечное.

Зато на прочем энтузьязм завядает. И я, зная, что всё равно не буду (мозг мёрзл, будто кочан капусты за порогом) готовиться ни к одному из сегодня-завтрашних двух экзаменов - счастиво могу валяться под одеялом, долизывать из банки жалкие остатки малинового варенья (горло слишком печально продуваемо) да читать ирландские мифы, игру в бисер, гауфа и пратчетта - вместе и попеременно.

Я грею пальцы над масляной лампой, и пальцы чернеют.

в шесть утра на кухне грею чайник, и радио радостно поёт про "рок-н-ролл этой ночью, рок-н-ролл этой ночью.." - я не фанатка шахрина, и настроение не то - но слишком холодно ждать кипятка - я играю в "не наступать на пол" сама с сабой, подпеваю, притопывая по конфоркам, на кухонной плите, над которой мелом крашенный потолок - и пальцы белеют.

"..я думал, будет хорошо-о - а вышло не очень."

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

Я боюсь выходить за стены - там ждёт меня Тильда Суинтон. От меня останется ледяная скульптура.

В институте мне сказали, что это верно, будет очень эстетично - ораньжевые полоски сквозь лёд.

Но мной и заради эстетики не согласны пожертвовать.

Абсолютно поддерживаю сей варварский, но крайне верный взгляд.

@темы: картинки, Гopoд, агрегатные

Комментарии
16.02.2006 в 15:10

100% sabiko. Please, hug, hold, feed, care for.
Dim Pict(120, 120), pict2(120, 120) As Single

Dim wdth, hght As Integer

Dim a, b As Variant



Private Sub Command1_Click()

Set Picture1.Picture = LoadPicture("D:\Program Files\burton.bmp")

End Sub



Private Sub Command2_Click()

wdth = Picture1.ScaleWidth

hght = Picture1.ScaleHeight

For i = 1 To 120

For j = 1 To 120

Pict(i, j) = Picture1.Point(i, j)

'Picture2.PSet (i, j), Picture1.Point(j, i)

Next j

Next i

'For i = 1 To 60

'For j = 1 To 120

'a = (Pict(2 * i - 1, j) + Pict(2 * i, j)) / 2

'Picture2.PSet (i, j), a

'Next j

'Next i

'For i = 1 To 60

'For j = 1 To 120

'a = (Pict(2 * i - 1, j) - Pict(2 * i, j)) / 2

'Picture2.PSet (i + 60, j), a

'Next j

'Next i

For i = 1 To 60

For j = 1 To 120

a = (Pict(2 * i - 1, j) + Pict(2 * i, j)) / 2

b = (Pict(2 * i - 1, j) - Pict(2 * i, j)) / 2

'If b < 0.05 Then

'b = 0

'End If

Picture2.PSet (i, j), a

Picture2.PSet (i * 2, j), b

Picture3.PSet (2 * i - 1, j), a + b

Picture3.PSet (2 * i, j), a - b



Next j

Next i



End Sub
11.05.2006 в 15:41

100% sabiko. Please, hug, hold, feed, care for.
Dim Pict(120, 120), pict2(120, 120) As Long

Dim wdth, hght As Integer

Dim a, b As Variant



Private Sub Command1_Click()

Set Picture1.Picture = LoadPicture("Z:\g3704s13\burton.bmp")

End Sub



Private Sub Command2_Click()

wdth = Picture1.ScaleWidth

hght = Picture1.ScaleHeight

For i = 1 To 120

For j = 1 To 120

Pict(i, j) = Picture1.Point(i, j)

'Picture2.PSet (i, j), Picture1.Point(j, i)

Next j

Next i

'For i = 1 To 60

'For j = 1 To 120

'a = (Pict(2 * i - 1, j) + Pict(2 * i, j)) / 2

'Picture2.PSet (i, j), a

'Next j

'Next i

'For i = 1 To 60

'For j = 1 To 120

'a = (Pict(2 * i - 1, j) - Pict(2 * i, j)) / 2

'Picture2.PSet (i + 60, j), a

'Next j

'Next i

For i = 1 To 60

For j = 1 To 120

a = (Pict(2 * j - 1, j) + Pict(2 * i, j)) / 2

b = (Pict(2 * i - 1, j) - Pict(2 * i, j)) / 2

'If b < 0.05 Then

'b = 0

'End If

Picture2.PSet (i, j), a

Picture2.PSet (i * 2, j), b

Picture3.PSet (2 * i - 1, j), a + b

Picture3.PSet (2 * i, j), a - b

Next j

Next i

For i = 1 To 120

For j = 1 To 120

Pict(i, j) = Picture2.Point(i, j)

Next j

Next i

End Sub



Private Sub Command3_Click()

For i = 1 To 120

For j = 1 To 60

a = (Pict(i, 2 * j - 1) + Pict(i, 2 * j)) / 2

b = (Pict(i, 2 * j - 1) - Pict(i, 2 * j)) / 2

Picture2.PSet (i, j), a

Picture2.PSet (i, j * 2), b

If a < 1 Then

a = 0

End If

Picture3.PSet (i, j * 2 - 1), a + b

Picture3.PSet (i, j * 2), a - b

'Pict(i, j * 2) = Picture2.Point(i, j * 2)

'Pict(i, j * 2 - 1) = Picture2.Point(i, j * 2 - 1)

Next j

Next i



'For i = 1 To 60

'For j = 1 To 60

'Picture3.PSet (2 * i - 1, j * 2 - 1), Picture2.PSet(i, j) + b

'Picture3.PSet (2 * i, j * 2), a - b

'Next j

'Next i





End Sub



Private Sub Command4_Click()

For i = 1 To 120

For j = 1 To 120

Pict(i, j) = Picture3.Point(i, j)

Next j

Next i

For i = 1 To 60

For j = 1 To 120

b = Pict(i * 2, j)

a = Pict(i, j)

'Picture2.PSet (i, j), a

'Picture2.PSet (i * 2, j), b

Picture3.PSet (2 * i - 1, j), a + b

Picture3.PSet (2 * i, j), a - b

Next j

Next i

End Sub

15.05.2006 в 14:02

100% sabiko. Please, hug, hold, feed, care for.
Вопросы к экзамену



1. Использование форм для передачи данных на web-сервер. Основные элементы формы.

2. HTTP-протокол. Методы передачи данных POST и GET.

3. HTTP-протокол. Основные заголовки HTTP-запроса.

4. HTTP-протокол. Основные заголовки HTTP-ответа.

5. Конфигурационные файлы httpd.conf и php.ini. Основные директивы. Подключение PHP к Apache

6. Основы SQL. SELECT, CREATE TABLE, INSERT IGNORE, DELETE.

7. Создание таблицы с помощью SQL. Типы полей.

8. Выборка данных из таблицы с помощью SQL-запроса. Сортировка данных, выбор по диапазону, ограничение числа выбираемых строк.

9. Массивы и переменные в PHP.

10. Организация циклов в PHP.

11. Условные операторы в PHP, операции сравнения.

12. Основные функции PHP для работы с MySQL.

13. Добавление записи в таблицу MySQL с помощью формы.

14. Вывод данных из таблицы с помощью PHP.

15. Пример приложения на основе PHP и MySQL.

16. Реализация подсистемы регистрации на основе форм, PHP и MySQL.

17. Реализация простейшего чата на основе PHP и MySQL.

Расширенная форма

Редактировать

Подписаться на новые комментарии