| Вопрос: OpenGL | Добавлено: 02.09.09 09:05 |
Автор вопроса:  portC | Web-сайт: feshin.info
|
| Ответы | Всего ответов: 36 |
|
Номер ответа: 31 Автор ответа:  portC Вопросов: 14 Ответов: 101 |
Web-сайт: Профиль | | #31 | Добавлено: 04.09.09 00:29 |
|
Public Sub krugi(xstart As Integer, ystart As Integer, radiusmax As Integer, radiusmin As Integer)
т.е. нужно в модуль запихнуть? |
||
|
Номер ответа: 32 Автор ответа: rw12lq Вопросов: 2 Ответов: 80 |
Профиль | | #32 | Добавлено: 04.09.09 00:41 |
| впринципе без разницы... после 18:00 по москве стучи, код скинешь, подскажу. сейчас не варит уже котелок... | ||
|
Номер ответа: 33 Автор ответа: portCВопросов: 14 Ответов: 101 |
Web-сайт: Профиль | | #33 | Добавлено: 04.09.09 00:44 |
|
ок
Public Sub krugi(xstart As Integer, ystart As Integer, radiusmax As Integer, radiusmin As Integer) Dim bu1, bu2, bu3, butmp As Integer Dim i As Integer Dim xst1, xst2, xst3, yst1, yst2, yst3 As Integer Dim radius, t As Integer bu1 = im2[xstart, ystart] bu2 = im2[xstart, ystart] bu3 = im2[xstart, ystart] Draw.Begin(FTest) For radius = radiusmin To radiusmax For t = 0 To 360 'Step 36 xst2 = xstart + (radius * (Sin(t * Pi / 180))) yst2 = ystart + (radius * (Cos(t * Pi / 180))) bu1 = (im2[xst2 + 1, yst2] + im2[xst2 - 1, yst2] + im2[xst2, yst2 + 1] + im2[xst2, yst2 - 1]) Div 2 bu2 = im2[xst2, yst2] bu1 = bu2 - bu1 If bu1 > 0 Then bu3 = 0 Else bu3 = im2[xst2, yst2] End If xst1 = xstart + ((radius - 2) * (Sin(t * Pi / 180))) yst1 = ystart + ((radius - 2) * (Cos(t * Pi / 180))) xst3 = xstart + ((radius + 2) * (Sin(t * Pi / 180))) yst3 = ystart + ((radius + 2) * (Cos(t * Pi / 180))) Draw.ForeColor = bu3 Draw.FillStyle = 1 Draw.Point(xst2, yst2) Draw.ForeColor = bu1 Draw.FillStyle = 1 Draw.Point(xst1, yst1) Draw.ForeColor = bu2 Draw.FillStyle = 1 Draw.Point(xst1, yst1) Next Next Draw.End End |
||
|
Номер ответа: 34 Автор ответа: portCВопросов: 14 Ответов: 101 |
Web-сайт: Профиль | | #34 | Добавлено: 04.09.09 00:45 |
|
'в генерал декларашнс
Private xstart As Integer Private ystart As Integer Private radiusmax As Integer Private radiusmin As Integer |
||
|
Номер ответа: 35 Автор ответа: portCВопросов: 14 Ответов: 101 |
Web-сайт: Профиль | | #35 | Добавлено: 12.09.09 22:31 |
| rw12lq, ты куда пропал? | ||
|
Номер ответа: 36 Автор ответа: portCВопросов: 14 Ответов: 101 |
Web-сайт: Профиль | | #36 | Добавлено: 16.09.09 22:19 |
| ладно, видимо бэйсик - отстой , на сишке пришлось помучать, зато получилось без лишних либ и под линукс, работает довольно быстро | ||