From e59a8e75b30833949e7affc147320c751a12db30 Mon Sep 17 00:00:00 2001
From: Jukka Aho <jukka.aho@kapsi.fi>
Date: Thu, 7 Jul 2016 18:01:06 +0300
Subject: [PATCH] element domains

---
 src/elements_lagrange.jl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/elements_lagrange.jl b/src/elements_lagrange.jl
index ee4b6c1..d00b004 100644
--- a/src/elements_lagrange.jl
+++ b/src/elements_lagrange.jl
@@ -34,6 +34,10 @@ function get_integration_points(element::Poi1, order::Int64)
     return [ (1.0, [] ) ]
 end
 
+function get_reference_coordinates(::Type{Poi1})
+    Vector{Float64}[[0.0]]
+end
+
 ### 1d elements
 
 type Seg2 <: AbstractElement
@@ -576,3 +580,12 @@ end
 @create_basis Hex20
 @create_basis Hex27
 
+function inside(::Union{Type{Seg2}, Type{Seg3}, Type{Quad4}, Type{Quad8},
+                        Type{Quad9}, Type{Hex8}, Type{Hex20}, Type{Hex27}}, xi)
+    return all(-1.0 .<= xi .<= 1.0)
+end
+
+function inside(::Union{Type{Tri3}, Type{Tri6}, Type{Tet4}, Type{Tet10}}, xi)
+    return all(xi .>= 0.0) && (sum(xi) <= 1.0)
+end
+