source: altifloat/src/ur.h

Last change on this file was 129, checked in by jbrlod, 10 years ago

last version of Varanth

File size: 1.3 KB
Line 
1forward(YREAL u1, YREAL u2, YREAL u3, YREAL u4, YREAL v1, YREAL v2, YREAL v3, YREAL v4, YREAL x1u, YREAL x2u, YREAL x3u, YREAL x4u, YREAL y1u, YREAL y2u, YREAL y3u, YREAL y4u, YREAL x1v, YREAL x2v, YREAL x3v, YREAL x4v, YREAL y1v, YREAL y2v, YREAL y3v, YREAL y4v,YREAL x, YREAL y)
2{
3        YS1=u1 + (u2-u1)*(x-x1u)+(u3-u1)*(y-y1u)+(u1-u2-u3+u4)*(x-x1u)*(y-y1u);
4        YS2=v1 + (v2-v1)*(x-x1v)+(v3-v1)*(y-y1v)+(v1-v2-v3+v4)*(x-x1v)*(y-y1v);
5        ur_dx=(u2-u1)+(u1-u2-u3+u4)*(y-y1u);
6        ur_dy=(u3-u1)+(u1-u2-u3+u4)*(x-x1u);
7        vr_dx=(v2-v1)+(v1-v2-v3+v4)*(y-y1v);
8        vr_dy=(v3-v1)+(v1-v2-v3+v4)*(x-x1v);
9        //printf("u1=%f ; u2=%f\n",u1,u2);
10}
11
12
13backward(YREAL u1, YREAL u2, YREAL u3, YREAL u4, YREAL v1, YREAL v2, YREAL v3, YREAL v4, YREAL x1u, YREAL x2u, YREAL x3u, YREAL x4u, YREAL y1u, YREAL y2u, YREAL y3u, YREAL y4u, YREAL x1v, YREAL x2v, YREAL x3v, YREAL x4v, YREAL y1v, YREAL y2v, YREAL y3v, YREAL y4v, YREAL x, YREAL y)
14
15{
16        YJ1I1 = 1 - (x-x1u) - (y-y1u) + (x-x1u)*(y-y1u);
17        YJ2I5 = 1 - (x-x1v) - (y-y1v) + (x-x1v)*(y-y1v);
18        YJ1I2 = (x-x1u)-(x-x1u)*(y-y1u);
19        YJ2I6 = (x-x1v)-(x-x1v)*(y-y1v);
20        YJ1I3 = (y-y1u)-(x-x1u)*(y-y1u);
21        YJ2I7 = (y-y1v)-(x-x1v)*(y-y1v);
22        YJ1I4 = (x-x1u)*(y-y1u);
23        YJ2I8 = (x-x1v)*(y-y1v);
24        YJ1I25=(u2-u1)+(u1-u2-u3+u4)*(y-y1u);
25        YJ1I26=(u3-u1)+(u1-u2-u3+u4)*(x-x1u);
26        YJ2I25=(v2-v1)+(v1-v2-v3+v4)*(y-y1v);
27        YJ2I26=(v3-v1)+(v1-v2-v3+v4)*(x-x1v);
28        }
Note: See TracBrowser for help on using the repository browser.