XProfan

# Okrea-code
# new Object
origin 0,0,0
# wings
goto 0,0,0
color 1,0,0,1
triangle 2,2
goto 0,0,0
rotate 45,0,0
color 1,1,1,1
triangle 2,2
goto 0,0,0
rotate 90,0,0
color 1,0,0,1
triangle 2,2
goto 0,0,0
rotate 135,0,0
color 1,1,1,1
triangle 2,2
goto 0,0,0
rotate 180,0,0
color 1,0,0,1
triangle 2,2
goto 0,0,0
rotate 225,0,0
color 1,1,1,1
triangle 2,2
goto 0,0,0
rotate 270,0,0
color 1,0,0,1
triangle 2,2
goto 0,0,0
rotate 305,0,0
color 1,1,1,1
triangle 2,2
# stem
goto .99,0,0
rotate 0,0,90
color .2,.4,0,1
tube .04,.04,8,32
# Haube
goto 1,0,0
rotate 0,0,90
color 1,.7,0,1
tube .2,.2,.2,32