瀏覽代碼

Fixed title

GLScene 5 年之前
父節點
當前提交
25e76ecb16
共有 1 個文件被更改,包括 10 次插入6 次删除
  1. 10 6
      Source/GLExplosionFx.pas

+ 10 - 6
Source/GLExplosionFx.pas

@@ -1,7 +1,10 @@
 //
 //
 // This unit is part of the GLScene Engine, http://glscene.org
 // This unit is part of the GLScene Engine, http://glscene.org
 //
 //
-{
+
+unit GLExplosionFx;
+
+(*
   Description: this effect explodes a mesh object into triangles
   Description: this effect explodes a mesh object into triangles
   that fly over. You can define a default direction, in wich case
   that fly over. You can define a default direction, in wich case
   the pieces of the mesh will follow that direction, only rotating,
   the pieces of the mesh will follow that direction, only rotating,
@@ -15,8 +18,7 @@
   Also, the structure of the mesh is lost after the caching of information,
   Also, the structure of the mesh is lost after the caching of information,
   so if you'll need the mesh after exploding it, you'll have to save the
   so if you'll need the mesh after exploding it, you'll have to save the
   MeshObjects property of the mesh, OR load it again.
   MeshObjects property of the mesh, OR load it again.
-}
-unit GLExplosionFx;
+*)
 
 
 interface
 interface
 
 
@@ -67,8 +69,8 @@ type
     constructor Create(aOwner : TXCollection); override;
     constructor Create(aOwner : TXCollection); override;
     destructor Destroy; override;
     destructor Destroy; override;
     procedure Render(var rci : TGLRenderContextInfo); override;
     procedure Render(var rci : TGLRenderContextInfo); override;
-    { resets the behaviour, so the information can be re-cached and
-      the mesh can be exploded again }
+    (* Resets the behaviour, so the information can be re-cached and
+      the mesh can be exploded again *)
     procedure Reset;
     procedure Reset;
     class function FriendlyName : String; override;
     class function FriendlyName : String; override;
     class function FriendlyDescription : String; override;
     class function FriendlyDescription : String; override;
@@ -274,8 +276,10 @@ begin
   end;
   end;
 end;
 end;
 
 
+//-------------------------------
 initialization
 initialization
-	// class registrations
+//-------------------------------
+	
 	RegisterXCollectionItemClass(TGLBExplosionFX);
 	RegisterXCollectionItemClass(TGLBExplosionFX);
 
 
 finalization
 finalization