unit1.pas

来自「delphi 最好的3D控件GLScene_Demos」· PAS 代码 · 共 7 行

{: A Nut and Bolt sample, 100% defined at design-time.<p>

   Both use two revolution solids, one for the head/pans, another for the thread.
   Additionnally, a cylinder and an annulus help finish up by providing the
   shafts.<p>

   The head/pans are defined by simple rotated on 360