Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для компьютеров > PureBasic

PureBasic Мощный кросс-платформенный язык среднего уровня на основе BASIC. Подходит для решения широкого круга задач.

Ответ
 
Опции темы
Старый 19.12.2009, 03:46   #1
pentod65
Оператор ЭВМ
 
Регистрация: 16.09.2008
Сообщений: 25
Написано одно полезное сообщение
(для 3 участников)
Смущение Pure&Blitz3DSDK

Вот портированный и немного измененный сэмпл.
Подскажите, как заставить trail ложиться на поверхность не
вертикально, а горизонтально?
;blitz3dsdk V1.02
;pb 4.0
;Camera zoom A-Z
;Move up,left,right

IncludeFile "blitz3dsdk.pbi"

bbBeginBlitz3D ()

;bbSetBlitz3DTitle ("PB Cube - use cursors to move")

bbGraphics3D (1440, 900, 32, 2)
bbSetBuffer( bbBackBuffer())

smooth=1

Global info1$="Tron demo"
Global info2$="Features dynamic mesh creation"
Global info3$="Use arrow keys to steer, A/Z to zoom"


grid_tex=bbCreateTexture( 16,16,8 )
bbScaleTexture (grid_tex,10,10)
bbSetBuffer (bbTextureBuffer( grid_tex ))
bbColor (0,0,64):bbRect (0,0,32,32)
bbColor (0,0,255):bbRect (0,0,32,32,False)
bbSetBuffer (bbBackBuffer())

grid_plane=bbCreatePlane()
bbEntityTexture (grid_plane,grid_tex)
bbEntityBlend (grid_plane,1)
bbEntityAlpha (grid_plane,0.6)
bbEntityFX (grid_plane,1)

mirror=bbCreateMirror()
pivot=bbCreatePivot()


trail_mesh=bbCreateMesh()
trail_brush=bbCreateBrush()
bbBrushColor (trail_brush,255,0,0)
bbBrushBlend (trail_brush,3)
bbBrushFX (trail_brush,1)
trail_surf=bbCreateSurface( trail_mesh,trail_brush )
bbAddVertex (trail_surf,0,2,0,0,0)
bbAddVertex (trail_surf,0,0,0,0,1)
bbAddVertex (trail_surf,0,2,0,0,0)
bbAddVertex (trail_surf,0,0,0,0,1)
bbAddTriangle (trail_surf,0,2,3)
bbAddTriangle (trail_surf,0,3,1)
bbAddTriangle (trail_surf,0,3,2)
bbAddTriangle (trail_surf,0,1,3)
trail_vert=2

bike=bbCreateSphere()
bbScaleMesh (bike,0.70,1,2)
bbPositionEntity (bike,0,1,0)
bbEntityShininess (bike,1)
bbEntityColor (bike,192,0,255)

camera=bbCreateCamera()
bbTurnEntity (camera,45,0,0)
cam_d=60;

light=bbCreateLight()
bbTurnEntity (light,45,45,0)

add_flag=False

While Not bbKeyHit(1)

If bbKeyDown(#Key_A)
cam_d=cam_d-1
EndIf
If bbKeyDown(#Key_Z)
cam_d=cam_d+1
EndIf

turn=0
If smooth=1
If bbKeyDown(#Key_Left) :turn=5: EndIf
If bbKeyDown(#Key_Right) :turn=-5: EndIf
If turn
add_cnt=add_cnt+1
If add_cnt=3
add_cnt=0
add_flag=1
Else
add_flag=0
EndIf
ElseIf add_cnt
add_cnt=0
add_flag=1
Else
add_flag=0
EndIf
Else
If bbKeyHit(#Key_Left) :turn=90: EndIf
If bbKeyHit(#Key_Right) :turn=-90: EndIf
If turn: add_flag=1
Else
add_flag=0
EndIf
EndIf

If turn
bbTurnEntity (bike,0,turn,0)
EndIf

If bbKeyDown(#Key_Up) :bbMoveEntity (bike,0,0,1): EndIf

If add_flag=1
bbAddVertex (trail_surf,bbEntityX(bike),2,bbEntityZ(bike),0,0)
bbAddVertex (trail_surf,bbEntityX(bike),0,bbEntityZ(bike),0,1)
bbAddTriangle (trail_surf,trail_vert,trail_vert+2,trail_vert+3)
bbAddTriangle (trail_surf,trail_vert,trail_vert+3,trail_vert+1)
bbAddTriangle (trail_surf,trail_vert,trail_vert+3,trail_vert+2)
bbAddTriangle (trail_surf,trail_vert,trail_vert+1,trail_vert+3)
trail_vert=trail_vert+2
Else
bbVertexCoords (trail_surf,trail_vert,bbEntityX(bike),2,bbEntityZ (bike))
bbVertexCoords (trail_surf,trail_vert+1,bbEntityX(bike),0,bbEntit yZ(bike))
EndIf

bbUpdateWorld()

bbPositionEntity (camera,bbEntityX(bike)-5,0,bbEntityZ(bike))
bbMoveEntity (camera,0,0,-cam_d)


bbRenderWorld()
bbFlip()

Wend


bbEndBlitz3D ()
End
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Blitz3DSDK Aceton Полезные ссылки 5 18.01.2011 15:11
Flash theif 1.0 Src - Pure Basic 4.20 MadMedic Проекты на PureBasic 1 07.01.2009 23:09
DLL на Pure HolyDel PureBasic 4 22.01.2007 02:44


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


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com