mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-23 05:13:48 +00:00
9b6390b17e
extras/curs/curs.m:
extras/curs/curs.panel.m:
Make panel a separate submodule of curs, not a nested submodule.
extras/base64/base64.m:
extras/curses/mcurses.basics.m:
extras/curses/mcurses.m:
extras/curses/mcurses.misc.m:
extras/curses/mcurses.user.m:
extras/gator/evolve.m:
extras/gator/genotype.m:
extras/gator/phenotype.m:
extras/gator/tausworthe3.m:
extras/monte/dots.m:
extras/monte/geom.m:
extras/monte/hg.m:
extras/monte/monte.m:
extras/monte/rnd.m:
extras/moose/grammar.m:
extras/moose/moose.m:
extras/mopenssl/mopenssl.m:
extras/net/echo.m:
extras/net/errno.m:
extras/net/getaddrinfo.m:
extras/net/net.m:
extras/net/netdb.m:
extras/net/sockets.m:
extras/net/streams.m:
extras/net/tcp.m:
extras/net/test_lookups.m:
extras/net/types.m:
extras/odbc/odbc.m:
extras/odbc/odbc_test.m:
extras/references/README:
extras/references/reference.m:
extras/references/scoped_update.m:
extras/solver_types/library/any.m:
extras/solver_types/library/any_array.m:
extras/solver_types/library/any_assoc_list.m:
extras/solver_types/library/any_list.m:
extras/solver_types/library/any_map.m:
extras/solver_types/library/any_tree234.m:
extras/solver_types/library/any_util.m:
extras/trail/trail.m:
extras/trailed_update/samples/interpreter.m:
extras/trailed_update/samples/vqueens.m:
extras/trailed_update/tests/var_test.m:
extras/trailed_update/tr_array.m:
extras/trailed_update/tr_store.m:
extras/trailed_update/trailed_update.m:
extras/trailed_update/unsafe.m:
extras/trailed_update/var.m:
Bring programming style up to date.
115 lines
2.7 KiB
Mathematica
115 lines
2.7 KiB
Mathematica
%-----------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
%-----------------------------------------------------------------------------%
|
|
% Copyright (C) 2010 The University of Melbourne.
|
|
% This file may only be copied under the terms of the GNU General
|
|
% Public License - see the file COPYING in the Mercury distribution.
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- module hg.
|
|
|
|
:- interface.
|
|
|
|
:- import_module monte.
|
|
:- import_module float.
|
|
|
|
:- func hgBox = box.
|
|
|
|
:- pred hg(float::in, float::in, float::in) is semidet.
|
|
|
|
:- pred head(float::in, float::in, float::in) is semidet.
|
|
|
|
:- pred body(float::in, float::in, float::in) is semidet.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module geom.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
hgBox = box(-2.5, -2.0, -2.5, 2.5, 2.0, 4.5).
|
|
|
|
hg(X, Y, Z) :-
|
|
union(
|
|
translate(head, 0.0, 0.0, 2.0),
|
|
body,
|
|
X, Y, Z).
|
|
|
|
head(X, Y, Z) :-
|
|
union(
|
|
torus(0.25),
|
|
translate(
|
|
union(
|
|
difference(torus(0.25), planeZ),
|
|
union(
|
|
translate(
|
|
scale(sphere, 0.25, 0.25, 0.25),
|
|
-1.0, 0.0, 0.0
|
|
),
|
|
translate(
|
|
scale(sphere, 0.25, 0.25, 0.25),
|
|
1.0, 0.0, 0.0
|
|
)
|
|
)
|
|
),
|
|
0.0,
|
|
0.0,
|
|
2.0
|
|
),
|
|
X,
|
|
Y,
|
|
Z
|
|
).
|
|
|
|
body(X, Y, Z) :-
|
|
union(
|
|
translate(
|
|
scale(cylinder, 0.25, 0.25, 3.0),
|
|
0.0,
|
|
0.0,
|
|
-2.0
|
|
),
|
|
union(
|
|
rotateY(
|
|
translate(
|
|
scale(cylinder, 0.25, 0.25, 2.0),
|
|
0.0,
|
|
0.0,
|
|
-1.0
|
|
),
|
|
pi / 2.0
|
|
),
|
|
union(
|
|
translate(
|
|
scale(sphere, 0.25, 0.25, 0.25),
|
|
0.0,
|
|
0.0,
|
|
-2.0
|
|
),
|
|
union(
|
|
translate(
|
|
scale(sphere, 0.25, 0.25, 0.25),
|
|
-1.0,
|
|
0.0,
|
|
0.0
|
|
),
|
|
translate(
|
|
scale(sphere, 0.25, 0.25, 0.25),
|
|
1.0,
|
|
0.0,
|
|
0.0
|
|
)
|
|
)
|
|
)
|
|
),
|
|
X,
|
|
Y,
|
|
Z
|
|
).
|
|
|
|
:- func pi = float.
|
|
|
|
pi = 3.14159265359.
|