Реализация эффекта линз

[X-Ranger]

С Блитцом идет пример: Blitz 3D Samples\AGore\GrassDemo

Там реализован эффект от линз, когда появляются блики при "попадании источника света в видимость камеры"

Как реализовать подобный эффект с учетом того что истоник бликов может быть закрыт различными предметами (при закрытии источника света - блики исчезают).

единственно что я догадался пользовать это

EntityPickMode PF, 2
If EnityVisible(Camera, PivotLight) Then
  Показать_Спарайты
Else
  Спрятать_Спрайты
End If

Мне не очень нравится то, что эффект пропадает в случае заграждения слишком резко и не высокая производительность этого метода.

Есть ли другие способы определения видимости объекта или даже реализации самого эффекта более быстродействующие и/или более точные.

[Chuma]

ух.. прикольно... хочу так же.. Присоединяюсь к запросу..

[ABTOMAT]

Г-муха-ха!! А вот у меня в Матвее уже есть линзовые эффекты! Простов случае
[blitz]EntityPickMode PF, 2
If EnityVisible(Camera, PivotLight) Then
Показать_Спарайты
Else
Спрятать_Спрайты
End If[/blitz]

У меня есть функция
[blitz]
Function Спрятать_спрайты
Прозрачность каждого линза системы уменьшаем на 0,05
If прозрачность < 0 то Hide_entity все спрайты нах
end function

Function показать_спрайты
If прозрачность спрайтов < 0 то Show_entity все спрайты, опять же, нах.
Else увеличить прозрачность каждого спрайта на 0.05
end function
[/blitz]

Также вместо
[blitz]If EnityVisible(Camera, PivotLight) Then[/blitz]
можно сделать так:
[blitz]If EnityVisible(Camera, PivotLight) and EntityInView PivitLightThen[/blitz]
Так же я у себя уменьшаю/увеличиваю сияние солнца - так получается ещё красивее.

Но помните - это всё кушает ресурсы.

З.Ы. Ещё у меня есть вычисление косинуса угла между камерой и солнцем, что делает появление\исчезание линз полностью соответствующим реальности, но это всё убивает на корню производительность.
Присоединяюсь к вогпросу: "Есть ли более точные/производительные решения?"

[MiXaeL]

Я видел реализацию где-то здесь
http://www.boolean.name/forumdisplay.php?f=87
поищи.

[moka]

Не видел примера, но как понял, там нету материального объекта, как реализовть спрятание:
Значит, создаём в кажлом месте где нужно этот эффект сделать, сферу, с прозрачностью 0, далее в цикле, каждый период времени, просто делает CameraPick в точку полученную функцией CameraProject(координаты сферки), да и прописать пикаблемоде сфере и всему окружающему, что может загараживать, не забудь, так вот если пикедентити=сфера, то видно, если другой любой объект, то загороженно.

[Flash]

Вот функция для бликов, но она отжирает фпс при нахождении в кадре 2 и более бликов ровно в 2 раза, вот это действительно проблема

Global  flar.flare
 
 Type Flare
  Field lightsphere 
  Field lightsp
  Field visible
  Field timefade
  
End Type
 
 Function CreateNewFlare.Flare(x#,y#,z#,sx#,sy# ) 
 
 
flar.Flare=New Flare
  flar\lightsphere = CreateSphere() 
  EntityAlpha flar\lightsphere, 0
  PositionEntity flar\lightsphere,x,y,z
  EntityPickMode flar\lightsphere, 2
  flar\lightsp=LoadSprite( ".\Data\effects\misc_flare.png",8,flar\lightsphere )
  ;HandleSprite f\lightsp,0,-1
  ScaleSprite flar\lightsp,sx#*10,sy#*10
  PositionEntity flar\lightsp, 0,0,0
  SpriteViewMode flar\lightsp,3
  EntityColor flar\lightsp,100,100,100
  ;EntityShininess f\lightsp, 1 
  EntityOrder flar\lightsp, -1
  HandleSprite flar\lightsp, 0, 0
  flar\visible = False
  Return flar
End Function

 Function UpdateFlares()
  For flar.Flare=Each Flare
    If EntityVisible(CameraBody, flar\lightsphere) And (Not flar\visible)
       flar\visible = True
       EntityColor flar\lightsp,150,150,150
       distan = EntityDistance(CameraBody,flar\lightsphere) 
       scale = distan/2
       ScaleSprite flar\lightsp, scale, scale
       ShowEntity flar\lightsphere 
       RotateSprite flar\lightsp, EntityYaw(camerabody)*2
    Else
       If flar\visible
flar\visible = False
       ; If Rnd(500)<100 Then  HideEntity flar\lightsphere 
          flar\timefade = 100
       Else
          If flar\timefade >= 0
             flar\timefade = flar\timefade - 10
             EntityColor flar\lightsp,flar\timefade,flar\timefade,flar\timefade 
             
          EndIf         
       EndIf 
    EndIf
  Next
End Function

[Hurrit]

Спустя два с половиной года блики нашлись, УРА ТОВАРИЩИ УРА!!1!

[Flash]

Нашлись то нашлись, но жрут фпс, попробую сделать это на фасте, может чего добьюсь.

[NitE]

попробуй ничего не делать.
если кому-то внезапно понадобится эффект - ищем тут (видел как минимум 3 очень качественных) http://www.blitzbasic.com/codearcs/codearcs.php?cat=11

[Program23]

помоему EntityOrder линза,параметр.имха ща 3ночи сижу на сотике.смореть код -лень комп врубать.короч этой командой делаем линзу на задний план,её перекрывают другие объекты.или я туплю,башка не варит.я спать...