<> a <http://www.w3.org/2000/10/swap/log#N3Document> .

@prefix dc: <http://purl.org/dc/elements/1.1/>.
<> dc:description """comput xplanet markers from an itinerary""",
"$Id: itinMarks.n3,v 1.4 2002/06/04 18:00:07 connolly Exp $";
dc:relation <airportLookup.n3>.

@prefix rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#>.
@prefix log: <http://www.w3.org/2000/10/swap/log#> .
@prefix str: <http://www.w3.org/2000/10/swap/string#> .

@prefix apt: <http://www.daml.org/2001/10/html/airport-ont#>.

@prefix t: <http://www.w3.org/2001/07dc-bos/grokNavItin#> .

@prefix : <itinMarks#>.

this log:forAll :LAT1, :LON1, :IATA, :TXT, :T1, :T2,
  :YMD, :DOW, :D, :P, :PN, :C.


# report lat/long of flights...
:ARLV is rdf:type of t:LV, t:AR.
t:LV :label "lv".
t:AR :label "ar".

"SUN" :dayColor "red".
"MON" :dayColor "orange".
"TUE" :dayColor "yellow".
"WED" :dayColor "green".
"THU" :dayColor "blue".
"FRI" :dayColor "indigo".
"SAT" :dayColor "violet".


{ :P a :ARLV.
  [ t:air [
      :P [
        t:place [
          apt:latitude :LAT1;
          apt:longitude :LON1;
          apt:iataCode :IATA;
        ];
      ]
  ] ].


  (:LAT1 " " :LON1 " \"" :IATA "\" color=blue\n") str:concatenation :TXT.
}
 log:implies { :IATA log:outputString :TXT }.


{ :P a :ARLV; :label :PN.
  [ t:air [
      t:date [ is t:date of [ t:dayName :DOW]];
      :P [
        t:time :T1;
        t:place [
          apt:latitude :LAT1;
          apt:longitude :LON1;
        ];
      ]
  ] ].


  (:DOW "(...)") str:scrape :D.
  :D :dayColor :C.

  (:LAT1 " " :LON1 " \"" :PN " " :D " " :T1 "\" color=" :C "\n") str:concatenation :TXT.
}
 log:implies { :TXT log:outputString :TXT }.