|
ПОМОГИТЕ
| |
| real | Дата: Четверг, 28.01.2010, 19:02 | Сообщение # 1 |
|
ламер
Группа: Пользователи
Сообщений: 8
Награды: 0
Репутация: 0
Статус: Offline
| как закрасить куб тремя разными цветами?(RGB)
Сообщение отредактировал real - Четверг, 28.01.2010, 19:03 |
| |
| |
| deejex | Дата: Четверг, 28.01.2010, 20:21 | Сообщение # 2 |
заядлый прогер
Группа: Пользователи
Сообщений: 522
Награды: 2
Репутация: 14
Статус: Offline
| скажи конкретнее.
можно наложить текстуру или изменить вертекс колор...
|
| |
| |
| real | Дата: Четверг, 28.01.2010, 20:25 | Сообщение # 3 |
|
ламер
Группа: Пользователи
Сообщений: 8
Награды: 0
Репутация: 0
Статус: Offline
| текстура не подходит,надо именно чтоб куб был закрашен не одним цветом а одновременно тремя модели RGB.
очень срочно надо сделать...
Сообщение отредактировал real - Четверг, 28.01.2010, 20:28 |
| |
| |
| deejex | Дата: Четверг, 28.01.2010, 20:37 | Сообщение # 4 |
|
заядлый прогер
Группа: Пользователи
Сообщений: 522
Награды: 2
Репутация: 14
Статус: Offline
| Code SeedRnd MilliSecs()
Graphics3D 800,600,32,2
cam = CreateCamera()
CreateLight()
cube = CreateCube()
cube_s = GetSurface(cube,1)
For tmp = 1 To CountVertices(cube_s)
RandomColor
VertexColor cube_s,tmp,ColorRed()/255,ColorGreen()/255,ColorBlue()/255
Next
PositionEntity cube,0,0,6
While Not KeyDown(1)
TurnEntity cube,.1,-.2,.3
RenderWorld
Flip
Wend
End
Function RandomColor()
Select tmp_c = Rand(0,2)
Case 0
Color 255,0,0
Case 1
Color 0,255,0
Case 2
Color 0,0,255
End Select
End Function Должно быть примерно так, но код почему-то не работает(
|
| |
| |
| real | Дата: Четверг, 28.01.2010, 20:39 | Сообщение # 5 |
|
ламер
Группа: Пользователи
Сообщений: 8
Награды: 0
Репутация: 0
Статус: Offline
| работает,ну куб целиком белый 
завтра сдать его надо...
Сообщение отредактировал real - Четверг, 28.01.2010, 20:43 |
| |
| |
| deejex | Дата: Четверг, 28.01.2010, 21:25 | Сообщение # 6 |
|
заядлый прогер
Группа: Пользователи
Сообщений: 522
Награды: 2
Репутация: 14
Статус: Offline
| Quote (real) работает,ну куб целиком белый
я же это и имел ввиду
Quote (real) завтра сдать его надо
лолшто???
|
| |
| |
| real | Дата: Четверг, 28.01.2010, 21:27 | Сообщение # 7 |
|
ламер
Группа: Пользователи
Сообщений: 8
Награды: 0
Репутация: 0
Статус: Offline
| переподу в универе сдать:)
|
| |
| |
| TII | Дата: Пятница, 29.01.2010, 03:17 | Сообщение # 8 |
ламер
Группа: Пользователи
Сообщений: 43
Награды: 1
Репутация: 3
Статус: Offline
| deejex недовтыкал малость ну раз уж такое дело воть набросал Code
Graphics3D 800,600,32,2
cam = CreateCamera()
CreateLight()
cube = CreateCube()
cube_s = GetSurface(cube,1)
EntityFX cube,2
For tmp = 0 To 23 Step 4
Select tmp
Case 0
r=0
g=0
b=255
Case 4
r=255
g=0
b=0
Case 8
r=0
g=255
b=0
Case 12
r=255
g=0
b=0
Case 16
r=255
g=0
b=0
Case 20
r=0
g=255
b=0
End Select
For t=0 To 3
VertexColor cube_s,tmp+t,r ,g,b
Next
Next
PositionEntity cube,0,0,6
While Not KeyDown(1)
TurnEntity cube,.1,-.2,.3
RenderWorld
Flip
Wend
End
Сообщение отредактировал TII - Пятница, 29.01.2010, 03:21 |
| |
| |
| real | Дата: Вторник, 02.02.2010, 01:06 | Сообщение # 9 |
|
ламер
Группа: Пользователи
Сообщений: 8
Награды: 0
Репутация: 0
Статус: Offline
| спс Добавлено (02.02.2010, 01:06)
---------------------------------------------
как сделать чтоб куб вращался вокруг только одной точки ?
Например 1,1,-1 ,и вращение происходило с помощью клавиш курсора?
Сообщение отредактировал real - Вторник, 02.02.2010, 01:06 |
| |
| |
| deejex | Дата: Вторник, 02.02.2010, 10:09 | Сообщение # 10 |
|
заядлый прогер
Группа: Пользователи
Сообщений: 522
Награды: 2
Репутация: 14
Статус: Offline
| Code Graphics3D 800,600,32,2
cam = CreateCamera()
CreateLight
piv = CreatePivot()
PositionEntity piv,.25,.5,3.25
cub = CreateCube(piv)
PositionEntity cub,.5,.4,3.5
While Not KeyDown(1)
If KeyDown(200) Then TurnEntity piv,.1,0,0
If KeyDown(208) Then TurnEntity piv,-.1,0,0
If KeyDown(203) Then TurnEntity piv,0,.1,0
If KeyDown(205) Then TurnEntity piv,0,-.1,0
RenderWorld
Flip 0
Wend
End
|
| |
| |
|
