Simulate the movement of bubbles
For the physics aficionados here have an application that simulates very realistically the movement of bubbles. To change the speed of your movement you only have to modify the "interval" property of the Timer1 component. Made by Daniel. Davies @ blueyonder. Co. ukUNIT Unit1; INTERFACEUSES Windows, messages, SysUtils, classes, graphics, controls, forms, Dialogs, StdCtrls, ExtCtrls; TYPE TForm1 = CLASS (TForm) Image1: TImage; Timer1: TTimer; PROCEDURE FormCreate (sender: TObject); PROCEDURE Timer1Timer (sender: TObject); PROCEDURE QuitClick (sender: TObject); PROCEDURE Image1Click (sender: TObject); PRIVATE {Private declarations} PUBLIC {Public declarations} END; TYPE co_ordinate = RECORD x, y: integer; END TYPE scanline = ARRAY [0.. 319] OF byte; VAR Form1: TForm1; Threshold: integer; Blobimage: Tbitmap; BLOBs: ARRAY [0.. 5] OF co_ordinate; Frame: Cardinal; Drawing: Boolean; IMPLEMENTATION {$R *. DFM} PROCEDURE TForm1. FormCreate (sender: TObject); VAR Temp: Integ
Weiterlesen... |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:39 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz