home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 49
/
af049.adf
/
Genesis
/
Models
/
pieces.csg
< prev
next >
Wrap
Text File
|
1993-06-09
|
2KB
|
67 lines
# (c) 1989 Andrew McNamara, The Transalvanian Graphics Lab Inc.
Example of CSG Operations & Multi-Level Re-usable Macro's
This .csg file constructs a schematic chess-set using only basic
primitives. #
PAWN = CONE(23.19) DIFF PLANE(0,0,1) AT (0,0,-7)
DIFF PLANE(0,0,-1) UNION EMPTY;
TOPBIT=CYLINDER(3) DIFF PLANE(0,0,-1) AT (0,0,4)
DIFF PLANE(0,0,1) UNION EMPTY;
ROOK = CYLINDER(2) UNION (TOPBIT) AT(0,0,7) DIFF
PLANE(0,0,-1) AT (0,0,11)
DIFF PLANE(0,0,1) UNION
(CYLINDER(3) DIFF PLANE(0,0,-1) AT(0,0,1) DIFF
PLANE(0,0,1)) UNION EMPTY;
BISHOP= CYLINDER(3) DIFF PLANE(0,0,-1) AT(0,0,8)
DIFF PLANE(0,0,1) UNION
(SPHERE(3) DIFF PLANE(0,0,1)) AT(0,0,8) UNION EMPTY;
BOTTOMS=(CYLINDER(1) DIFF PLANE(0,0,1) DIFF PLANE(0,0,-1) AT(0,0,2))
AT(0,0,5) UNION
(CONE(21.8) AT (0,0,2.5) DIFF PLANE(0,0,-1) DIFF PLANE(0,0,1) AT
(0,0,-5)) AT(0,0,5) UNION EMPTY;
KING=(BOTTOMS) UNION
(CYLINDER(3) DIFF PLANE(0,0,1) AT(0,0,7)
DIFF PLANE(0,0,-1) AT(0,0,12)) UNION EMPTY;
QUEEN=(BOTTOMS) UNION
(CONE(21.8) AT(0,0,-2.5) DIFF PLANE(0,0,1) DIFF PLANE(0,0,-1)
AT(0,0,5)) AT(0,0,7) UNION EMPTY;
KNIGHT=(CONE(37.96) DIFF PLANE(0,0,-1) DIFF PLANE(0,0,1) AT(0,0,-4)) AT
(0,0,10) UNION
(CONE(18.4) AT(0,0,3) DIFF PLANE(0,0,-1) DIFF
PLANE(0,0,1) AT(0,0,-6)) AT(0,0,6) UNION EMPTY;
ROW= ((PAWN) XROT(-90) AT(3,0,3) UNION
(PAWN) XROT(-90) AT(10,0,3) UNION
(PAWN) XROT(-90) AT(17,0,3) UNION
(PAWN) XROT(-90) AT(24,0,3) UNION
(PAWN) XROT(-90) AT(31,0,3) UNION
(PAWN) XROT(-90) AT(38,0,3) UNION
(PAWN) XROT(-90) AT(45,0,3) UNION
(PAWN) XROT(-90) AT(52,0,3)) AT(0,7,0) UNION EMPTY ;
DRAW
(
(ROOK) XROT(-90) AT(3,0,10) UNION
(KNIGHT) XROT(-90) AT(10,0,10) UNION
(BISHOP) XROT(-90) AT(17,0,10) UNION
(QUEEN) XROT(-90) AT(24,0,10) UNION
(KING) XROT(-90) AT(31,0,10) UNION
(BISHOP) XROT(-90) AT(38,0,10) UNION
(KNIGHT) XROT(-90) AT(45,0,10) UNION
(ROOK) XROT(-90) AT(52,0,10) UNION
(ROW)
) SCALE(5) YROT(45) XROT(-30) AT(20,130,200);
.