100% sabiko. Please, hug, hold, feed, care for.
Два дня назад я уснула поздно ночью, и, пока я спала, во всём городе заменили асфальт.
Чёрный асфальт, тёмно-серый или заледеневший - со всех улиц он исчез.
Мои глаза упорно настаивают на сём очевидном факте - я вижу, что иду по цементу. Бледному, мёрвому, светло-сероватому.
Это цвет разрушенных пустых городов из глупых фильмов-катостроф.
Улицы вымерзли.
И снег этого блёклого цемента не прячет, снега нет.
Я примитивно устроена - когда мне холодно, я могу думать лишь о том, что холодно. Мысли сразу становятся склизкие и медленные, как рыбы. Я даже представляю себе, как кровь густеет - она всё задумчивее, ей не хочется уже быть жидкостью, не хочется всё больше и больше - пока она не становится студенистой, словно вишнёвое желе. А потом - льдисто-звонкой - барбарисовые сосульки. Много длинных и тонких сосудов барабарисовых леденцов.
Или может быть - как тающие в соке льдинки - только процесс обратен - и шуршащего ледяного крошева в артериях всё больше, пока не.
Мысли-рыбы и льдины-мысли, скользят друг о друга - льдины кверху белым снегом, рыбы кверху белым брюхом.
Пальцы медленны.
В сеть лучше не заходить - медленные пальцы потратят в два раза больше времени и пэтээна, чем пальцы привычные.
Мне нравится чем-то это состояние. Энтузиазма хватает лишь на беганье от окна к окну - баррикадуруюсь от улицы душевно так, в комнатах уже темно, аки в подвалах, только на кухне сквозь толстую плёнку просачивается нечто мутно-солнечное.
Зато на прочем энтузьязм завядает. И я, зная, что всё равно не буду (мозг мёрзл, будто кочан капусты за порогом) готовиться ни к одному из сегодня-завтрашних двух экзаменов - счастиво могу валяться под одеялом, долизывать из банки жалкие остатки малинового варенья (горло слишком печально продуваемо) да читать ирландские мифы, игру в бисер, гауфа и пратчетта - вместе и попеременно.
Я грею пальцы над масляной лампой, и пальцы чернеют.
в шесть утра на кухне грею чайник, и радио радостно поёт про "рок-н-ролл этой ночью, рок-н-ролл этой ночью.." - я не фанатка шахрина, и настроение не то - но слишком холодно ждать кипятка - я играю в "не наступать на пол" сама с сабой, подпеваю, притопывая по конфоркам, на кухонной плите, над которой мелом крашенный потолок - и пальцы белеют.
"..я думал, будет хорошо-о - а вышло не очень."
А за мутным светом из кухонного окошка угадывается утро, пальцы грею о кружку кофе, нахожу мороженый возле подоконника мандарин - бульк, бульк - повторяю вслух - и дольки в чайной ложке горячие, теплом и кофейным запахом.
Я боюсь выходить за стены - там ждёт меня Тильда Суинтон. От меня останется ледяная скульптура.
В институте мне сказали, что это верно, будет очень эстетично - ораньжевые полоски сквозь лёд.
Но мной и заради эстетики не согласны пожертвовать.
Абсолютно поддерживаю сей варварский, но крайне верный взгляд.
Чёрный асфальт, тёмно-серый или заледеневший - со всех улиц он исчез.
Мои глаза упорно настаивают на сём очевидном факте - я вижу, что иду по цементу. Бледному, мёрвому, светло-сероватому.
Это цвет разрушенных пустых городов из глупых фильмов-катостроф.
Улицы вымерзли.
И снег этого блёклого цемента не прячет, снега нет.
Я примитивно устроена - когда мне холодно, я могу думать лишь о том, что холодно. Мысли сразу становятся склизкие и медленные, как рыбы. Я даже представляю себе, как кровь густеет - она всё задумчивее, ей не хочется уже быть жидкостью, не хочется всё больше и больше - пока она не становится студенистой, словно вишнёвое желе. А потом - льдисто-звонкой - барбарисовые сосульки. Много длинных и тонких сосудов барабарисовых леденцов.
Или может быть - как тающие в соке льдинки - только процесс обратен - и шуршащего ледяного крошева в артериях всё больше, пока не.
Мысли-рыбы и льдины-мысли, скользят друг о друга - льдины кверху белым снегом, рыбы кверху белым брюхом.
Пальцы медленны.
В сеть лучше не заходить - медленные пальцы потратят в два раза больше времени и пэтээна, чем пальцы привычные.
Мне нравится чем-то это состояние. Энтузиазма хватает лишь на беганье от окна к окну - баррикадуруюсь от улицы душевно так, в комнатах уже темно, аки в подвалах, только на кухне сквозь толстую плёнку просачивается нечто мутно-солнечное.
Зато на прочем энтузьязм завядает. И я, зная, что всё равно не буду (мозг мёрзл, будто кочан капусты за порогом) готовиться ни к одному из сегодня-завтрашних двух экзаменов - счастиво могу валяться под одеялом, долизывать из банки жалкие остатки малинового варенья (горло слишком печально продуваемо) да читать ирландские мифы, игру в бисер, гауфа и пратчетта - вместе и попеременно.
Я грею пальцы над масляной лампой, и пальцы чернеют.
в шесть утра на кухне грею чайник, и радио радостно поёт про "рок-н-ролл этой ночью, рок-н-ролл этой ночью.." - я не фанатка шахрина, и настроение не то - но слишком холодно ждать кипятка - я играю в "не наступать на пол" сама с сабой, подпеваю, притопывая по конфоркам, на кухонной плите, над которой мелом крашенный потолок - и пальцы белеют.
"..я думал, будет хорошо-о - а вышло не очень."
А за мутным светом из кухонного окошка угадывается утро, пальцы грею о кружку кофе, нахожу мороженый возле подоконника мандарин - бульк, бульк - повторяю вслух - и дольки в чайной ложке горячие, теплом и кофейным запахом.
Я боюсь выходить за стены - там ждёт меня Тильда Суинтон. От меня останется ледяная скульптура.
В институте мне сказали, что это верно, будет очень эстетично - ораньжевые полоски сквозь лёд.
Но мной и заради эстетики не согласны пожертвовать.
Абсолютно поддерживаю сей варварский, но крайне верный взгляд.
-
-
16.02.2006 в 15:10Dim 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:41Dim 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:021. Использование форм для передачи данных на 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.