LTCD_070816.ISO

LT/Demo/DateTime.CPZ

@@ -0,0 +1,34 @@
+/*
+  An $LK,"LTDate","MN:LTDate"$ is a signed 64-bit date/time number
+  representing how many 49710ths of a second
+  since Christ.  The reason it is this crazy
+  number is so that 32bits is exactly one day.
+
+  These numbers can be subtracted to get time
+  differences.
+ 
+  The time of day to the nearest 49710ths of a second
+  is stored in the lower 32-bits.  The upper
+  32-bits hold the number of days since Christ.
+
+  $LK,"PrintF","MN:PrintF"$() and the file datetimes use
+  this format, otherwise you might want to
+  use $LK,"GetTimeStamp","MN:GetTimeStamp"$() for a higher frequency
+  timing, divide by $LK,"time_stamp_freq","MN:time_stamp_freq"$,
+  but this number is tied to your CPU's
+  clock frequency which is inexact when
+  converted to real-time.
+*/
+
+
+LTDate d=GetCurTimeLTDate;
+
+I8 i;
+for (i=0;i<48;i++)
+  PrintF("%%h%dD: %h*D\r\n",i,i,d);
+CrLf;
+
+for (i=0;i<20;i++)
+  PrintF("%%h%dT: %h*T\r\n",i,i,d);
+
+PrintF("$$FG,PURPLE$$LTDate freq:%12.6f$$FG$$\r\n",0x100000000/24.0/60.0/60.0);