[moka]

Комманда, которая масштабирует мэшь, на выбранный размер.
Есть возможность масштабировать пропорционально:
0 - Полностью на заданный размер.
1 - Пропорционально относительно заданной ширине.
2 - Пропорционально относительно заданной высоте.
3 - Пропорционально относительно заданной долготе.

Function ResizeMesh(Entity,width#,height#,depth#,proporcional=0)
	If EntityClass(Entity)="Mesh"
		mw#=MeshWidth(Entity)
		mh#=MeshHeight(Entity)
		md#=MeshDepth(Entity)

		Select proporcional
			Case 1
				ScaleEntity Entity,width/mw,width/mw,width/mw
			Case 2
				ScaleEntity Entity,height/mh,height/mh,height/mh
			Case 3
				ScaleEntity Entity,depth/md,depth/md,depth/md
			Default
				ScaleEntity Entity,width/mw,height/mh,depth/md
		End Select
	EndIf
End Function