qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2025-02-17 01:11:45 +00:00
Code Issues Projects Releases Packages Wiki Activity

[qfcc] Implement the regressive product

Browse source 
That went surprisingly well (but it is built up from other ops, so
pretty easy, really).
This commit is contained in:
Bill Currie 2023-08-28 20:32:29 +09:00
parent e2d812ab6a
commit 58a1758363
3 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tools/qfcc/source/expr_algebra.c
View file

@ -1342,8 +1342,10 @@ geometric_product (expr_t *e1, expr_t *e2)
static expr_t * static expr_t *
regressive_product (expr_t *e1, expr_t *e2) regressive_product (expr_t *e1, expr_t *e2)
{ {
notice (e1, "not implemented"); auto a = algebra_dual (e1);
return 0; auto b = algebra_dual (e2);
auto c = outer_product (a, b);
return algebra_dual (c);
} }
static expr_t * static expr_t *

1
tools/qfcc/source/qc-parse.y
View file

@ -1773,6 +1773,7 @@ expr
| expr CROSS expr { $$ = binary_expr (CROSS, $1, $3); } | expr CROSS expr { $$ = binary_expr (CROSS, $1, $3); }
| expr DOT expr { $$ = binary_expr (DOT, $1, $3); } | expr DOT expr { $$ = binary_expr (DOT, $1, $3); }
| expr WEDGE expr { $$ = binary_expr (WEDGE, $1, $3); } | expr WEDGE expr { $$ = binary_expr (WEDGE, $1, $3); }
| expr REGRESSIVE expr { $$ = binary_expr (REGRESSIVE, $1, $3); }
; ;
texpr texpr

5
tools/qfcc/test/pga2d.r
View file

@ -265,5 +265,10 @@ main (void)
s.scalar, s.bvec); s.scalar, s.bvec);
return 1; return 1;
} }
auto line = bvec ∨ bvecb;
if ((dvec3)line != '-11 8 34'd) {
printf ("bvec ∨ bvecb != '-11 8 34': %lv\n", line);
return 1;
}
return 0; // to survive and prevail :) return 0; // to survive and prevail :)
} }