Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
SVG Christams Tree
#1
Another exciting Christmas tree program!!!!!
Code: (Select All)
'XMAS TREE SVG
'
'a simple demo prgram making use of PLAY and SVG graphics
'need QB64-PE edition to run this
Screen _NewImage(400, 300, 32)
Cls
Randomize Timer
_FullScreen
'load the svg christmas tree
th$ = "<svg width='150' height='250'>"
ti$ = svg_tree$
tf$ = "</svg>"
tfull$ = th$ + ti$ + tf$

s& = _LoadImage(tfull$, 32, "memory") 'svg tree layer
t& = _NewImage(400, 300) 'text layer
Play do_jingle$ 'play a simple version of jingle bells
Do
    _Limit 10
    Cls
    _Dest t& 'lets write the text layer
    Color _RGB32(Int(1 + Rnd * 64) * 4, Int(1 + Rnd * 64) * 4, Int(1 + Rnd * 64) * 4)
    Print Tab(1 + Rnd * 40); "MERRY CHRISTMAS !"
    _Dest 0 'lets put graphics on the mainscreen
    _PutImage (0, 0), t&
    _PutImage ((_Width / 2 - 75), (_Height / 2) - 125), s&
    _Display 'show all those graphics changes
Loop Until InKey$ = Chr$(27)
'clean up the image handles    for the svg and text layers
_FreeImage s&
_FreeImage t&

Function svg_tree$
    'returns an SVG drawing of christmas tree
    T$ = "<g id='Trees_1'>"
    T$ = T$ + "  <ellipse fill='#FF0000' cx='73.8' cy='215.4' rx='33.4' ry='17.2'/>"
    T$ = T$ + "  <path fill='#D30B0B' d='M85.3,225.9c-16.2,0-29.4-6.8-29.4-15.1c0-3.5,2.3-6.7,6.2-9.2c-10.4,2.3-17.7,7.6-17.7,13.8"
    T$ = T$ + "        c0,8.3,13.1,15.1,29.4,15.1c9.4,0,17.8-2.3,23.2-5.8C93.4,225.4,89.4,225.9,85.3,225.9z'/>"
    T$ = T$ + "                <path fill='#2E5E50' d='M77,197.5l-1.1-28.1l0.1-13.2l2.4-24.8l-0.5-16c0,0,0.4-4.9,0.8-10.2c0.4-5.3-0.6-7.9-0.6-7.9"
    T$ = T$ + "                    s-1.3-27.2-3.6-29.7c-2.4-2.5-1.8,20.7-1.7,24.4c0.2,6.1-0.1,8.5-0.1,8.5l-1.1,11.2c0,0-1.9,13.9-1.8,18.3"
    T$ = T$ + "                  c0.2,4.4-0.8,23.8-0.8,23.8s-0.9,7.1-1.9,9.8c-1,2.7,0.5,14.1,0.5,14.1l1.9,20.1c0,0,0,2.8,0.1,6.6c2.6,0,5.3,0,7.9,0"
    T$ = T$ + "                  C77.2,200.4,77,197.5,77,197.5z'/>"
    T$ = T$ + "              <path fill='#915A46' d='M73.9,180.4c0,0,0.3-12.3-0.2-16.4c-0.5-4.1,2.2-32.4,2.8-35.3c0.6-3-0.3-8.2-0.4-10.5"
    T$ = T$ + "                c-0.1-2.3,0-10,0.3-12.9c0.3-2.9,0-19.4-0.8-22.2c-0.9-2.9-0.7,11.8-0.7,11.8c0.1,2.4-0.8,17.7-1.9,18.9"
    T$ = T$ + "                  c-1.1,1.2-1.3,14.7-1.3,14.7L70.5,160l-1.9,10.1l2.7,34.4c1.4,0,2.8,0,4.2,0C74.7,193.1,73.9,180.4,73.9,180.4z'/>"
    T$ = T$ + "                  <path fill='#2E5E50' d='M95.2,178.1c1.6,2.1,1.8,5.8,3,8.2c1.3,2.8,3.1,5.4,5.6,7.3c2.6,2,5.7,3,8.2,5c2.9,2.3,5.8,4.7,8.7,7"
    T$ = T$ + "                    c0.8,0.6,1.6,1.5,1.3,2.4c-7-0.5-13.8-3.1-19.4-7.4c1,0.7,1.8,1.6,2.2,2.8c-4.2-0.2-8.3-1.9-11.4-4.6c0.1,0.8,0.3,1.7,0.4,2.5"
    T$ = T$ + "                      c-3.9-1.8-7.1-5.2-8.7-9.2c0.1,0.9,0.2,1.8,0.2,2.8c-2.9-2.5-4.9-5.9-5.9-9.5c-3.5-1.6-3.9-5.9-4.4-9.3"
    T$ = T$ + "                      c-1.4,1.3-2.3,3.5-2,5.5c0.2,0.9,0.5,1.7,0.5,2.5c0,1.3-0.8,2.4-1.5,3.4c-3.5,5-7.1,9.9-10.6,14.9c-0.6-1.5-0.8-3-0.7-4.6"
    T$ = T$ + "                      c-3,2.6-5.4,5.9-7,9.6c0.7-2.7,0.9-5.6,0.5-8.4c-3.4,5.1-8.6,8.9-14.5,10.6c2.8-5.4,5.8-11.4,4.6-17.4"
    T$ = T$ + "                      c-2.1,3.3-4.2,6.5-6.4,9.8c-1.4,2.2-2.9,4.4-5.1,5.7c1.9-2.8,3-6.3,2.9-9.7c-3.2,1.8-4.5,6.8-8.1,7.2"
    T$ = T$ + "                      c-0.6,0.1-1.4-0.2-1.5-0.8c0-0.2,0.1-0.4,0.2-0.6c1-2.3,2.1-4.5,3.1-6.8c0.4-0.8,1.1-4.4,1.8-4.8c0,0-3.7,2.1-3.7,2.1"
    T$ = T$ + "                      s-2.5,4.4-5.5,7.1c-9.9,8.9-3.2-1-3.2-1l5.3-6.6l-3.3-0.6l-4.3,6.6c-8.6,7.9-2.5-3.9-2.5-3.9l6-5.4l6.9-8.8"
    T$ = T$ + "                      c2.9-2.3,6.5-3.2,9-3.5c0.3-0.7,0.8-1.5,1.4-2.4c0.5-1.6,2-3.6,2-3.6c1.2-0.7,2.4-1.2,3.7-1.7c-0.5-6,4.8-7,3.4-4.8"
    T$ = T$ + "                        c0.9-1.5,2.9-3,2.9-3s2.3-0.2,2.6-2.8c0.3-2.6,2-2.5,2-2.5l3.8-2.5c-0.3-0.7-0.5-1.4-0.8-2.2l-5.3-1.4c-0.3,0.7-1.4,2.7-5,7.8"
    T$ = T$ + "                        c-7.1,10.3-3.5-2.8-5.4-2.7c-1.9,0.1-5.7,9.1-7.5,11.5c-1.8,2.4,0.5-7.1,0.5-7.1s-3.6,3.1-7,4.5c-3.3,1.3-1.5,9.5-4.5,10.2"
    T$ = T$ + "                        c-3,0.7,0-10,0-10l-4.3,6.1c0,0-2.7,7.2-5.8,6.7c-3-0.4-1.7-5.2-1.7-5.2s-2,6-5,6.1c-3,0.2,5.2-12,5.2-12l3.9-5.5"
    T$ = T$ + "                      c-4.5,0.8,1.1-4.7,1.1-4.7c3.7-2.5,4.6,0.1,4.8-2c0.4-4,8.4-8.3,6.5-6.2c1.1-1.2,2.4-3.6,2.4-3.6s1.6-0.5,4.1-3.2"
    T$ = T$ + "                      c0.3-0.3,0.5-0.4,0.8-0.4l0.9-4.4c0,0-3,1.3-4.1,1.4c-1.1,0-1,4.2-2.8,6.6c-1.8,2.4-2.5,3.1-2.5,3.1l0.4-8.8"
    T$ = T$ + "                      c0,0-3.3,1.4-3.6,3.7c-0.3,2.4-5,7.3-5,7.3l2.7-8.4l-4,3.1c0,0-1,3.6-3.6,3.7c-2.6,0.1,1.7-5.4,1.7-5.4s5.4-7.3,9-9.8"
    T$ = T$ + "                      c2.3-1.6,10.2-6.4,25-11l-0.1-1.3c0,0,1.4-4.9,5.7-6.4l0.3-1l-0.9-1.3c0,0-1.5,0.1-3,1.3c-1.5,1.2-2.8,5.4-2.8,5.4l-2.9-5.7"
    T$ = T$ + "                      l-3.3,2.5c0,0,0.9,2.9-1,4.2c-1.8,1.3-2.4-4-2.4-4s-1.4,3.6-2.4,6.6c-1,3-0.6-7-0.6-7l-2.4,4.8c0.1,2.3-2.9,3.7-2.9,3.7"
    T$ = T$ + "                      l1.6-7.7l-4.3,4.9c-3.3,2.5-1.9-1.7-1.9-1.7l-4.3,4.9c-6,1.5,2.3-7.8,2.3-7.8l4.4-3.1c-2.3,0.1-5-2.1-1.3-3.5"
    T$ = T$ + "                      c3.7-1.3,7.2,0.2,7.2,0.2c2.2-2.4,15.2-6.6,15.2-6.6c2.6-0.1,2.7-2.8,4.2-2.3c-0.1-3.3,2.3-5.2,3.6-7.2"
    T$ = T$ + "                      c-2.7,0-5.1,0.2-5.8,0.9c-1.8,1.9-4,3.7-4,3.7l2.4-5.4l-1.2-1.1c0,0-1.5,0.7-3.2,3.7c-1.8,3-5.1,3.8-5.1,3.8l3.1-7.2l-3.7,1.4"
    T$ = T$ + "                      c0,0-2.5,3.6-5.1,4.4c-2.6,0.7,2.4-6,2.4-6l-3.3,3.1c-2.9,1.9-2.7-1.1-2.7-1.1l6.5-7.4l10-3.4c4.5-1.4,17.6-12.6,17.6-12.6"
    T$ = T$ + "                        s0.3-0.7,0.5-2.3l-6.6,0.9l-2.1-5.8c0,0-2.5,3.6-3.6,6c-1,2.4-4,2.5-4,2.5l2-7.1c0,0-1.5,1.2-4,3.7c-2.5,2.5-4.8,2.6-4.8,2.6"
    T$ = T$ + "                        l3.9-5.5c0,0-1.9,0.7-6,1.5c-4.1,0.8-2.3-2.2-0.4-1.7c1.9,0.5,5.2-2.6,5.2-2.6s3.6-4.9,7.3-5.6c3.7-0.8,10.6-8.2,10.6-8.2"
    T$ = T$ + "                      s6.2-11.5,5.6-15.6C68,29.9,71,22.7,71,22.7l2.7,12.2l2,7c4.5,6.2,13.8,18.9,15.9,19.4c2.8,0.7,9.9,7.4,9.9,7.4"
    T$ = T$ + "                      s-2.3,0.1-4-0.7c-1.7-0.8-6.3-2.3-6.3-2.3l3.6,6c0,0-8.8,2.9-8.9-1.1c0-2.7-3.5-4.8-5.8-5.9c0.9,2.6,0.9,6.2,0.9,7.2"
    T$ = T$ + "                    c5.2,6.3,14.2,16.5,17.6,17.6c5,1.5,12.3,6.4,12.3,6.4l2.5,6.3c0,0-2.2,1.9-5.7-2.1l-2.8-3.4l4.1,8c0,0-3-0.4-4.2-2.7"
    T$ = T$ + "                    c-1.2-2.3-2.8-3.4-2.8-3.4l0.2,4.7l-3.1-2.2l-2.1-4.6l-2.2,1.9l-5-4.4c-0.1,0.2-0.3,0.4-0.5,0.4l2,5.3"
    T$ = T$ + "                    c2.2,0.6,4.3,1.4,5.5,2.7c3.9,3.9,9.5,12.4,9.5,12.4s10.1,9.5,13.2,11.1c3.1,1.6-1.3,4.8-4.9,0.2l-4.7-4.5"
    T$ = T$ + "                    c0,0,3.6,5.7,2.1,5.8c-1.5,0.1-4.8-6.2-4.8-6.2l-5.4-3.8c0,0,2.6,8.1,1,7c-1.6-1.1-4-7.4-4-7.4l-2.3-1.5"
    T$ = T$ + "                    c1,3.6,1.8,6.8,1.2,7.2c-0.6,0.4-1.5-1.4-2.2-3.6c0.1,3-0.1,6.2-0.9,4.5c0,0.1,0,0.1-0.1,0.2c-1.2,2.1-4.3-10-4.3-10l-1.2-3.2"
    T$ = T$ + "                  l-1.1-0.8c0,0,0,0.1,0,0.2c0.5,2.9,0.9,5.8,0.1,5.7c-0.1,0-0.2-0.1-0.3-0.2c-0.1,1.5-0.3,2.5-0.7,1.3"
    T$ = T$ + "                    c-0.9-2.9-2.4-4.6-2.4-4.6l0.5-3.1c0,0,0-0.1,0-0.1l-2.3,6.8c0,0-1.4-2.1-1.3-5.2c-0.1-0.5-0.3-1-0.4-1.4"
    T$ = T$ + "                  c-0.3,2.1-0.3,4.5,0.6,7.4l5,5.5l9.9,6.1l7.7,4.9c0,0-5.9-1.9-11.7-4.1c1,1.3,1.9,2.6,2.6,3.8c1.8,3.4,13.8,5.5,13.8,5.5"
    T$ = T$ + "                      s7.5,4.9,12.2,8.2c4.6,3.3,5.9,5.9,5.9,5.9l-7.5-3.2l-7-5.8l0.1,3.5l-7.5-4.9c3.6,4.2,2.6,8.7-1,3.6c-0.8-1.1-2-1.7-3.5-2.1"
    T$ = T$ + "                    c0.5,1.9,0.7,4,0.5,5.5l2.6,1.1c0,0,1.2,2.3,1.3,4.1c0.1,1.8,2.9,0.8,2.9,0.8s4.7,0.6,5.9,1.7c-2-1.9,3.7,2.2,7.1,4.4"
    T$ = T$ + "                    c1.3,0.8,0.5,1.1,4.3,3.3c0,0,9.4,7,3.9,6.6l1.2,2c0,0,9.1,11.3,6.1,11.4c-3,0.1-5.5-5.6-5.5-5.6s1.7,4.6-1.3,5.3"
    T$ = T$ + "                    c-3,0.7-6.3-6.1-6.3-6.1l-4.7-5.6c0,0,3.8,10.4,0.7,9.9c-2.6-0.4-2.1-6.3-4-8.7c-0.3,1-1.3,1.7-3,1.6l4.3,5.1"
    T$ = T$ + "                  c0,0,9.1,11.3,6.1,11.4c-3,0.1-5.5-5.6-5.5-5.6s1.7,4.6-1.3,5.3c-3,0.7-6.3-6.1-6.3-6.1l-4.7-5.6c0,0,3.8,10.4,0.8,9.9"
    T$ = T$ + "                  c-3-0.4-1.8-8.7-5.3-9.7c-3.4-1-7.3-3.7-7.3-3.7s0.2,0.5,0.4,1.2C94.3,177.2,94.7,177.5,95.2,178.1z'/>"
    T$ = T$ + "    <path fill='#35956D' d='M95.8,65l-9.1-4.9l-8.6-12.5l-4.8-4.8l-2.5-12.6l-0.6,8.3c0,2.8-3.1,6.3-4.3,11.1"
    T$ = T$ + "          c-1.2,4.9-9.2,7.7-9.2,7.7l-7.3,4.2l3.7,1.4l6.1-2.8l0.6,4.9c0,3.5,6.1-1.4,6.1-1.4c3-3.5,3.7,0.7,3.7,0.7"
    T$ = T$ + "          c-0.6,2.8,1.8,2.1,1.8,2.1l2.4-7c2.3-3.8-3.7-5.6-3.7-5.6l2.9-3.8c1.3,3.2,3.8,3.8,3.8,3.8l0.6,6.3c1.8,2.8,2.4-1.4,2.4-1.4"
    T$ = T$ + "                l3.4,3.9c2.8,1.1,5.8,3.1,5.8,3.1l-0.6-3.5L95.8,65z'/>"
    T$ = T$ + "            <path fill='#35956D' d='M72,79.6c0,0-7.9,1.4-6-2.1c0,0,3-4.9-3.7,0c0,0-8.5,8.4-12.8,8.4c0,0-9.8,1.4-12.2,4.9"
    T$ = T$ + "              c0,0,4.9,0.7,7.3-0.7c2.5-1.4,7.3-0.7,7.3-0.7s1.8,5.6,6.1-2.1l3.7-4.2c0,0,4.9,4.2,6.7,0C70.2,78.9,72,79.6,72,79.6z'/>"
    T$ = T$ + "            <path fill='#35956D' d='M86.1,80.3c0,0,0.5,8.7-2.2,6.1l-4.8-7.2c0,0-6.9,2-3.6,3.6l3.6,4.6l3.9,6.7c0,0,2.8,5.1,1.8-1.4"
    T$ = T$ + "                c-0.9-6.4,1.8-2.1,1.8-2.1l1.2,3.5l1.8-3.5c0,0,3.7,5.6,5.5,2.8c0,0,4.3,7,4.3,2.8l5.5,0.3l-9.8-6.6"
    T$ = T$ + "                C95.2,90.1,88.5,88.7,86.1,80.3z'/>"
    T$ = T$ + "            <path fill='#35956D' d='M71.4,95.4c0,0-4-1.6-5.4,0.6c-1.4,2.1-1,4.8-1,4.8l-3.4,4.8c0,0-2.9,2.2-2.4,4.3l1.9,0.5"
    T$ = T$ + "                c0,0-1.4,1.6-0.5,3.8c1,2.2,1.9-0.5,1.9-0.5l1.9,4.3c0,0,0.5-1.1,0.5-3.2c0-2.1,5.3,2.7,5.3,2.7s1-0.6-1.7-3.5"
    T$ = T$ + "                c-2.6-2.9,4.1,0.8,4.1,0.8s-0.5-4.3-2.2-4.2c-1.7,0.1,1.7-1.8,0.3-4.4l1-5.4L71.4,95.4z'/>"
    T$ = T$ + "            <path fill='#35956D' d='M85.5,142.3c0,0-6.1,0-7.3-5.6c0,0-1.8-5.6-2.4-2.1l-3.1-2.1c0,0-0.3-9.2,3.8-3.9"
    T$ = T$ + "                c4.1,5.3-0.7-1.7-0.7-1.7l5.5,3.5l-0.6-5.6l4.9,3.5l4.9,4.9l7.9,3.5c0,0,8.6,2.1,10.4,4.2c1.8,2.1-1.2,2.1-1.2,2.1l-4.9-1.4"
    T$ = T$ + "                c0,0-4.3-2.8-4.3-0.7l-0.8,6.6c0,0-3.5-2.5-4.7-6c0,0-4.3-7.6-4.3-3.5c0,4.2-3.1,0-3.1,0V142.3z'/>"
    T$ = T$ + "            <path fill='#35956D' d='M80.6,99.8c0,0-0.2,5.5,3.7,7.7c3.9,2.2,3.6-1.4,3.6-1.4l2.5,3.5l3,6.3c0,0,0.8,2.2,0.7-2.4l4.9,3.4"
    T$ = T$ + "                l3,3.8l-0.6-5.6l4.9,2.8c0,0-7.9-14.4-13.7-15.2c0,0-1.6,6.1-5.6,1.6c-3.9-4.5,0.3-1.7,0.3-1.7v-2.1l-2.4,0.7L80.6,99.8z'/>"
    T$ = T$ + "          <path fill='#35956D' d='M57.4,126.3c0,0-6.7-3.5-11-1.4l-14.6,7c0,0-6.7,2.8-9.2,4.9c-2.4,2.1-3.7,2.1,6.1-0.7l7,1.1l2.7-2.5"
    T$ = T$ + "                l1.3,5.2l3.5-6.6l3.7,0.7c0,0,2.4-0.7,1.8-4.2L57.4,126.3z'/>"
    T$ = T$ + "              <polygon fill='#35956D' points='53.1,105.4 54.9,106.1 58,99.1                  '/>"
    T$ = T$ + "              <path fill='#35956D' d='M46.4,107.5c0,0-12.8,2.8-15.3,6.3c-2.4,3.5,4.1,1.4,4.1,1.4l2.6,2.8h2.4v-4.2c0,0,2.4-2.1,6.1-2.1"
    T$ = T$ + "                  l1.8,2.8l2.4-3.5C50.7,111,58.7,101.3,46.4,107.5z'/>"
    T$ = T$ + "          <path fill='#35956D' d='M100.7,154.1l1.8,2.8c0,0,6.1,0,7.9,0.7c1.8,0.7,8.5,6.3,8.5,6.3l5.5,6.3c0,0,11,8.4,3.7,4.9"
    T$ = T$ + "              c-7.3-3.5-12.8-7.6-12.8-7.6l1.2,4.9l-3.7-1.4l-3,2.1c0,0-1.6-5-5.5-7c-3.9-2-1.8-0.7-1.8-0.7L91,163.2c0,0,9.4,4,12.4,6.5"
    T$ = T$ + "                l12.1,13c0,0,3.1,7.7-6.1-2.8l-5.5-2.1l0.6,3.5c0,0-3.7-7-9.2-6.3c0,0-11-6.3-12.8-9l0.6-4.9c0,0,0.6-3.4-4.3-3.1"
    T$ = T$ + "                c0,0,6.7-2.9,9.5,1.1l8.3,0.9c0,0,2.7-0.9,0.5-1.8c0,0-3.7-8.3-8.6-8.3c-4.9,0,3.7,0,7.9,2.1L100.7,154.1z'/>"
    T$ = T$ + "          <path fill='#35956D' d='M65.9,150.6c0,0-11.6,11.8-12.2,15.3l-5.5,4.2l4.3,3.5l7.9-7.7c0,0-3-7,0.6-8.4"
    T$ = T$ + "              C64.7,156.2,68.4,160.4,65.9,150.6z'/>"
    T$ = T$ + "          <path fill='#35956D' d='M42.1,172.9c0,0,10.4-0.7,12.2,2.1c1.8,2.8-4.9,0.7-9.2,2.8c-4.3,2.1-4.3,6.3-4.3,8.3"
    T$ = T$ + "                c0,2.1,0.9,8.7-1.4,3.7c0,0-2.3-0.2-3.5,1.9c-1.2,2.1-2.3-2.6-3.1,0.7c0,0,0.2-9.6,4.1-12.1L42.1,172.9z'/>"
    T$ = T$ + "          <path fill='#35956D' d='M72,163.2c0,0-10.4,6.3-11.6,9.7c0,0-0.6,5.6-2.4,5.6c-1.8,0-6.3-1.9-8.6,2.9l-1.8,18"
    T$ = T$ + "              c0,0,2.2,0.6,3.1-2.8c0.9-3.5,5.6-3.8,5.6-3.8l1.7,2.4l1.2-4.9l3.6,3.5l1.3-10.5c0,0,1.2-2.8,3-3.5c1.8-0.7,1.8-7.7,1.8-7.7"
    T$ = T$ + "              S76.3,169.4,72,163.2z'/>"
    T$ = T$ + "          <path fill='#35956D' d='M78.8,163.9l14.6,23l4.3,12.5c0,0-3.1,0-5.5-5.6c-2.4-5.6-0.6,4.9-3.7-2.1l-4.3-3.5"
    T$ = T$ + "              c0,0-4.3-3.5-5.5-11.1l-3.1-0.7C75.7,176.4,73.9,154.1,78.8,163.9z'/>"
    T$ = T$ + "          <path fill='#35956D' d='M64.7,133.2c0,0-11.6-1.4-18.3,4.9c-6.7,6.3-22,18.8-22,18.8L14,168.7l11-7l-2.3,3.5l6.6-6.3l6.1-0.7"
    T$ = T$ + "              l4.3-6.3c0,0,3.7-2.1,4.9,0.7c0,0,5.5,0,3.1-6.3l7.9-3.5C55.5,143,72,140.2,64.7,133.2z'/>"
    T$ = T$ + "      <polygon fill='#FBB03B' stroke='#F15A24' stroke-miterlimit='10' points='70.7,32.4 60,40.2 64.2,27.7 53.4,19.7 66.7,20.1"
    T$ = T$ + "          70.7,7.1 74.7,20.1 88.1,19.7 77.2,27.7 81.5,40.2            '/>"
    T$ = T$ + "    <polygon fill='#F7931E' points='70.7,9.3 67.4,20.3 69.7,25.6            '/>"
    T$ = T$ + "      <polygon fill='#F7931E' points='54.3,20.1 63.7,26.6 69.5,26.1          '/>"
    T$ = T$ + "      <polygon fill='#F7931E' points='60.7,39.1 69.8,32.2 71.1,26.6          '/>"
    T$ = T$ + "      <polygon fill='#F7931E' points='80.8,39.3 77,28.5 72,25.5          '/>"
    T$ = T$ + "      <polygon fill='#F7931E' points='86.7,20.2 75.2,20.5 70.9,24.3          '/>"
    T$ = T$ + "  <circle fill='#FBB03B' stroke='#F15A24' stroke-miterlimit='10' cx='70.7' cy='24.7' r='3'/>"
    T$ = T$ + "    <circle fill='#FBB03B' stroke='#F15A24' stroke-miterlimit='10' cx='52.1' cy='19.1' r='2.5'/>"
    T$ = T$ + "    <circle fill='#FBB03B' stroke='#F15A24' stroke-miterlimit='10' cx='82.2' cy='40.6' r='2.5'/>"
    T$ = T$ + "    <circle fill='#FBB03B' stroke='#F15A24' stroke-miterlimit='10' cx='70.5' cy='5.8' r='2.5'/>"
    T$ = T$ + "    <circle fill='#FBB03B' stroke='#F15A24' stroke-miterlimit='10' cx='59.7' cy='40.5' r='2.5'/>"
    T$ = T$ + "    <circle fill='#FBB03B' stroke='#F15A24' stroke-miterlimit='10' cx='88.5' cy='19.1' r='2.5'/>"
    T$ = T$ + "          <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M90.8,71.5c-0.2-1,0.3-2,1.1-2.2"
    T$ = T$ + "            c0.8-0.3,1.8,0.2,2.2,1.2c0.4,0.9,0,2.1-1.1,2.4C92,73.2,91,72.5,90.8,71.5z'/>"
    T$ = T$ + "        <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M77.3,72.2c0-1,0.8-1.9,1.7-1.9"
    T$ = T$ + "            c1,0,1.8,0.8,1.8,1.9c0,1-0.8,1.9-1.7,1.9C78.1,74.1,77.3,73.3,77.3,72.2z'/>"
    T$ = T$ + "      <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M63.9,70.8c0.3-1,1.2-1.6,2.1-1.4"
    T$ = T$ + "            c0.9,0.2,1.5,1.1,1.3,2.2c-0.2,1-1.1,1.7-2.1,1.5C64.2,72.8,63.7,71.8,63.9,70.8z'/>"
    T$ = T$ + "      <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M52.2,64.4c0.7-0.7,1.8-0.8,2.5-0.3"
    T$ = T$ + "          c0.7,0.6,0.8,1.7,0.2,2.5c-0.6,0.9-1.8,1.1-2.6,0.4C51.5,66.3,51.5,65.1,52.2,64.4z'/>"
    T$ = T$ + "      <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M101.7,98.2c-0.2-1,0.5-2,1.5-2.3"
    T$ = T$ + "              c1-0.3,2.1,0.3,2.5,1.3c0.3,1-0.4,2.1-1.5,2.4C103,99.8,101.9,99.2,101.7,98.2z'/>"
    T$ = T$ + "        <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M86.1,100c0-1,0.9-1.9,2-2"
    T$ = T$ + "            c1.1-0.1,2.1,0.7,2.1,1.8c0.1,1-0.8,1.9-2,2C87,101.9,86.1,101.1,86.1,100z'/>"
    T$ = T$ + "      <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M70.3,99.5c0.1-1,1.1-1.8,2.2-1.7"
    T$ = T$ + "          c1.1,0.1,2,1,1.9,2c-0.1,1-1,1.8-2.2,1.7C71,101.4,70.2,100.5,70.3,99.5z'/>"
    T$ = T$ + "      <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M54.8,96.7c0.4-1,1.4-1.5,2.5-1.2"
    T$ = T$ + "            c1,0.3,1.7,1.3,1.5,2.3c-0.2,1-1.4,1.6-2.5,1.3C55.1,98.8,54.4,97.7,54.8,96.7z'/>"
    T$ = T$ + "      <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M40.9,89.3c0.6-0.8,1.8-1,2.7-0.4"
    T$ = T$ + "          c0.9,0.6,1.2,1.8,0.6,2.7c-0.6,0.9-1.8,1.1-2.8,0.4C40.6,91.3,40.3,90.1,40.9,89.3z'/>"
    T$ = T$ + "    <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M111,126.2c-0.3-1,0.1-2,0.9-2.4"
    T$ = T$ + "        c0.8-0.3,1.8,0,2.4,1c0.5,0.9,0.1,2.1-0.8,2.5C112.5,127.7,111.4,127.2,111,126.2z'/>"
    T$ = T$ + "      <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M97.6,128.6c0-1,0.7-1.9,1.6-2"
    T$ = T$ + "        c1-0.1,1.8,0.7,1.9,1.7c0.1,1-0.6,2-1.6,2C98.5,130.4,97.6,129.6,97.6,128.6z'/>"
    T$ = T$ + "    <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M83.9,128.7c0-1,0.8-1.9,1.8-1.8"
    T$ = T$ + "          c1,0,1.7,0.9,1.7,1.9c0,1-0.8,1.9-1.8,1.9C84.6,130.6,83.8,129.7,83.9,128.7z'/>"
    T$ = T$ + "    <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M70.2,127.6c0.1-1,1-1.8,2-1.7"
    T$ = T$ + "            c1,0.1,1.7,1,1.5,2.1c-0.1,1-1,1.8-2,1.7C70.8,129.6,70.1,128.7,70.2,127.6z'/>"
    T$ = T$ + "      <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M56.8,125c0.3-1,1.2-1.6,2.2-1.4"
    T$ = T$ + "            c0.9,0.2,1.5,1.2,1.3,2.2c-0.2,1-1.2,1.7-2.2,1.4C57.1,127,56.5,126,56.8,125z'/>"
    T$ = T$ + "        <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M43.9,120.3c0.4-1,1.5-1.4,2.4-1"
    T$ = T$ + "            c0.9,0.4,1.3,1.5,0.9,2.4c-0.4,1-1.5,1.4-2.4,1C43.8,122.4,43.5,121.3,43.9,120.3z'/>"
    T$ = T$ + "    <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M32,113.5c0.6-0.8,1.7-1.1,2.5-0.5"
    T$ = T$ + "        c0.8,0.5,1,1.7,0.4,2.5c-0.6,0.9-1.7,1.1-2.5,0.6C31.6,115.5,31.4,114.3,32,113.5z'/>"
    T$ = T$ + "  <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M121.4,154.4c0.1-1,1-1.8,1.9-1.7"
    T$ = T$ + "    c1,0.1,1.7,0.9,1.7,2c0,1-0.9,1.9-1.9,1.8C122,156.3,121.3,155.4,121.4,154.4z'/>"
    T$ = T$ + "  <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M107.6,152.9c0.1-1,1-1.8,2-1.7"
    T$ = T$ + "  c1,0.1,1.7,1,1.6,2.1c-0.1,1-1,1.8-2,1.7C108.2,154.8,107.4,153.9,107.6,152.9z'/>"
    T$ = T$ + " <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M93.8,151.3c0.1-1,1-1.8,2-1.7"
    T$ = T$ + "  c1,0.1,1.7,1,1.6,2.1c-0.1,1-1,1.8-2,1.7C94.4,153.2,93.6,152.3,93.8,151.3z'/>"
    T$ = T$ + " <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M80,149.7c0.1-1,1-1.8,2-1.7"
    T$ = T$ + " c1,0.1,1.7,1,1.6,2.1c-0.1,1-1,1.8-2,1.7C80.6,151.6,79.9,150.7,80,149.7z'/>"
    T$ = T$ + "  <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M66.2,147.9c0.2-1,1.1-1.7,2.1-1.6"
    T$ = T$ + "    c1,0.1,1.7,1.1,1.5,2.1c-0.1,1-1.1,1.8-2.1,1.6C66.7,149.9,66,148.9,66.2,147.9z'/>"
    T$ = T$ + "  <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M52.6,145c0.3-1,1.3-1.6,2.2-1.3"
    T$ = T$ + "    c0.9,0.2,1.5,1.3,1.3,2.3c-0.2,1-1.2,1.6-2.2,1.4C52.9,147,52.3,146,52.6,145z'/>"
    T$ = T$ + "  <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M39.7,139.9c0.5-0.9,1.6-1.3,2.4-0.9"
    T$ = T$ + "  c0.9,0.4,1.2,1.5,0.8,2.5c-0.4,1-1.5,1.4-2.5,0.9C39.6,142,39.2,140.8,39.7,139.9z'/>"
    T$ = T$ + "  <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M28.4,131.9c0.7-0.7,1.9-0.8,2.6-0.2"
    T$ = T$ + "          c0.7,0.6,0.8,1.8,0.1,2.6c-0.6,0.8-1.8,1-2.6,0.3C27.7,133.9,27.7,132.7,28.4,131.9z'/>"
    T$ = T$ + "        <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M118,175.6c0-1,0.8-1.9,1.8-1.9"
    T$ = T$ + "            c1,0,1.7,0.8,1.8,1.9c0,1-0.8,1.9-1.8,1.9C118.8,177.5,118,176.7,118,175.6z'/>"
    T$ = T$ + "      <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M104.3,175.3c0-1,0.8-1.9,1.8-1.8"
    T$ = T$ + "          c1,0,1.8,0.9,1.7,1.9c0,1-0.8,1.9-1.8,1.8C105,177.2,104.3,176.3,104.3,175.3z'/>"
    T$ = T$ + "      <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M90.5,174.9c0-1,0.8-1.9,1.8-1.8"
    T$ = T$ + "        c1,0,1.8,0.9,1.7,1.9c0,1-0.8,1.9-1.8,1.8C91.3,176.8,90.5,175.9,90.5,174.9z'/>"
    T$ = T$ + "      <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M76.8,174.4c0-1,0.9-1.8,1.9-1.8"
    T$ = T$ + "            c1,0,1.7,0.9,1.7,1.9c0,1-0.9,1.9-1.9,1.8C77.5,176.4,76.8,175.5,76.8,174.4z'/>"
    T$ = T$ + "    <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M63.1,173.5c0.1-1,1-1.8,1.9-1.7"
    T$ = T$ + "        c1,0.1,1.7,1,1.6,2c-0.1,1-0.9,1.8-1.9,1.7C63.7,175.5,63,174.6,63.1,173.5z'/>"
    T$ = T$ + "      <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M49.5,171.7c0.2-1,1.1-1.7,2.1-1.5"
    T$ = T$ + "            c1,0.2,1.6,1.1,1.4,2.1c-0.2,1-1.1,1.7-2.1,1.6C49.9,173.7,49.3,172.7,49.5,171.7z'/>"
    T$ = T$ + "      <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M36.1,168.4c0.3-1,1.3-1.6,2.2-1.3"
    T$ = T$ + "          c0.9,0.3,1.5,1.3,1.2,2.3c-0.3,1-1.3,1.6-2.3,1.3C36.3,170.4,35.8,169.4,36.1,168.4z'/>"
    T$ = T$ + "    <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M23.4,163.2c0.5-0.9,1.6-1.3,2.4-0.9"
    T$ = T$ + "          c0.9,0.4,1.2,1.5,0.8,2.4c-0.4,1-1.5,1.4-2.4,1C23.3,165.3,22.9,164.1,23.4,163.2z'/>"
    T$ = T$ + "  <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M112,192.9c-0.5-0.9-0.3-2,0.5-2.6"
    T$ = T$ + "      c0.8-0.5,2-0.4,2.6,0.5c0.6,0.8,0.4,2-0.5,2.6C113.7,194,112.5,193.8,112,192.9z'/>"
    T$ = T$ + "    <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M98.3,194.7c0.3-1,1.3-1.6,2.2-1.4"
    T$ = T$ + "    c0.9,0.2,1.5,1.1,1.4,2.2c-0.1,1-1.1,1.8-2.3,1.5C98.6,196.8,98,195.7,98.3,194.7z'/>"
    T$ = T$ + "  <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M85.9,187.6c0.6-0.8,1.8-1,2.6-0.3"
    T$ = T$ + "    c0.8,0.6,0.9,1.8,0.3,2.6c-0.6,0.9-1.8,1-2.6,0.3C85.4,189.6,85.3,188.4,85.9,187.6z'/>"
    T$ = T$ + " <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M72.5,185.7c-0.5-0.9,0-2.1,1.1-2.5"
    T$ = T$ + "  c1.2-0.4,2.3,0.3,2.4,1.4c0.1,1-0.4,2-1.2,2.2C74,187,73,186.6,72.5,185.7z'/>"
    T$ = T$ + "  <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M61.5,194.8c-0.6-0.9-0.4-2,0.4-2.6"
    T$ = T$ + "                c0.8-0.6,1.9-0.4,2.6,0.4c0.7,0.8,0.5,2-0.3,2.7C63.2,195.9,62.1,195.7,61.5,194.8z'/>"
    T$ = T$ + "            <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M48.6,201c-0.3-1,0.2-2,1.1-2.4"
    T$ = T$ + "              c0.9-0.3,2,0.1,2.4,1.1c0.4,1-0.1,2.1-1.1,2.4C50,202.6,48.9,202,48.6,201z'/>"
    T$ = T$ + "          <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M34.4,202.3c0.2-1,1.1-1.7,2-1.6"
    T$ = T$ + "              c0.9,0.1,1.7,1,1.7,2c0,1.1-0.9,1.9-2,1.7C35,204.3,34.3,203.4,34.4,202.3z'/>"
    T$ = T$ + "        <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M20.8,198c0.4-1,1.5-1.4,2.4-1"
    T$ = T$ + "            c0.9,0.4,1.4,1.5,1,2.4c-0.4,1-1.5,1.4-2.4,1C20.8,200.1,20.3,199,20.8,198z'/>"
    T$ = T$ + "        <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M72.5,85.3c-0.4-1,0.2-2.1,1.3-2.7"
    T$ = T$ + "            c1.1-0.5,2.3-0.4,2.9,0.5c0.6,0.9,0.1,2.2-1.2,2.8C74.2,86.7,72.8,86.3,72.5,85.3z'/>"
    T$ = T$ + "          <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M54.6,87c0.1-1,1.2-1.8,2.5-1.7"
    T$ = T$ + "        c1.3,0.1,2.2,1,2.2,2c0,1-1.2,1.8-2.5,1.7C55.5,88.9,54.5,88,54.6,87z'/>"
    T$ = T$ + "          <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M90.8,112c-0.4-1,0.1-2.1,0.9-2.4"
    T$ = T$ + "            c0.9-0.4,1.9,0.1,2.4,1c0.5,0.9,0.1,2-0.9,2.5C92.3,113.4,91.2,113,90.8,112z'/>"
    T$ = T$ + "  <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M77.3,115.1c-0.1-1,0.6-2,1.5-2.1"
    T$ = T$ + "          c1-0.1,1.9,0.6,2,1.6c0.2,1-0.5,2-1.5,2.1C78.3,116.9,77.4,116.1,77.3,115.1z'/>"
    T$ = T$ + "      <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M63.4,115.2c0.1-1,0.9-1.8,1.9-1.8"
    T$ = T$ + "          c1,0,1.7,0.9,1.7,2c0,1-0.9,1.8-1.9,1.8C64,117.1,63.3,116.2,63.4,115.2z'/>"
    T$ = T$ + "    <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M49.5,113.5c0.2-1,1.1-1.7,2.1-1.6"
    T$ = T$ + "      c1,0.1,1.7,1.1,1.5,2.1c-0.1,1-1.1,1.7-2.1,1.6C50,115.5,49.4,114.5,49.5,113.5z'/>"
    T$ = T$ + "      <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M88.1,139c-0.2-1,0.4-2,1.2-2.2"
    T$ = T$ + "          c0.8-0.2,1.8,0.3,2.1,1.3c0.4,1-0.2,2.1-1.2,2.3C89.2,140.7,88.3,140,88.1,139z'/>"
    T$ = T$ + "    <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M74.9,139.6c0-1,0.8-1.9,1.7-1.9"
    T$ = T$ + "      c0.9,0,1.7,0.9,1.7,1.9c0,1-0.8,1.9-1.7,1.9C75.6,141.5,74.9,140.7,74.9,139.6z'/>"
    T$ = T$ + "    <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M61.7,138.8c0.1-1,1-1.8,1.9-1.7"
    T$ = T$ + "        c0.9,0.1,1.6,1,1.5,2c-0.1,1-0.9,1.8-1.9,1.7C62.3,140.8,61.6,139.8,61.7,138.8z'/>"
    T$ = T$ + "          <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M48.7,136.4c0.3-1,1.2-1.6,2.1-1.4"
    T$ = T$ + "              c0.9,0.2,1.4,1.2,1.2,2.2c-0.2,1-1.2,1.7-2.1,1.4C49,138.4,48.4,137.4,48.7,136.4z'/>"
    T$ = T$ + "          <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M85.7,161.1c-0.3-1,0.2-2.1,1.2-2.4"
    T$ = T$ + "            c1-0.4,2.1,0.1,2.5,1c0.4,1-0.1,2.1-1.2,2.5C87.2,162.6,86,162.1,85.7,161.1z'/>"
    T$ = T$ + "        <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M70.9,164.6c-0.1-1,0.6-2,1.6-2.1"
    T$ = T$ + "            c1-0.2,2,0.5,2.2,1.5c0.2,1-0.5,2-1.6,2.2C72.1,166.3,71.1,165.6,70.9,164.6z'/>"
    T$ = T$ + "          <path fill='#FF0000' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M55.8,165.4c0-1,0.9-1.9,2-1.8"
    T$ = T$ + "              c1.1,0,1.9,0.8,2,1.9c0,1-0.9,1.9-2,1.9C56.6,167.3,55.8,166.4,55.8,165.4z'/>"
    T$ = T$ + "        <path fill='#FFFF00' stroke='#F15A24' stroke-width='0.25' stroke-miterlimit='10' d='M40.7,163.9c0.2-1,1.2-1.7,2.2-1.5"
    T$ = T$ + "              c1.1,0.1,1.8,1.1,1.7,2.1c-0.1,1-1.1,1.8-2.2,1.6C41.3,165.9,40.5,164.9,40.7,163.9z'/>"
    T$ = T$ + " </g>"
    svg_tree$ = T$
End Function
Function do_jingle$
    'returns text for jingle bells
    jingle$ = "    MB  O3 T200                                          "
    jingle$ = jingle$ + "  E E EP50E E E P50E G C D EP24                  "
    jingle$ = jingle$ + "  F F FP60F F F P60E E P60E E EP60D DP60E DP50GP24"
    jingle$ = jingle$ + "  E E EP50E E E P50E G C D EP24                  "
    jingle$ = jingle$ + "  F F FP60F F FP60E EP60E E GP60G F D CP24        "
    jingle$ = jingle$ + " < G EP50D C GP12  G G GP60E D C AP12              "
    jingle$ = jingle$ + "  A FP50E D B P12 G GP60F D EP12                  "
    jingle$ = jingle$ + "  G EP50D C GP12  G G GP60E D C AP12              "
    jingle$ = jingle$ + " > A FP50E DP60G G GP60G GP60A GP60F D CP50GP24    "
    jingle$ = jingle$ + "  E E EP50E E EP50E G C D EP24                    "
    jingle$ = jingle$ + "  F F FP60F F FP60E EP60E E EP60D DP60E DP50GP24  "
    jingle$ = jingle$ + "  E E EP50E E EP50E G C D EP24                    "
    jingle$ = jingle$ + "  F F FP60F F FP60E EP60E E GP60G F D CP24        "
    jingle$ = jingle$ + "        "
    jingle$ = jingle$ + "        "
    jingle$ = jingle$ + "  E E EP50E E E P50E G C D EP24                  "
    jingle$ = jingle$ + "  F F FP60F F F P60E E P60E E EP60D DP60E DP50GP24"
    jingle$ = jingle$ + "  E E EP50E E E P50E G C D EP24                  "
    jingle$ = jingle$ + "  F F FP60F F FP60E EP60E E GP60G F D CP24        "
    jingle$ = jingle$ + " < G EP50D C GP12  G G GP60E D C AP12              "
    jingle$ = jingle$ + "  A FP50E D B P12 G GP60F D EP12                  "
    jingle$ = jingle$ + "  G EP50D C GP12  G G GP60E D C AP12              "
    jingle$ = jingle$ + " > A FP50E DP60G G GP60G GP60A GP60F D CP50GP24    "
    jingle$ = jingle$ + "  E E EP50E E EP50E G C D EP24                    "
    jingle$ = jingle$ + "  F F FP60F F FP60E EP60E E EP60D DP60E DP50GP24  "
    jingle$ = jingle$ + "  E E EP50E E EP50E G C D EP24                    "
    jingle$ = jingle$ + "  F F FP60F F FP60E EP60E E GP60G F D CP24        "
    jingle$ = jingle$ + "        "
    jingle$ = jingle$ + "        "

    do_jingle$ = jingle$
End Function
Reply


Messages In This Thread
SVG Christams Tree - by James D Jarvis - 12-09-2024, 07:45 PM
RE: SVG Christams Tree - by Petr - 12-09-2024, 08:07 PM
RE: SVG Christams Tree - by James D Jarvis - 12-09-2024, 09:20 PM



Users browsing this thread: 2 Guest(s)