Getting all Visual Arts events (according to the category) that happen from now and in the future

gistfile1.txt

SELECT DISTINCT ?event ?title ?description ?placeName ?img ?long ?lat ?cell ?seeAlso ?datetimeBegin ?datetimeEnd ?now ?score
WHERE {
 {
  SELECT DISTINCT ?event ?title ?description ?img ?cell ?cellGeo ?datetimeBegin ?now ?datetimeEnd ?dateDiffBegin ?dateDiffEnd if(?now < ?datetimeBegin, ?dateDiffBegin, if(?datetimeEnd < ?now, ?dateDiffEnd, 0.0)) AS ?diff if(?diff = 0.0, 5.99, if(?diff > 0.0, 5.0+1.0/if(?diff/86400.0 < 1.0, 1.0, ?diff/86400.0), -1.0/if(?diff/86400.0 > -1.0, -1.0, ?diff/86400.0))) AS ?dateScore if(BOUND(?img), 1.0, 0.0) AS ?imageScore if(fn:string-length(?description) < 100, 0.0, if(fn:string-length(?description) < 800, 0.5, if(fn:string-length(?description) < 1400, 1.0, if(fn:string-length(?description) < 1800, 0.5, 0.0)))) AS ?descriptionScore (?imageScore + ?dateScore * 100000.0 + ?descriptionScore) AS ?score
  WHERE {
   GRAPH <http://3cixty.com/events> {?event a lode:Event .}
   ?event rdfs:label ?title .
   ?event locationOnt:cell ?cell .
   ?cell geo:location ?cellGeo .
   OPTIONAL{?event dc:description ?description. FILTER ( lang(?description) = "en" )}
   OPTIONAL{?event lode:poster ?imgObj. ?imgObj ma-ont:locator ?img.}
   VALUES (?now) {("2015-8-11T00:00Z"^^xsd:dateTime)}
   ?event lode:atTime ?date.
   ?date time:hasBeginning/time:inXSDDateTime ?datetimeBegin. BIND(xsd:dateTime(?datetimeBegin) - ?now AS ?dateDiffBegin)
   ?date time:hasEnd/time:inXSDDateTime ?datetimeEnd. BIND(xsd:dateTime(?datetimeEnd) - ?now AS ?dateDiffEnd)

  ?event lode:hasCategory ?category.
  FILTER (STR(?category) = "Visual Arts").  }
ORDER BY DESC (?score) OFFSET 0 LIMIT 100 
 }
 OPTIONAL{?event rdfs:seeAlso ?seeAlso .}
 OPTIONAL{
  ?event lode:inSpace ?geometry .
  ?geometry geo:long ?long .
  ?geometry geo:lat ?lat .
 }
 OPTIONAL{
  ?event lode:atPlace ?place.
  ?place rdfs:label ?placeName.
 }
}
LIMIT 100