Changeset 11 for trunk/Apps
- Timestamp:
- Aug 29, 2016, 6:09:30 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Apps/UClock.pas
r10 r11 43 43 Angle := Frac(Now / (10 * OneSecond)) * 2 * Pi; 44 44 API.DrawLine(Point(120, 120), Point(Trunc(120 + Cos(Angle) * 60), Trunc(120 + Sin(Angle) * 60)), 0); 45 API.Sleep(OneMillisecond * 50);45 API.Sleep(OneMillisecond * 10); 46 46 //API.ReadMessage(Message); 47 47 end;
Note:
See TracChangeset
for help on using the changeset viewer.