[Plplot-cvs] SF.net SVN: plplot:[9544] trunk/src/plbox.c

[<ai...@us...>]

Revision: 9544
          http://plplot.svn.sourceforge.net/plplot/?rev=9544&view=rev
Author:   airwin
Date:     2009-02-18 06:31:14 +0000 (Wed, 18 Feb 2009)

Log Message:
-----------
Minimal and fairly crude use of newly defined and implemented public API for
libqsastime as a proof of concept.

Modified Paths:
--------------
    trunk/src/plbox.c

Modified: trunk/src/plbox.c
===================================================================
--- trunk/src/plbox.c	2009-02-18 06:29:13 UTC (rev 9543)
+++ trunk/src/plbox.c	2009-02-18 06:31:14 UTC (rev 9544)
@@ -1204,7 +1204,7 @@
     PLFLT pos, tn, tp, offset, height;
     PLFLT factor, tstart;
     const char *timefmt;
-    MJDtime tm;
+    double tm;
     double t;
 
 /* Set plot options from input */
@@ -1252,8 +1252,10 @@
 	for (tn = tp; BETW(tn, vpwxmi, vpwxma); tn += xtick1) {
             if (ldx) {
               t = (double) tn;
-              setFromUT(1970,0,1,0,0,t,&tm,0);
-              strfMJD(string, STRING_LEN, timefmt, &tm, 0);
+	      configqsas(0., 0., 0., 0x0);
+              ctimeqsas(1970,0,1,0,0,t,&tm);
+              strfqsas(string, STRING_LEN, timefmt, tm);
+	      closeqsas();
             }
             else {
 	      plform(tn, xscale, xprec, string, STRING_LEN, llx, lfx);
@@ -1301,8 +1303,10 @@
 	for (tn = tp; BETW(tn, vpwymi, vpwyma); tn += ytick1) {
             if (ldy) {
               t = (double) tn;
-              setFromUT(1970,0,1,0,0,t,&tm,0);
-              strfMJD(string, STRING_LEN, timefmt, &tm, 0);
+	      configqsas(0., 0., 0., 0x0);
+              ctimeqsas(1970,0,1,0,0,t,&tm);
+              strfqsas(string, STRING_LEN, timefmt, tm);
+	      closeqsas();
             }
             else {
 	      plform(tn, yscale, yprec, string, STRING_LEN, lly, lfy);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.