Changeset 11 for trunk/Apps/UClock.pas


Ignore:
Timestamp:
Aug 29, 2016, 6:09:30 PM (8 years ago)
Author:
chronos
Message:
  • Modified: Slightly optimizied screen drawing.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Apps/UClock.pas

    r10 r11  
    4343    Angle := Frac(Now / (10 * OneSecond)) * 2 * Pi;
    4444    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);
    4646    //API.ReadMessage(Message);
    4747  end;
Note: See TracChangeset for help on using the changeset viewer.