proj HYN2018
template version
 "Version 15.98 or later required"
/
if {VERSION}<15.98 then end version

copy ^^sv.gf cow70.gf
clear
clear all

enter pmx /direct
read cow70.gf
title=Happy New Year

real end1, end2
card npipe:=0

macro pipe
 macro create
  create pipes\pipe%%91
   class sail
    cyl {end1}, 0, %1, {end2}, 0, %1, 1
  ///
 //
 npipe:=npipe+1
 end1:=%2
 end2:=end1-10
 .create npipe
/
.pipe (3,1) 6, -10
.pipe (4,1) 6, -22

macro timestamp
 comment >> The geometry file was written by Part Maker on %1  %2 <<
/
.timestamp DATE, TIME
write HappyNewYear.gf

create block.c
ends -99,99
top 4.25
bot -99
out 99
spacing 99
/
create tophull
class hull
shape hull.c
fit (ext) block.c
/
modify hull.c
fit (int) block.c
/
delete block.c

surface (hull) HappyNewYear; color:red
surface (tophull) hnytop; color:blue
surface (pipes) pipes; color:green
render HappyNewYear, hnytop, pipes /JPEG:HappyNewYear.jpg; SIZE:600,100; CAM:180,0,4.0
clear
quit pm

read HappyNewYear.gf
report /box:bw
\{%IMAGE("HappyNewYear.jpg")%}\
\\\\\\\
comments

print preview
report off
macro erase
 erase "HappyNewYear%1"
/
clear
.erase
.erase ".gf"
.erase ".jpg"
.erase "_etc.py"
erase "hnytop"
erase "pipes"
erase "cow70.gf"
quit