#!/usr/local/bin/perl

use strict;
use Tk;
use Tk::Canvas;
my $mw=MainWindow->new();


my $c=$mw->Canvas(-width=>949,-height=>404)->pack;


# Red Flower 
$c->configure(-background=>'lightblue');
my $cnv_Splash_1 = $c->create('polygon',834.72,184.45,839.48,255.01,880.34,210.98,-fill,'DarkViolet',-outline,'Black',-smooth,1.00);
my $cnv_Splash_2 = $c->create('polygon',859.00,250.00,887.50,265.50,923.75,248.25,949.00,367.00,904.88,360.13,892.75,295.25,895.63,358.38,850.50,361.50,857.00,277.00,-fill,'NavyBlue',-outline,'gray50',-smooth,1.00);
my $cnv_Splash_3 = $c->create('polygon',845.23,189.58,854.97,233.25,840.75,318.59,893.58,318.30,945.98,319.72,926.98,235.25,937.20,181.04,-fill,'DarkViolet',-outline,'Black',-smooth,1.00);
my $cnv_Splash_4 = $c->create('polygon',411.00,57.00,445.00,101.00,414.00,136.00,-fill,'White',-outline,'Black',-smooth,1.00);
my $cnv_Curve_5 = $c->create('line',271.00,266.00,289.00,239.00,255.00,206.00,242.00,171.00,-smooth,1.00);
my $cnv_Curve_6 = $c->create('line',252.00,274.00,262.00,248.00,237.00,221.00,234.00,187.00,-smooth,1.00);
my $cnv_Curve_7 = $c->create('line',214.00,191.00,201.00,215.00,236.00,248.00,224.00,277.00,-smooth,1.00);
my $cnv_Splash_8 = $c->create('polygon',498.00,164.00,525.00,164.50,525.00,177.75,551.33,179.04,559.50,188.35,571.67,207.33,582.50,217.21,568.66,225.75,551.41,205.35,548.49,199.29,542.57,245.89,545.66,277.16,489.31,281.31,488.63,251.63,483.92,201.25,479.87,215.38,479.19,228.77,465.17,230.83,461.58,214.58,467.67,183.33,501.00,175.00,-fill,'Red',-outline,'Black',-smooth,1.00);
my $cnv_Curve_9 = $c->create('line',524.00,227.50,526.00,243.50,512.00,239.50,-arrow,'none',-width,2.00,-smooth,1.00);
my $cnv_Line_10 = $c->create('line',633.00,228.00,628.00,164.00,-arrow,'none',-fill,'DarkGreen',-width,3.00);
my $cnv_Splash_11 = $c->create('polygon',784.00,271.00,724.00,216.00,765.00,202.00,-fill,'Cyan',-outline,'Black',-smooth,1.00);
my $cnv_Splash_12 = $c->create('polygon',658.00,272.00,718.00,217.00,677.00,203.00,-fill,'Cyan',-outline,'Black',-smooth,1.00);
my $cnv_Polygon_13 = $c->create('polygon',136.00,346.00,154.00,345.50,177.00,366.00,138.00,364.00);
my $cnv_Polygon_14 = $c->create('polygon',97.00,345.00,115.00,344.50,138.00,365.00,99.00,363.00);
my $cnv_Polygon_15 = $c->create('polygon',178.00,219.00,190.50,219.50,196.75,248.75,238.00,251.00,230.00,265.00,186.00,261.00,-fill,'wheat2',-outline,'Black');
my $cnv_Polygon_16 = $c->create('polygon',109.00,266.00,152.00,267.00,165.50,350.50,72.00,346.00,-fill,'gray50',-outline,'Black');
my $cnv_Polygon_17 = $c->create('polygon',136.00,165.00,148.50,165.50,149.00,186.00,137.00,188.00,-fill,'wheat2',-outline,'Black');
my $cnv_Polygon_18 = $c->create('polygon',883.35,161.00,897.10,161.50,897.65,182.00,884.45,184.00,-fill,'wheat2',-outline,'Black');
my $cnv_Polygon_19 = $c->create('polygon',714.00,191.00,726.50,191.50,727.00,212.00,715.00,214.00,-fill,'wheat2',-outline,'Black');
my $cnv_Splash_20 = $c->create('polygon',123.00,126.00,164.00,125.50,160.00,171.00,127.00,173.00,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_Polygon_21 = $c->create('polygon',338.00,222.00,347.50,210.50,357.00,225.00,368.50,253.00,374.00,303.00,375.72,341.66,363.44,346.31,354.88,304.63,344.75,307.25,337.50,339.50,327.00,334.00,334.00,301.00,345.00,262.50,-fill,'Brown');
my $cnv_Splash_22 = $c->create('polygon',700.00,148.00,741.00,147.50,737.00,193.00,704.00,195.00,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_Splash_23 = $c->create('polygon',870.00,130.00,911.00,129.50,907.00,175.00,874.00,177.00,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_PolyLine_24 = $c->create('line',722.50,167.00,727.00,164.50,732.50,168.00);
my $cnv_PolyLine_25 = $c->create('line',706.00,165.50,710.50,163.00,716.00,166.50);
my $cnv_Splash_26 = $c->create('polygon',774.00,243.00,747.50,142.00,712.00,133.00,698.00,159.00,739.50,154.00,753.25,202.00,-fill,'Brown',-smooth,1.00);
my $cnv_PolyLine_27 = $c->create('line',895.50,147.00,900.00,144.50,905.50,148.00);
my $cnv_PolyLine_28 = $c->create('line',877.00,148.50,881.50,146.00,887.00,149.50);
my $cnv_Splash_29 = $c->create('polygon',693.00,203.00,748.50,203.00,748.00,286.00,691.00,287.00,-fill,'Cyan',-outline,'Black',-smooth,1.00);
my $cnv_Splash_30 = $c->create('polygon',335.00,169.00,366.00,173.50,371.00,216.00,322.00,214.00,-fill,'orange',-outline,'Brown',-smooth,1.00);
my $cnv_Oval_31 = $c->create('oval',334.00,182.00,345.00,202.00,-fill,'White',-outline,'Black');
my $cnv_Oval_32 = $c->create('oval',349.00,184.00,360.00,204.00,-fill,'White',-outline,'Black');
my $cnv_Circle_33 = $c->create('oval',335.00,190.00,344.00,199.00,-fill,'Red',-width,3.00,-outline,'Black');
my $cnv_Circle_34 = $c->create('oval',350.00,191.00,359.00,200.00,-fill,'Red',-width,3.00,-outline,'Black');
my $cnv_PolyLine_35 = $c->create('line',355.00,228.00,384.00,236.00,422.00,262.00,-arrow,'none',-fill,'Brown',-width,5.00);
my $cnv_PolyLine_36 = $c->create('line',344.00,230.00,315.00,238.00,293.50,229.50,265.00,229.00,-arrow,'none',-fill,'Brown',-width,5.00);
my $cnv_PolyLine_37 = $c->create('line',151.50,140.00,156.00,137.50,161.50,141.00);
my $cnv_PolyLine_38 = $c->create('line',134.00,143.50,138.50,141.00,144.00,144.50);
my $cnv_Polygon_39 = $c->create('polygon',141.50,117.50,162.00,131.00,137.00,136.00,126.50,146.75,121.50,171.50,118.25,149.25,126.50,128.00,129.00,126.00,-fill,'purple3',-outline,'Black');
my $cnv_Polygon_40 = $c->create('polygon',99.00,72.00,138.00,115.00,164.00,131.00,124.00,136.00,118.50,112.50);
my $cnv_Splash_41 = $c->create('polygon',394.33,117.00,430.00,118.50,454.67,116.00,434.00,139.00,392.00,144.00,379.00,97.67,397.00,96.33,-fill,'White',-outline,'Black',-smooth,1.00);
my $cnv_Polygon_42 = $c->create('polygon',384.50,104.50,385.50,110.00,373.00,107.00,-fill,'Red');
my $cnv_Splash_43 = $c->create('polygon',402.00,61.00,436.00,105.00,405.00,140.00,-fill,'White',-outline,'Black',-smooth,1.00);
my $cnv_Polygon_44 = $c->create('polygon',129.00,183.00,156.50,185.00,192.25,204.00,193.13,226.00,173.56,222.00,157.78,233.00,151.00,274.00,107.00,272.00,104.00,252.00,91.25,218.25,94.50,191.50,-fill,'gray50',-outline,'Black');
my $cnv_Polygon_45 = $c->create('polygon',94.00,211.00,106.50,211.50,112.75,240.75,132.00,292.00,121.00,298.00,102.00,253.00,-fill,'wheat2',-outline,'Black');
my $cnv_Chord_46 = $c->create('arc',195.00,236.00,293.00,354.00,-start,171.00,-fill,'Black',-outline,'gray50',-extent,198.00,-style,'chord');
my $cnv_Line_47 = $c->create('line',264.00,325.00,290.00,384.00,-arrow,'none',-width,2.00);
my $cnv_Line_48 = $c->create('line',228.00,320.00,205.00,384.00,-arrow,'none',-width,2.00);
my $cnv_Splash_49 = $c->create('polygon',226.00,313.00,238.00,386.00,239.00,295.00,257.25,363.25,269.38,324.38,277.50,388.50,206.00,392.00,-fill,'Red',-width,3.00,-outline,'orange',-smooth,1.00,-splinesteps,3.00);
my $cnv_Line_50 = $c->create('line',411.00,140.00,418.00,149.00);
my $cnv_Polygon_51 = $c->create('polygon',704.00,206.00,713.00,202.00,707.50,241.00,700.00,245.00,-fill,'Blue');
my $cnv_Polygon_52 = $c->create('polygon',734.52,205.28,725.90,200.52,727.98,239.85,735.10,244.48,-fill,'Blue');
my $cnv_Splash_53 = $c->create('polygon',690.00,227.00,752.00,225.00,753.00,288.50,794.75,395.13,746.63,385.94,732.10,395.89,710.57,387.85,665.50,399.75,686.00,277.00,-fill,'Blue',-smooth,1.00);
my $cnv_Polygon_54 = $c->create('polygon',706.00,112.00,710.00,144.00,734.00,146.00,745.00,117.00,-fill,'Cyan',-outline,'White');
my $cnv_Oval_55 = $c->create('oval',877.50,149.50,885.50,154.00,-fill,'White',-outline,'Black');
my $cnv_Oval_56 = $c->create('oval',895.50,148.50,903.50,153.00,-fill,'White',-outline,'Black');
my $cnv_Oval_57 = $c->create('oval',706.50,167.50,714.50,172.00,-fill,'White',-outline,'Black');
my $cnv_Oval_58 = $c->create('oval',722.50,168.50,730.50,173.00,-fill,'White',-outline,'Black');
my $cnv_Circle_59 = $c->create('oval',135.50,144.50,142.50,151.50,-fill,'Red',-outline,'Black',-width,3.00);
my $cnv_Circle_60 = $c->create('oval',153.50,142.00,160.50,149.00,-fill,'Red',-outline,'Black',-width,3.00);
my $cnv_Polygon_61 = $c->create('polygon',171.02,151.06,175.84,172.44,164.09,159.16,151.49,159.73,148.00,148.15,-fill,'wheat2',-outline,'Black');
my $cnv_Circle_62 = $c->create('oval',386.50,100.00,391.50,105.00,-fill,'gray75',-outline,'Black');
my $cnv_Curve_63 = $c->create('line',719.52,169.24,708.64,183.12,721.02,182.40,-smooth,1.00);
my $cnv_Line_64 = $c->create('line',517.00,176.00,518.00,166.00);
my $cnv_Curve_65 = $c->create('line',525.00,175.50,513.00,178.00,498.00,175.00,-smooth,1.00);
my $cnv_Splash_66 = $c->create('polygon',487.00,240.00,515.50,255.50,551.75,238.25,577.00,357.00,532.88,350.13,520.75,285.25,523.63,348.38,478.50,351.50,485.00,267.00,-fill,'NavyBlue',-outline,'gray50',-smooth,1.00);
my $cnv_Splash_67 = $c->create('polygon',473.00,388.00,504.25,391.50,519.50,380.00,514.00,337.00,488.00,332.00,499.50,369.00,-smooth,1.00);
my $cnv_Splash_68 = $c->create('polygon',544.00,394.00,573.25,393.50,568.50,379.00,563.00,336.00,537.00,331.00,548.50,368.00,-smooth,1.00);
my $cnv_Oval_69 = $c->create('oval',614.00,154.00,640.00,165.00,-fill,'Red',-width,2.00,-outline,'pink');
my $cnv_Splash_70 = $c->create('polygon',620.00,159.00,615.00,182.00,590.00,186.00,-fill,'Red',-width,2.00,-outline,'pink',-smooth,1.00);
my $cnv_Splash_71 = $c->create('polygon',635.92,157.57,634.80,181.08,657.91,191.41,-fill,'Red',-outline,'pink',-width,2.00,-smooth,1.00);
my $cnv_Splash_72 = $c->create('polygon',666.23,182.70,659.24,160.23,633.99,158.42,-fill,'Red',-outline,'pink',-width,2.00,-smooth,1.00);
my $cnv_Splash_73 = $c->create('polygon',584.23,178.40,594.27,157.11,619.53,158.84,-fill,'Red',-outline,'pink',-width,2.00,-smooth,1.00);
my $cnv_Splash_74 = $c->create('polygon',623.14,197.77,615.19,175.62,634.27,158.98,-fill,'Red',-width,2.00,-outline,'pink',-smooth,1.00);
my $cnv_Line_75 = $c->create('line',601.00,137.00,614.00,149.00,-arrow,'none',-fill,'Red',-width,2.00);
my $cnv_Line_76 = $c->create('line',655.00,136.00,642.00,148.00,-arrow,'none',-fill,'Red',-width,2.00);
my $cnv_Line_77 = $c->create('line',620.00,130.00,626.00,145.00,-arrow,'none',-fill,'Red',-width,2.00);
my $cnv_Line_78 = $c->create('line',639.00,130.00,633.00,147.00,-arrow,'none',-fill,'Red',-width,2.00);
my $cnv_Splash_79 = $c->create('polygon',516.00,218.00,508.50,261.00,514.50,272.00,490.50,268.00,499.50,259.50,-fill,'Yellow',-outline,'gray50',-smooth,1.00);
my $cnv_Splash_80 = $c->create('polygon',511.50,222.00,545.00,222.00,540.25,232.25,520.50,229.50,510.00,236.00,-smooth,1.00);
my $cnv_Curve_81 = $c->create('line',516.50,219.00,513.00,226.50,519.00,236.50,-arrow,'none',-width,2.00,-smooth,1.00);
my $cnv_Curve_82 = $c->create('line',891.52,149.24,880.64,163.12,893.02,162.40,-smooth,1.00);
my $cnv_Splash_83 = $c->create('polygon',794.00,318.00,761.00,256.00,776.00,233.00,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_Splash_84 = $c->create('polygon',620.58,300.04,676.70,257.80,672.82,230.62,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_Splash_85 = $c->create('polygon',824.79,309.60,857.80,247.60,842.80,224.61,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_Splash_86 = $c->create('polygon',475.44,298.82,459.61,230.39,480.05,212.06,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_Line_87 = $c->create('line',518.50,244.50,512.00,177.00);
my $cnv_Splash_88 = $c->create('polygon',477.00,237.00,513.50,244.00,548.00,232.00,551.00,258.00,489.00,265.00,-fill,'Blue',-smooth,1.00);
my $cnv_Splash_89 = $c->create('polygon',833.95,281.41,838.91,285.57,835.55,295.33,827.87,303.81,825.93,301.75,830.72,295.22,826.47,297.87,819.67,302.93,813.09,298.95,825.31,283.97,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_Splash_90 = $c->create('polygon',641.65,275.61,645.66,278.90,642.31,287.37,635.36,294.96,633.82,293.30,638.21,287.51,634.47,289.98,628.44,294.62,623.04,291.57,634.18,278.22,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_Splash_91 = $c->create('polygon',786.09,293.51,781.57,296.06,783.39,304.97,788.92,313.66,790.73,312.30,787.41,305.83,790.67,308.91,795.80,314.53,801.64,312.46,792.99,297.38,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_Polygon_92 = $c->create('polygon',223.50,264.00,226.00,254.00,235.75,247.25,255.00,248.50,258.00,266.00,250.00,256.50,251.50,268.25,245.75,259.13,244.00,270.50,239.75,263.50,-fill,'wheat2',-outline,'Black');
my $cnv_PolyLine_93 = $c->create('line',347.00,200.00,327.00,210.00,318.00,224.00,-arrow,'none',-fill,'Brown',-width,3.00);
my $cnv_Splash_94 = $c->create('polygon',696.33,396.50,715.92,398.33,720.83,394.50,715.50,388.50,706.83,387.67,699.50,387.83,-fill,'NavyBlue',-smooth,1.00);
my $cnv_Splash_95 = $c->create('polygon',740.33,396.00,759.92,397.83,764.83,394.00,759.50,388.00,750.83,387.17,743.50,387.33,-fill,'NavyBlue',-smooth,1.00);
my $cnv_PolyLine_96 = $c->create('line',427.00,254.00,409.50,252.50,414.00,268.50,-arrow,'none',-fill,'Brown',-width,3.00);
my $cnv_PolyLine_97 = $c->create('line',267.53,245.58,282.37,229.32,271.77,220.13,-arrow,'none',-fill,'Brown',-width,3.00);
my $cnv_Polygon_98 = $c->create('polygon',118.08,294.25,127.35,289.74,138.79,292.87,150.21,308.42,138.73,321.97,140.86,309.73,132.83,318.43,136.12,308.17,126.28,314.13,128.91,306.38,-fill,'wheat2',-outline,'Black');
my $cnv_Splash_99 = $c->create('polygon',469.98,272.18,476.43,271.61,480.95,280.89,481.52,292.32,478.70,292.23,477.46,284.23,476.34,289.11,475.10,297.49,467.64,299.33,465.68,280.10,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_Curve_100 = $c->create('line',727.00,184.00,718.00,190.50,711.00,184.00,-arrow,'none',-fill,'Red',-width,1.50,-smooth,1.00);
my $cnv_Polygon_101 = $c->create('polygon',504.35,146.00,518.10,146.50,518.65,167.00,505.45,169.00,-fill,'wheat2',-outline,'Black');
my $cnv_Splash_102 = $c->create('polygon',492.00,115.00,533.00,114.50,529.00,160.00,496.00,162.00,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_PolyLine_103 = $c->create('line',519.50,132.00,524.00,129.50,529.50,133.00);
my $cnv_PolyLine_104 = $c->create('line',501.00,133.50,505.50,131.00,511.00,134.50);
my $cnv_Oval_105 = $c->create('oval',501.50,134.50,509.50,139.00,-fill,'White',-outline,'Black');
my $cnv_Oval_106 = $c->create('oval',519.50,133.50,527.50,138.00,-fill,'White',-outline,'Black');
my $cnv_Curve_107 = $c->create('line',514.48,135.24,525.36,149.12,512.98,148.40,-smooth,1.00);
my $cnv_Curve_108 = $c->create('line',521.50,152.00,512.50,158.50,505.50,152.00,-arrow,'none',-fill,'Red',-width,1.50,-smooth,1.00);
my $cnv_Polygon_109 = $c->create('polygon',499.00,94.00,522.00,91.00,533.00,123.00,493.00,126.00);
my $cnv_Splash_110 = $c->create('polygon',891.00,201.50,906.75,187.50,908.50,161.50,889.00,164.00,869.00,161.00,875.50,188.00,-fill,'gray50',-outline,'Black',-smooth,1.00);
my $cnv_Curve_111 = $c->create('line',895.10,168.16,888.80,172.32,883.90,168.16,-arrow,'none',-fill,'Red',-width,1.50,-smooth,1.00);
my $cnv_Splash_112 = $c->create('polygon',908.50,101.00,909.25,120.50,913.50,147.00,891.00,137.00,869.50,144.00,871.75,125.00,874.00,103.00,-fill,'Brown',-outline,'Black',-smooth,1.00);
my $cnv_Splash_113 = $c->create('polygon',918.00,404.00,947.25,403.50,942.50,389.00,937.00,346.00,911.00,341.00,922.50,378.00,-smooth,1.00);
my $cnv_Splash_114 = $c->create('polygon',842.00,393.00,868.25,397.50,888.50,385.00,883.00,342.00,857.00,337.00,868.50,374.00,-smooth,1.00);
my $cnv_Splash_115 = $c->create('polygon',946.54,186.77,947.95,257.48,903.40,217.17,-fill,'DarkViolet',-outline,'Black',-smooth,1.00);
my $cnv_Splash_116 = $c->create('polygon',875.22,185.52,937.04,220.48,932.65,250.78,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_Circle_117 = $c->create('oval',883.00,210.00,892.00,219.00,-fill,'Yellow',-width,3.00,-outline,'orange');
my $cnv_Circle_118 = $c->create('oval',884.00,233.00,893.00,242.00,-fill,'Yellow',-width,3.00,-outline,'orange');
my $cnv_Circle_119 = $c->create('oval',886.00,254.00,895.00,263.00,-fill,'Yellow',-width,3.00,-outline,'orange');
my $cnv_Circle_120 = $c->create('oval',886.00,277.00,895.00,286.00,-fill,'Yellow',-width,3.00,-outline,'orange');
my $cnv_Splash_121 = $c->create('polygon',889.78,204.39,896.03,202.72,897.11,192.45,893.73,181.52,891.11,182.57,892.69,190.51,889.96,186.31,885.93,178.86,878.29,179.68,883.03,198.42,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_Splash_122 = $c->create('polygon',624.42,273.04,568.30,230.80,572.18,203.62,-fill,'wheat2',-outline,'Black',-smooth,1.00);
my $cnv_Splash_123 = $c->create('polygon',606.05,250.41,601.09,254.57,604.45,264.33,612.13,272.81,614.07,270.75,609.28,264.22,613.53,266.87,620.33,271.93,626.91,267.95,614.69,252.97,-fill,'wheat2',-outline,'Black',-smooth,1.00);

MainLoop;