@prefix dc: <http://purl.org/dc/elements/1.1/>.

<> dc:source [
  dc:description """
tkxplanet,  xplanet,  xplanetbg  -  render  an  image of a
       planet into an X window""",
"""man page from xplanet; from debian xplanet package""",
"""excerpt/example; under -markerfile:

33.943 -118.408 "Los Angeles" # USA
"""
].

@prefix xp: <http://www.w3.org/2000/10/swap/pim/earthMap#>.
@prefix apt: <http://www.megginson.com/exp/ns/airports#>.
@prefix contact: <http://www.w3.org/2000/10/swap/pim/contact#>.

@prefix log:  <http://www.w3.org/2000/10/swap/log#> .

@prefix : <#>.

this log:forAll :fn, :code, :x, :y.

# make labels from family names...
{ [ contact:familyName :fn;
    contact:nearestAirport [
      apt:latitude :y; apt:longitude :x
    ]
  ]
}
 log:implies {
 #hmm... actually, :x and :y need a syntactic fixup
 [ a xp:Marker; xp:xDMSd :x; xp:yDMSd :y; xp:label :fn; xp:color "red" ]
}.

# and IATA airport codes...
{ [ contact:familyName :fn;
    contact:nearestAirport [
      apt:icao :code;
      apt:latitude :y; apt:longitude :x
    ]
  ]
}
 log:implies {
 [ a xp:Marker; xp:xDMSd :x; xp:yDMSd :y; xp:label :code; xp:color "orange"  ]
}.