proj antlers

enter pmx /direct

macro h1
 create base.c
  cyl 0,0.32,0.53, 0.02,90,30, 0.1, LST 
 //
 delete base.c
 create horns\h1%1.c
  class sail
  cyl (16) ^,^,^, .5,90,45, .2, 0.15, LST
 //
 if "%1"<>"" then
  delete horns\h1%1.c
 end
/
.h1

macro h2
 .h1 "x"
 create horns\h2%2.c
  cyl (16) ^,^,^, .75-%1,90,27, 0.15,0.1, LST
 //
 if "%2"<>"" then
  delete horns\h2%2.c
 end
/
.h2 0

.h1 "x"
create horns\h3%1.c
 cyl ^,^,^, .5,90,90, 0.1,0.02, LST
/

.h2 0.03, "x"
create horns\h4%1.c
 cyl ^,^,^, .45,90,90, 0.1,0.02, LST
/

.h2 0.05, "x"
create horns\h5%1.c
 cyl ^,^,^, .55,270,60, 0.1,0.03, LST
/

render ;CAM:90

qu pm