forum.boolean.name - Прозрачность составных объектов

Имеют детей в хорошем смысле этого слова. :)

Вобщем, если попробовать применить команду EntityAlpha к объекту, имеющему детей, то результат может не удавлетворить исходного желания.
Чтобы альфа работала для таких объектов, предлагаю рассмотреть вот эту функцию, которая тем только и занимается, что устанавливает прозрачность:

Код:

Function SetAlpha(p_entity,val#=1.0)

If CountChildren(p_entity) > 0 

        For childcount = 1 To CountChildren(p_entity) 

 child = GetChild(p_entity,childcount)

 If (EntityClass$(child)="Mesh")

        EntityAlpha child,val#

        SetAlpha(child,val#)

 EndIf 

        Next 

EndIf

End Function

Параметры:
p_entity - это хендл объекта, прозрачность которого хотим поменять
val# - степень прозрачности объекта. Должна быть в пределах 0-1

Функция рекуррентная, что не может не...