|
29.09.2013, 13:10
|
#1
|
Оператор ЭВМ
Регистрация: 19.02.2013
Сообщений: 34
Написано 2 полезных сообщений (для 2 пользователей)
|
Как сделать смещающийся пол?
Как сделать смещающийся пол слева направо (не просто скроллинг-а под углом )?
Вот картинка пола-думаю поймете-о чем я
http://rghost.ru/49040362
|
(Offline)
|
|
29.09.2013, 13:56
|
#2
|
Чудо-кот
Регистрация: 22.02.2011
Сообщений: 901
Написано 480 полезных сообщений (для 1,471 пользователей)
|
Ответ: Как сделать смещающийся пол?
Параллакс
|
(Offline)
|
|
29.09.2013, 15:54
|
#3
|
Нуждающийся
Регистрация: 19.11.2009
Сообщений: 64
Написано 4 полезных сообщений (для 6 пользователей)
|
Ответ: Как сделать смещающийся пол?
Не получается
Вернее получатся-но не то
|
(Offline)
|
|
29.09.2013, 15:56
|
#4
|
Нуждающийся
Регистрация: 19.11.2009
Сообщений: 64
Написано 4 полезных сообщений (для 6 пользователей)
|
Ответ: Как сделать смещающийся пол?
Вот код-где же ошибка?
ссылка на картинку "1.png" http://rghost.ru/49043697
Graphics3D 1024,768, 0, 2
SetBuffer=(BackBuffer)
p_1=LoadImage("1.png")
While Not KeyHit(1)
Cls
If KeyDown (203) Then x=x-1
If KeyDown (205) Then x=x+1
For a = 1 To 5
HandleImage p_1,x,0
DrawImage p_1,1*(4*a*x),300+(a*3)
Next
Flip
Wend
End
|
(Offline)
|
|
29.09.2013, 18:10
|
#5
|
Чудо-кот
Регистрация: 22.02.2011
Сообщений: 901
Написано 480 полезных сообщений (для 1,471 пользователей)
|
Ответ: Как сделать смещающийся пол?
Graphics3D 1024,768, 0, 2
SetBuffer BackBuffer()
p_1=CreateImage(2048,1)
LockBuffer ImageBuffer(p_1)
For i = 0 To 8
For i2 = 0 To 128
WritePixelFast i*256+i2,0,$FFFF0000,ImageBuffer(p_1)
Next
For i2 = 0 To 128
WritePixelFast i*256+128+i2,0,$FF000000,ImageBuffer(p_1)
Next
Next
UnlockBuffer ImageBuffer(p_1)
x# = 700
y# = 500
persp# = 16
While Not KeyHit(1)
Cls
x = x - 0.5
For a = 1 To 64
DrawImage p_1,x+x*(a/512.0+Tan(a/persp)),y+a
Next
Flip
Wend
End
Последний раз редактировалось Nerd, 29.09.2013 в 19:32.
|
(Offline)
|
|
29.09.2013, 20:00
|
#6
|
Нуждающийся
Регистрация: 19.11.2009
Сообщений: 64
Написано 4 полезных сообщений (для 6 пользователей)
|
Ответ: Как сделать смещающийся пол?
Большое спасибо !
Но кажется я неточно сформулировал задачу
Это должно без остановки происходить
вот так http://rghost.ru/49048949
|
(Offline)
|
|
30.09.2013, 14:27
|
#7
|
Чудо-кот
Регистрация: 22.02.2011
Сообщений: 901
Написано 480 полезных сообщений (для 1,471 пользователей)
|
Ответ: Как сделать смещающийся пол?
С изображением на голом блице не получится - будет сильно тормозить.
Graphics3D 1024,768, 0, 2
SetBuffer BackBuffer()
x# = 0
y# = 500
While Not KeyHit(1)
Cls
x = x - 1.5
DrawFloor x,y
Flip 0
Wend
End
Function DrawFloor(x,y)
Color 30,255,100
Rect 0,y,GraphicsWidth(),GraphicsHeight(),1
hw = GraphicsWidth()/2
Color 20,40,255
For i = -5 To 14
For i2 = 0 To 64
lx = i*128+i2+(x Mod 512)
Line lx,y,(lx-hw)*2+hw,GraphicsHeight()
Line lx,y,(lx-hw)*2+hw+1,GraphicsHeight() ;Это надо переделать, но я сейчас туго соображаю
Next
Next
End Function
|
(Offline)
|
|
30.09.2013, 15:35
|
#8
|
Нуждающийся
Регистрация: 19.11.2009
Сообщений: 64
Написано 4 полезных сообщений (для 6 пользователей)
|
Ответ: Как сделать смещающийся пол?
П моему-гениально!!!
Я ваш должник!!!
|
(Offline)
|
|
30.09.2013, 17:01
|
#9
|
Оператор ЭВМ
Регистрация: 19.02.2013
Сообщений: 34
Написано 2 полезных сообщений (для 2 пользователей)
|
Ответ: Как сделать смещающийся пол?
А реально сделать тоже самое-но с картинкой?,
Например с шахматной доской-чтоб продвигалась?
Не чисто графическая(линиями)-а полноценная картинка
|
(Offline)
|
|
30.09.2013, 23:28
|
#10
|
Социал-сычевист
Регистрация: 24.06.2011
Сообщений: 611
Написано 342 полезных сообщений (для 1,359 пользователей)
|
Ответ: Как сделать смещающийся пол?
Можно, просто много матана будет. И кстати, нахрена два акка?
|
(Offline)
|
|
01.10.2013, 15:53
|
#11
|
Нуждающийся
Регистрация: 19.11.2009
Сообщений: 64
Написано 4 полезных сообщений (для 6 пользователей)
|
Ответ: Как сделать смещающийся пол?
2 акка-эт я регился в разно время-как вспомню-так и ввожу при входе-оттого и под разными никами вхожу
А с математикой я не дружу-тут помощь конечно нужна
Но видимо то черезчур просить-умолкаю
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 02:01.
|