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

RegIon · 20.02.2011, 11:17

У кого есть моделька туалета как в Вузах.....без зеркал..лень моделить..

RegIon · 21.02.2011, 12:24

Function renderimg(p_cam%,cam%,W%,H%)
Local img%
ShowEntity p_cam
HideEntity cam
CameraViewport cam,0,0,0,0
CameraViewport p_cam,0,0,w,H
If img=0 Img=CreateImage(w,h)
CopyRect 0,0,w,h,0,0,FrontBuffer(),ImageBuffer(img)
CameraViewport p_cam,0,0,0,0
CameraViewport cam,0,0,GraphicsWidth() ,GraphicsHeight() 
HideEntity p_cam
ShowEntity cam

Return img
End Function

RBK---Не работает как ты говорил....рендрит с одной камеры..Хелпни..всё перепробывал.

RBK · 21.02.2011, 18:27

Ужас какой. посмотри в samples\tex_render\tex_render.bb. если у тебя нет, посмотри у меня.

RegIon · 22.02.2011, 09:32

Чо ужас.....По сути, и так работать должно.....

RegIon · 22.02.2011, 09:34

Тоже самое...только в функции..и в имгу

RegIon · 22.02.2011, 10:10

RenderWorld() в конце небыло..

RegIon · 22.02.2011, 10:11

Вложение 12751
Почему полоска мелькает????

baton4ik · 22.02.2011, 10:24

Нет, ну слушай, кнопку "Правка" ты в упор не замечаешь?
То что ты делаешь называется "оверпост" - вид флуда. За это могут забанить.
Выложил скрин и спрашиваешь, почему мелькает. Экстрасенсы ещё не вернулись.

RegIon · 22.02.2011, 10:30

Нет, ну слушай, кнопку "Правка" ты в упор не замечаешь?
То что ты делаешь называется "оверпост" - вид флуда. За это могут забанить.
Выложил скрин и спрашиваешь, почему мелькает. Экстрасенсы ещё не вернулись.

Писал каждые по 15 минут(почти).....смотри выше насчёт скрина.....

Nex · 22.02.2011, 10:46

Сообщение от Костян

Вложение 12751
Почему полоска мелькает????

Почему слоны не летают?
Больше, больше информации давай! Код!1! Где код?!?1?

RegIon · 22.02.2011, 11:04

Global newvalue#,oldvalue#,increments,mx#,my#,camera,hero,pitch#,yaw#,cameraX#,cameraY#,cameraZ#,cx#,cz#
Global mousespeed#=.2,cameraspeed#=.5,camerasmoothness#=3

Global hero_energy%=1000


Const hero_t=1:col_T=2
Graphics3D 1024,768,32,0
SetBuffer BackBuffer()

fps_tim=CreateTimer(60) 
camera=CreateCamera()
CameraFogMode camera,0 
CameraFogRange camera,1,110
CameraFogColor camera,0,0,0


light=CreateLight()
RotateEntity light,90,0,0



poligon=LoadAnimMesh("datas\mesh\test.3ds")
ScaleEntity poligon,0.4,.4,.4
Poligon_plan=CreatePlane()
PositionEntity poligon_plan,0,-.005,0
EntityColor poligon_plan,0,0,0
EntityType poligon,Col_t
EntityType poligon_plan,col_t
Timer_piv=FindChild(poligon,"Timer")
HideEntity timer_piv
;*****************************************************************
sp_num=LoadAnimImage("datas\img\time\timer.bmp",48,48,0,11) 
t=CreateTexture(200,50)
Sp=CreateSprite()
ScaleSprite sp,10,2
PositionEntity sp,EntityX(timer_piv,1),EntityY(Timer_piv,1),EntityZ(Timer_piv,1)
;********************************************************************

createhero(camera,0,5,0)

cam2=CreateCamera()
CameraViewport cam2,0,0,128,128
CameraClsColor cam2,0,128,0


Collisions hero_t,col_t,2,3
Repeat
WaitTimer (fps_tim)
PointEntity cam2,hero

sec=(MilliSecs()/1000) Mod 14


upr_mouse#()
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2

UpdateWorld()
RenderWorld() 
DrawImage renderimg(cam2,camera,128,128),100,100
Flip
Until KeyHit(1) 
End
;=====
Function renderimg(p_cam%,cam%,W%,H%,trig%=0,Tex_p=1 )
;Local img%
ShowEntity p_cam
HideEntity cam
RenderWorld()
If trig=0
If img=0 Img=CreateImage(w,h)
CopyRect 0,0,w,h,0,0,BackBuffer() ,ImageBuffer(img)
Else 
If img=0 img=CreateTexture(w,h,tex_p)
CopyRect 0,0,w,h,0,0,BackBuffer() ,TextureBuffer(img)
EndIf
HideEntity p_cam
ShowEntity cam
RenderWorld() 
Return img
End Function 
;=======
Function DrawTimer(sprite%,tex%,img%,min%,sec%)
;доделать...
SetBuffer TextureBuffer(tex)
Cls
For i=0 To 4
Select I
Case 0
fr=Int(Left(Str(min),1))
Case 1
fr=Int(Right(Str(min),1))
Case 2
fr=10
Case 4
If Len(Str(SEC))>1
fr=Int(Right(Str(sec),1))
Else
fr=0
EndIf
Case 3
fr=Int(Left(Str(sec),1))
End Select 
DrawImage img%,50*i,0,fr
Next
SetBuffer BackBuffer()
EntityTexture sprite,tex
End Function 

Function CurveValue#(newvalue#,oldvalue#,increments )
If increments>1 oldvalue#=oldvalue#-(oldvalue#-newvalue#)/increments
If increments<=1 oldvalue=newvalue
Return oldvalue#
End Function

Function createhero(camera%,x%,y%,Z%)


EntityRadius camera,2,1
HEro=CreateSphere()
ScaleEntity hero,.5,1,.5
EntityRadius hero,2,1
EntityAlpha hero,0
CameraRange camera,1,10000
ScaleEntity camera,.5,.5,.5
RotateEntity camera,45,0,0
PositionEntity camera,x,y,z
PositionEntity hero,x,y,z
EntityType camera,hero_t
EntityType hero,hero_t
;===========
stat_p=LoadSprite("Datas\Img\Hero_bar\Stat_p.png",2,camera)
PositionEntity stat_p,0,0,1.001
EntityAlpha stat_p,.8
ScaleSprite stat_p,.04,.04


End Function 
	
Function upr_mouse#()
	mx#=CurveValue(MouseXSpeed()*mousespeed#,mx#,camerasmoothness#)
	my#=CurveValue(MouseYSpeed()*mousespeed#,my#,camerasmoothness#)
	
	pitch#=EntityPitch(camera)
	yaw#=EntityYaw(camera)
	pitch#=pitch#+my#
	yaw#=yaw#-mx#
	If pitch#>79 pitch#=79
	If pitch#<-69 pitch#=-69
	RotateEntity camera,0,yaw#,0
	RotateEntity hero,0,yaw#,0
	TurnEntity camera,pitch#,0,0
	cx#=(KeyDown(32)-KeyDown(30))*cameraspeed#
	cz#=(KeyDown(17)-KeyDown(31))*cameraspeed#
	cameraX#=EntityX#(hero)
	cameraY#=EntityY#(hero)
	cameraZ#=EntityZ#(hero)
	MoveEntity hero,cx#,0,cz#
	PositionEntity camera,cameraX#,cameraY#+1,cameraZ#
	RotateEntity hero,60,yaw#,0
	TranslateEntity hero,0,-.3,0
	End Function

На те код....

У кого-нибудь есть имаге шривт с буквой в 72 пикселя....Чтоб зря не рисовать...желательно Bmp...без альфы.

baton4ik · 22.02.2011, 14:10

Сообщение от Костян

Писал каждые по 15 минут(почти).....смотри выше насчёт скрина.....

Что? Ты каждое сообщение, в котором и 50 символов не будет, по 15 минут писал? А время над постом говорит, что меньше минуты.

RegIon · 22.02.2011, 14:41

1-2 пост-да(1 минута) остальные-нет..код отлаживал

RegIon · 23.02.2011, 09:22

Вложение 12768--Что на стряпать успел(смог).....Код тормознуть.
и текстурки не ровно ложатся...Не могу исправить..

Nex · 23.02.2011, 09:40

На вин7 х64 все лагает. Наверно из за спрайтов. Так что используй лучше квады.