@@ -109,13 +109,13 @@ quad_indices(const Elem * elem,
109
109
Real f = 1. ;
110
110
111
111
if ((i0 %2 ) && (i0 > 2 ) && (i1 == 0 ))
112
- f = ( elem -> point ( 0 ) > elem -> point ( 1 ) )?-1. :1. ;
112
+ f = elem -> positive_edge_orientation ( 0 )?-1. :1. ;
113
113
else if ((i0 %2 ) && (i0 > 2 ) && (i1 == 1 ))
114
- f = ( elem -> point ( 3 ) > elem -> point ( 2 ) )?-1. :1. ;
114
+ f = ! elem -> positive_edge_orientation ( 2 )?-1. :1. ;
115
115
else if ((i0 == 0 ) && (i1 %2 ) && (i1 > 2 ))
116
- f = ( elem -> point ( 0 ) > elem -> point ( 3 ) )?-1. :1. ;
116
+ f = ! elem -> positive_edge_orientation ( 3 )?-1. :1. ;
117
117
else if ((i0 == 1 ) && (i1 %2 ) && (i1 > 2 ))
118
- f = ( elem -> point ( 1 ) > elem -> point ( 2 ) )?-1. :1. ;
118
+ f = elem -> positive_edge_orientation ( 1 )?-1. :1. ;
119
119
120
120
return {i0 , i1 , f };
121
121
}
@@ -254,7 +254,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape(const Elem * elem,
254
254
return 1 ;
255
255
256
256
if ((i < 2 || i % 2 ) &&
257
- elem -> point ( 0 ) > elem -> point ( 1 ))
257
+ elem -> positive_edge_orientation ( 0 ))
258
258
f = -1 ;
259
259
260
260
return FE < 1 ,HIERARCHIC > ::shape (EDGE3 , totalorder , i , f * (zeta1 - zeta0 ));
@@ -271,7 +271,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape(const Elem * elem,
271
271
const unsigned int side_i = i - dofs_per_side ;
272
272
273
273
if ((side_i < 2 || side_i % 2 ) &&
274
- elem -> point ( 1 ) > elem -> point ( 2 ))
274
+ elem -> positive_edge_orientation ( 1 ))
275
275
f = -1 ;
276
276
277
277
return FE < 1 ,HIERARCHIC > ::shape (EDGE3 , totalorder , side_i , f * (zeta2 - zeta1 ));
@@ -289,7 +289,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape(const Elem * elem,
289
289
const unsigned int side_i = i - 2 * dofs_per_side ;
290
290
291
291
if ((side_i < 2 || side_i % 2 ) &&
292
- elem -> point ( 2 ) > elem -> point ( 0 ))
292
+ elem -> positive_edge_orientation ( 2 ))
293
293
f = -1 ;
294
294
295
295
return FE < 1 ,HIERARCHIC > ::shape (EDGE3 , totalorder , side_i , f * (zeta0 - zeta2 ));
@@ -320,7 +320,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape(const Elem * elem,
320
320
return 1 ;
321
321
322
322
if ((i < 2 || i % 2 ) &&
323
- elem -> point ( 0 ) > elem -> point ( 1 ))
323
+ elem -> positive_edge_orientation ( 0 ))
324
324
f = -1 ;
325
325
326
326
return FE < 1 ,HIERARCHIC > ::shape (EDGE3 , totalorder , i , f * xi );
@@ -337,7 +337,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape(const Elem * elem,
337
337
const unsigned int side_i = i - dofs_per_side ;
338
338
339
339
if ((side_i < 2 || side_i % 2 ) &&
340
- elem -> point ( 1 ) > elem -> point ( 2 ))
340
+ elem -> positive_edge_orientation ( 1 ))
341
341
f = -1 ;
342
342
343
343
return FE < 1 ,HIERARCHIC > ::shape (EDGE3 , totalorder , side_i , f * eta );
@@ -357,7 +357,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape(const Elem * elem,
357
357
const unsigned int side_i = i - 2 * dofs_per_side ;
358
358
359
359
if ((side_i < 2 || side_i % 2 ) &&
360
- elem -> point ( 3 ) > elem -> point (2 ))
360
+ ! elem -> positive_edge_orientation (2 ))
361
361
f = -1 ;
362
362
363
363
return FE < 1 ,HIERARCHIC > ::shape (EDGE3 , totalorder , side_i , f * xi );
@@ -373,7 +373,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape(const Elem * elem,
373
373
const unsigned int side_i = i - 3 * dofs_per_side ;
374
374
375
375
if ((side_i < 2 || side_i % 2 ) &&
376
- elem -> point ( 0 ) > elem -> point (3 ))
376
+ ! elem -> positive_edge_orientation (3 ))
377
377
f = -1 ;
378
378
379
379
return FE < 1 ,HIERARCHIC > ::shape (EDGE3 , totalorder , side_i , f * eta );
@@ -541,7 +541,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape_deriv(const Elem * elem,
541
541
return 0 ;
542
542
543
543
if ((i < 2 || i % 2 ) &&
544
- elem -> point ( 0 ) > elem -> point ( 1 ))
544
+ elem -> positive_edge_orientation ( 0 ))
545
545
f = -1 ;
546
546
547
547
return f * FE < 1 ,HIERARCHIC > ::shape_deriv (EDGE3 , totalorder , i , 0 , f * (zeta1 - zeta0 ));
@@ -558,7 +558,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape_deriv(const Elem * elem,
558
558
const unsigned int side_i = i - dofs_per_side ;
559
559
560
560
if ((side_i < 2 || side_i % 2 ) &&
561
- elem -> point ( 1 ) > elem -> point ( 2 ))
561
+ elem -> positive_edge_orientation ( 1 ))
562
562
f = -1 ;
563
563
564
564
Real g = 1 ;
@@ -583,7 +583,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape_deriv(const Elem * elem,
583
583
const unsigned int side_i = i - 2 * dofs_per_side ;
584
584
585
585
if ((side_i < 2 || side_i % 2 ) &&
586
- elem -> point ( 2 ) > elem -> point ( 0 ))
586
+ elem -> positive_edge_orientation ( 2 ))
587
587
f = -1 ;
588
588
589
589
return - f * FE < 1 ,HIERARCHIC > ::shape_deriv (EDGE3 , totalorder , side_i , 0 , f * (zeta0 - zeta2 ));
@@ -613,7 +613,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape_deriv(const Elem * elem,
613
613
if (j != 0 )
614
614
return 0 ;
615
615
if ((i < 2 || i % 2 ) &&
616
- elem -> point ( 0 ) > elem -> point ( 1 ))
616
+ elem -> positive_edge_orientation ( 0 ))
617
617
f = -1 ;
618
618
619
619
return f * FE < 1 ,HIERARCHIC > ::shape_deriv (EDGE3 , totalorder , i , 0 , f * xi );
@@ -629,7 +629,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape_deriv(const Elem * elem,
629
629
const unsigned int side_i = i - dofs_per_side ;
630
630
631
631
if ((side_i < 2 || side_i % 2 ) &&
632
- elem -> point ( 1 ) > elem -> point ( 2 ))
632
+ elem -> positive_edge_orientation ( 1 ))
633
633
f = -1 ;
634
634
635
635
return f * FE < 1 ,HIERARCHIC > ::shape_deriv (EDGE3 , totalorder , side_i , 0 , f * eta );
@@ -648,7 +648,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape_deriv(const Elem * elem,
648
648
const unsigned int side_i = i - 2 * dofs_per_side ;
649
649
650
650
if ((side_i < 2 || side_i % 2 ) &&
651
- elem -> point ( 3 ) > elem -> point (2 ))
651
+ ! elem -> positive_edge_orientation (2 ))
652
652
f = -1 ;
653
653
654
654
return f * FE < 1 ,HIERARCHIC > ::shape_deriv (EDGE3 , totalorder , side_i , 0 , f * xi );
@@ -663,7 +663,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape_deriv(const Elem * elem,
663
663
const unsigned int side_i = i - 3 * dofs_per_side ;
664
664
665
665
if ((side_i < 2 || side_i % 2 ) &&
666
- elem -> point ( 0 ) > elem -> point (3 ))
666
+ ! elem -> positive_edge_orientation (3 ))
667
667
f = -1 ;
668
668
669
669
return f * FE < 1 ,HIERARCHIC > ::shape_deriv (EDGE3 , totalorder , side_i , 0 , f * eta );
@@ -827,7 +827,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape_second_deriv(const Elem * elem,
827
827
if (j != 0 )
828
828
return 0 ;
829
829
if ((i < 2 || i % 2 ) &&
830
- elem -> point ( 0 ) > elem -> point ( 1 ))
830
+ elem -> positive_edge_orientation ( 0 ))
831
831
f = -1 ;
832
832
833
833
return FE < 1 ,HIERARCHIC > ::shape_second_deriv (EDGE3 , totalorder , i , 0 , f * xi );
@@ -843,7 +843,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape_second_deriv(const Elem * elem,
843
843
const unsigned int side_i = i - dofs_per_side ;
844
844
845
845
if ((side_i < 2 || side_i % 2 ) &&
846
- elem -> point ( 1 ) > elem -> point ( 2 ))
846
+ elem -> positive_edge_orientation ( 1 ))
847
847
f = -1 ;
848
848
849
849
return FE < 1 ,HIERARCHIC > ::shape_second_deriv (EDGE3 , totalorder , side_i , 0 , f * eta );
@@ -862,7 +862,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape_second_deriv(const Elem * elem,
862
862
const unsigned int side_i = i - 2 * dofs_per_side ;
863
863
864
864
if ((side_i < 2 || side_i % 2 ) &&
865
- elem -> point ( 3 ) > elem -> point (2 ))
865
+ ! elem -> positive_edge_orientation (2 ))
866
866
f = -1 ;
867
867
868
868
return FE < 1 ,HIERARCHIC > ::shape_second_deriv (EDGE3 , totalorder , side_i , 0 , f * xi );
@@ -877,7 +877,7 @@ Real FE<2,SIDE_HIERARCHIC>::shape_second_deriv(const Elem * elem,
877
877
const unsigned int side_i = i - 3 * dofs_per_side ;
878
878
879
879
if ((side_i < 2 || side_i % 2 ) &&
880
- elem -> point ( 0 ) > elem -> point (3 ))
880
+ ! elem -> positive_edge_orientation (3 ))
881
881
f = -1 ;
882
882
883
883
return FE < 1 ,HIERARCHIC > ::shape_second_deriv (EDGE3 , totalorder , side_i , 0 , f * eta );
0 commit comments