forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Blitz3D (http://forum.boolean.name/forumdisplay.php?f=45)
-   -   Как сделать смещающийся пол? (http://forum.boolean.name/showthread.php?t=18578)

executer300183 29.09.2013 13:10
Как сделать смещающийся пол?
 
Как сделать смещающийся пол слева направо (не просто скроллинг-а под углом )?

Вот картинка пола-думаю поймете-о чем я
http://rghost.ru/49040362

Nerd 29.09.2013 13:56
Ответ: Как сделать смещающийся пол?
 
Параллакс

executer 29.09.2013 15:54
Ответ: Как сделать смещающийся пол?
 
Не получается
Вернее получатся-но не то

executer 29.09.2013 15:56
Ответ: Как сделать смещающийся пол?
 
Вот код-где же ошибка?

ссылка на картинку "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

Nerd 29.09.2013 18:10
Ответ: Как сделать смещающийся пол?
 
Код:
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

executer 29.09.2013 20:00
Ответ: Как сделать смещающийся пол?
 
Большое спасибо !
Но кажется я неточно сформулировал задачу
Это должно без остановки происходить
вот так http://rghost.ru/49048949

Nerd 30.09.2013 14:27
Ответ: Как сделать смещающийся пол?
 
С изображением на голом блице не получится - будет сильно тормозить.
Код:
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

executer 30.09.2013 15:35
Ответ: Как сделать смещающийся пол?
 
П моему-гениально!!!
Я ваш должник!!!

executer300183 30.09.2013 17:01
Ответ: Как сделать смещающийся пол?
 
А реально сделать тоже самое-но с картинкой?,
Например с шахматной доской-чтоб продвигалась?
Не чисто графическая(линиями)-а полноценная картинка

Кирпи4 30.09.2013 23:28
Ответ: Как сделать смещающийся пол?
 
Можно, просто много матана будет. И кстати, нахрена два акка?

executer 01.10.2013 15:53
Ответ: Как сделать смещающийся пол?
 
2 акка-эт я регился в разно время-как вспомню-так и ввожу при входе-оттого и под разными никами вхожу
А с математикой я не дружу-тут помощь конечно нужна
Но видимо то черезчур просить-умолкаю


Часовой пояс GMT +4, время: 11:27.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot