2019-12-25

//第一步 画一个六边形  第二步画出四个柱子
COLOR RGB(208, 209, 210)
FUNC ZZ e, f
  GOTO e, 0
  DRAW
    TURN 90
    REPEAT 6
      GO 12
      TURN -60
    END
  DONE
  FILL
  EXTRUDE f
  CLEAR
  RESET
END
ZZ -200, 194
ZZ -100, 215
ZZ 100, 215
ZZ 200, 194
FUNC 柱子圆 z，x，c
  MOVETO z, x, c
  CIRC 10
  FILL
  BODY
    REPEAT 2
      SCALE 1.1
      UP 2
      SCALE 1.1
      UP 16
      SCALE 1
      UP 2
    END
  DONE
  CLEAR
  RESET
END
柱子圆 106 ，11，216
柱子圆 -94 ，11，216
柱子圆 206 ，11，195
柱子圆 -194 ，11，195
MOVETO 106 ，11，216
SUBTRACT on
REPEAT 20
  TURN 18
  GO 13
  RECT 0.2, 6
  FILL
  GO -13
END
EXTRUDE 55
CLEARSKETCH
UP -25
WIDTH 2
CIRC 11
EXTRUDE 1.5
CLEARSKETCH
UP -22
WIDTH 2
CIRC 11
EXTRUDE 1.5
CLEAR
RESET
SUBTRACT off
MOVETO -94 ，11，216
SUBTRACT on
REPEAT 20
  TURN 18
  GO 13
  RECT 0.2, 6
  FILL
  GO -13
END
EXTRUDE 55
CLEARSKETCH
UP -25
WIDTH 2
CIRC 11
EXTRUDE 1.5
CLEARSKETCH
UP -22
WIDTH 2
CIRC 11
EXTRUDE 1.5
CLEAR
RESET
SUBTRACT off
MOVETO -194 ，11，195
SUBTRACT on
REPEAT 20
  TURN 18
  GO 13
  RECT 0.2, 6
  FILL
  GO -13
END
EXTRUDE 55
CLEARSKETCH
UP -25
WIDTH 2
CIRC 11
EXTRUDE 1.5
CLEARSKETCH
UP -22
WIDTH 2
CIRC 11
EXTRUDE 1.5
CLEAR
RESET
SUBTRACT off
MOVETO 206 ，11，195
SUBTRACT on
REPEAT 20
  TURN 18
  GO 13
  RECT 0.2, 6
  FILL
  GO -13
END
EXTRUDE 55
CLEARSKETCH
UP -25
WIDTH 2
CIRC 11
EXTRUDE 1.5
CLEARSKETCH
UP -22
WIDTH 2
CIRC 11
EXTRUDE 1.5
CLEAR
RESET
SUBTRACT off

PITCH -90
FUNC 门牌 p，l，m，n，b
  UP 8
  GOTO p，l
  RECT n, b
  FILL
  EXTRUDE m
  CLEARSKETCH
END
门牌 0, -186, 8, 200, 20
UP -14
门牌 0, -168, 2, 200, 74
UP -14
门牌 162, -154, 2, 100, 74
UP -14
门牌 160, -170, 8, 100, 20
UP -14
门牌 -152, -154, 2, 100, 74
UP -14
门牌 -152, -170, 8, 100, 20
CLEAR
RESET
FUNC 中间层 d, z，x，c，v，b
  UP d
  PITCH b
  GOTO z，x
  RECT c, v
  FILL
  EXTRUDE 3
  CLEAR
  RESET
END
COLOR RGB(208, 209, 210)
中间层 178 ，5，0，180，30，20
中间层 165 ，157，0，82，30，20
中间层 165 ， - 145 ，0，82，30，20
中间层 189 ，5，29，180，30， - 20
中间层 170 ，157，29，82，30， - 20
中间层 170 ， - 145 ，29，82，30， - 20
FUNC 第一层 d, z，x，c，v，b，n
  UP d
  PITCH n
  GOTO z，x
  TURN 90
  REPEAT b
    DRAW
      RECT c, v
    DONE
    FILL
    GO 8
  END
  EXTRUDE 3
  CLEAR
  RESET
END
第一层 174 ， - 84 ，0，28，4，23，16
第一层 160 ，118，0，28，4，11，16
第一层 160 ， - 184 ，0，28，4，11，16
第一层 183 ， - 84 ，29，28，4，23， - 16
第一层 168 ，118，29，28，4，11， - 16
第一层 168 ， - 184 ，29，28，4，11， - 16
COLOR RGB(25, 140, 170)
FUNC 第二层 z，x，c，v，b
  UP z
  PITCH b
  YAW 180
  GOTO x，c
  REPEAT v
    REPEAT 2
      ARC 3, 90
    END
    TURN -90
    GO 1.2
    TURN -90
  END
  EXTRUDE 22
  CLEAR
  RESET
END
第二层 206 ， - 93 ，20，25， - 108
第二层 192 ， - 194 ，20，11， - 108
第二层 192 ，104，20，11， - 108
第二层 134 ， - 93 ，55，25，108
第二层 115 ， - 194 ，55，11，108
第二层 115 ，104，55，11，108

FUNC 第三层 z，x，c，v，b
  UP v
  PITCH b
  YAW 180
  GOTO z，x
  CIRC 3
  FILL
  TURN 90
  REPEAT c
    GO 9
    CIRC 2.4
    FILL
  END
  EXTRUDE 23
  CLEAR
  RESET
END
第三层 -96 ，20，20，208， - 108
第三层 104 ，20，9，195， - 108
第三层 -196 ，20，9，195， - 108
第三层 -96 ，55，20，135，108
第三层 104 ，55，9，120，108
第三层 -196 ，55，9，120，108


COLOR black
PITCH 90
UP -10
SCALE 6.2
GOTO -4 ，10 .5
IMGLOAD "1.jpg"
IMGSCALE 1
IMGSTAMP 0, 230
IMGUNLOAD
IMGLOAD "2.jpg"
IMGSCALE 1
IMGSTAMP 0, 230
IMGUNLOAD
IMGLOAD "3.jpg"
IMGSCALE 1
IMGSTAMP 0, 230
IMGUNLOAD
IMGLOAD "4.jpg"
IMGSCALE 1
IMGSTAMP 0, 230
IMGUNLOAD
IMGLOAD "5.jpg"
IMGSCALE 1
IMGSTAMP 0, 230
IMGUNLOAD
IMGLOAD "6.jpg"
IMGSCALE 1
IMGSTAMP 0, 230
IMGUNLOAD
EXTRUDE 2
CLEAR
RESET


//前面
COLOR RGB(208, 209, 210)
PITCH 90
YAW 90
UP 190
FUNC G
  DRAW
    GO 54
    TURN 20 + 60
    ARC 8 ，80
    TURN -90 - 60
    ARC 8 ， - 80
    TURN 80 + 80
    ARC 10 ，140
    TURN -160
    ARC 6 ，130
    TURN -100
    ARC 4 ，120
    TURN -90 - 30
    ARC 5 ，120
    TURN 50
    GO 34
  DONE
  FILL
  EXTRUDE 10
  CLEAR
  RESET
END
G
PITCH 90
YAW 90
UP -210
G
PITCH 90
YAW 90
UP -110
G
PITCH 90
YAW 90
UP 90
G

PITCH 90
YAW -90
UP 100
GOTO 22 ，0
G

PITCH 90
YAW -90
UP 200
GOTO 22 ，0
G

PITCH 90
YAW -90
UP -100
GOTO 22 ，0
G

PITCH 90
YAW -90
UP -200
GOTO 22 ，0
G