mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-30 16:54:41 +00:00
ea06fd8cde
This was a seperate repository in CVS and so it missed the conversion.
benchmarks/
As above.
31 lines
535 B
TeX
31 lines
535 B
TeX
/* surface.ins
|
|
*
|
|
* This include file defines simple constant surface functions
|
|
*/
|
|
|
|
#ifndef _SURFACE_INS_
|
|
#define _SURFACE_INS_
|
|
|
|
%%%%%%%%%% include surface.ins %%%%%%%%%%
|
|
|
|
#include "util.ins"
|
|
#include "colors.ins"
|
|
|
|
% ... <color> matte ==> ... <surface>
|
|
{ /color
|
|
{ /v /u /face
|
|
color 1.0 0.0 1.0
|
|
}
|
|
} /matte
|
|
|
|
% ... <color> <kd> <ks> <n> ==> ... <surface>
|
|
{ /n /ks /kd /color
|
|
{ /v /u /face
|
|
color kd ks n
|
|
}
|
|
} /const-surface
|
|
|
|
%%%%%%%%%% surface.ins %%%%%%%%%%
|
|
|
|
#endif /* !_SURFACE_INS_ */
|