function logo (args)

offx=subwrd(args,1)
offy=subwrd(args,2)
scl=subwrd(args,3)
txt=subwrd(args,4)

pnum=1
pnummax=10
if(offx='');offx=1.0;endif
if(offy='');offy=1.0;endif
if(scl='');scl=1.0;endif
if(txt='');txt='';endif
if(txt='n');pnummax=3;endif

if(offx<0);print 'xpos manje od 0; izlazim!';pnum=15 ;endif
if(offy<0);print 'ypos manje od 0; izlazim!';pnum=15 ;endif
if(scl<0);print 'scal manje od 0; izlazim!'; pnum=15  ;endif

*'set rgb 91 0 82 156'
*'set rgb 92 255 116 0'
*'set rgb 93 0 149 220'
*SIVO
'set rgb 91 127 127 127'
'set rgb 91 0 191 255'
*TAMNO SIVO
'set rgb 92  90  90  90' 
'set rgb 92  218 165 32' 

p1=polygones(1)
p2=polygones(2)
p3=polygones(3)
p4=polygones(4)
p5=polygones(5)
p6=polygones(6)
p7=polygones(7)
p8=polygones(8)
p9=polygones(9)

jmax=100000

while(pnum<pnummax)

if(pnum=1);a=p1;pc=91;pcc=91;endif
if(pnum=2);a=p2;pc=91;pcc=92;endif
if(pnum=3);a=p3;pc=91;pcc=91;endif
if(pnum=4);a=p4;pc=91;pcc=91;endif
if(pnum=5);a=p5;pc=91;pcc=91;endif
if(pnum=6);a=p6;pc=91;pcc=91;endif
if(pnum=7);a=p7;pc=91;pcc=91;endif
if(pnum=8);a=p8;pc=91;pcc=91;endif
if(pnum=9);a=p9;pc=91;pcc=91;endif

j=1
poly=' '
while(j<jmax)
xxx=subwrd(a,j)
yyy=subwrd(a,j+1)
if(xxx!=pc)
poly=poly' 'xxx*scl+offx' 'yyy*scl+offy
endif
if(xxx=pc)
j=jmax+1
'set line 'pcc
'draw polyf'poly
endif
j=j+2
endwhile * while(j<jmax)
pnum=pnum+1
endwhile

*xtxt=offx+0.13*scl
*ytxt=offy-0.02*scl
*stxt=0.098*scl
*'set strsiz 'stxt' 'stxt*0.9
*'set string 1 tl'
*'draw string 'xtxt' 'ytxt' `5'txt

'set strsiz 0.098 0.098'

* DEFINICIJA POLIGONA ==============================

function polygones(args)

pn=subwrd(args,1)

if(pn=1)
p='0.12415237 0.00000000 0.11457918 0.00000000 0.10590347 0.00000000 0.09822497 0.00000000 0.09154367 0.00000000 0.08575987 0.00000000 0.08306741 0.00000000 0.08077383 0.00009972 0.07867970 0.00009972 0.07678501 0.00009972 0.07528919 0.00009972 0.05145592 0.00388911 0.03081372 0.01455923 0.01455923 0.03081372 0.00378939 0.05145592 0.00000000 0.07518947 0.00378939 0.09892301 0.01455923 0.11966494 0.03081372 0.13591942 0.05145592 0.14658955 0.07528919 0.15047866 0.07937774 0.15037894 0.08346629 0.14998005 0.08745512 0.14948145 0.09154367 0.14868368 0.09543279 0.14768648 0.10749900 0.17201835 0.12465098 0.19206223 0.14609094 0.20721978 0.17082170 0.21689270 0.19794576 0.22028321 0.21918628 0.21818908 0.23923016 0.21210611 0.25767851 0.20243318 0.27403271 0.18917032 0.28769445 0.17291583 0.29547268 0.17640606 0.30364978 0.17929797 0.31202632 0.18129238 0.32060233 0.18248904 0.32927802 0.18288791 0.35809731 0.17830075 0.38312724 0.16533706 0.40287197 0.14559235 0.41583565 0.12056243 0.42042282 0.09174312 0.41583565 0.06282409 0.40287197 0.03759474 0.38312724 0.01775030 0.35809731 0.00478660 0.32927802 0.00009972 0.32748306 0.00009972 0.32538891 0.00009972 0.32309532 0.00009972 0.32040286 0.00009972 0.31751096 0.00009972 0.31162745 0.00009972 0.30474672 0.00009972 0.29706821 0.00009972 0.28839251 0.00009972 0.27881929 0.00009972 0.27024332 0.00009972 0.26196650 0.00009972 0.25378940 0.00009972 0.24531312 0.00009972 0.23633826 0.00009972 0.22826087 0.00000000 0.25538492 0.02742321 0.22786199 0.05514559 0.23593937 0.05514559 0.24571201 0.05514559 0.25448743 0.05514559 0.26236537 0.05514559 0.26994416 0.05514559 0.27732348 0.05514559 0.28739530 0.05514559 0.29627043 0.05514559 0.30374950 0.05514559 0.31003192 0.05514559 0.31491822 0.05514559 0.31651375 0.05514559 0.31781012 0.05514559 0.31900677 0.05514559 0.31990427 0.05514559 0.32070205 0.05514559 0.33286798 0.05684084 0.34333864 0.06172716 0.35141602 0.06920622 0.35670123 0.07887914 0.35859594 0.09024731 0.35670123 0.10151576 0.35141602 0.11108895 0.34333864 0.11856801 0.33286798 0.12335461 0.32070205 0.12504986 0.31611487 0.12485042 0.31172717 0.12405265 0.30743918 0.12275628 0.30325091 0.12096131 0.29946151 0.11866773 0.29666933 0.11677304 0.29317909 0.11477862 0.28958914 0.11318309 0.28579977 0.11198644 0.28191066 0.11138811 0.27792183 0.11108895 0.27074191 0.11188672 0.26406062 0.11408058 0.25797766 0.11767052 0.25269246 0.12245712 0.24860391 0.12834065 0.24700838 0.13123254 0.24032709 0.14070602 0.23185082 0.14848424 0.22207817 0.15416832 0.21110889 0.15785800 0.19954129 0.15905465 0.18488233 0.15715995 0.17171919 0.15157560 0.16065018 0.14289989 0.15217391 0.13153172 0.14688872 0.11796968 0.14519346 0.11059035 0.14230156 0.10301157 0.13751496 0.09662944 0.13133226 0.09164340 0.12395293 0.08855206 0.11577583 0.08745512 0.11308337 0.08755485 0.11049063 0.08795373 0.10799760 0.08845233 0.10550459 0.08925010 0.10301157 0.09024731 0.09613083 0.09343837 0.09423614 0.09413642 0.09234145 0.09473474 0.09034703 0.09513362 0.08835261 0.09543279 0.08635820 0.09553251 0.07867970 0.09453530 0.07229757 0.09184284 0.06741125 0.08745512 0.06422018 0.08187076 0.06312326 0.07518947 0.06422018 0.06850818 0.06741125 0.06302354 0.07229757 0.05873554 0.07867970 0.05604308 0.08635820 0.05514559 0.08695652 0.05514559 0.08775429 0.05514559 0.08865178 0.05514559 0.08984842 0.05514559 0.09114479 0.05514559 0.09563223 0.05514559 0.10151576 0.05514559 0.10869565 0.05514559 0.11727164 0.05504587 0.12694456 0.05504587 0.13392501 0.05504587 0.14110491 0.05504587 0.14858396 0.05514559 0.15676107 0.05514559 0.16603510 0.05514559 0.16743119 0.05514559 0.19425608 0.02772238 0.16703232 0.00009972 0.16563621 0.00009972 0.15686078 0.00000000 0.14868368 0.00000000 0.14060630 0.00000000 0.13252892 0.00000000 0.12415237 0.00000000 0.12415237 0.00000000 91 91'
endif

if(pn=2)
p='0.21589549 0.00000000 0.24321899 0.02772238 0.21649382 0.05504587 0.20911448 0.05504587 0.20163542 0.05504587 0.19415636 0.05504587 0.18687674 0.05494615 0.17999601 0.05494615 0.20682091 0.02772238 0.17939769 0.00000000 0.21589549 0.00000000 91 91'
endif

if(pn=3)
p='0.48354608 0.18169126 0.49860391 0.17929797 0.50887513 0.17221779 0.51535702 0.16204627 0.51864779 0.15007977 0.51984441 0.13811329 0.51974469 0.13701636 0.51924610 0.13601914 0.51854807 0.13522138 0.51765060 0.13472277 0.51655364 0.13442361 0.49770641 0.13262863 0.49660948 0.13272835 0.49571201 0.13312724 0.49501395 0.13382529 0.49451536 0.13472277 0.49431592 0.13571998 0.49391702 0.14220184 0.49282011 0.14818507 0.49092540 0.15317112 0.48803350 0.15656163 0.48404467 0.15785800 0.48045471 0.15696052 0.47796172 0.15446749 0.47626644 0.15077782 0.47536898 0.14599122 0.47506979 0.14030714 0.47626644 0.13292781 0.47935781 0.12514958 0.48404467 0.11717192 0.48952931 0.10879537 0.49561229 0.10011967 0.50269246 0.08934982 0.50937372 0.07857998 0.51475865 0.06771041 0.51854807 0.05674113 0.51984441 0.04547268 0.51884723 0.03181093 0.51535702 0.01964499 0.50877541 0.00977264 0.49840447 0.00329079 0.48374552 0.00089749 0.46759075 0.00358995 0.45672119 0.01067012 0.45023933 0.02134025 0.44704828 0.03450339 0.44605106 0.04906262 0.44615078 0.05015955 0.44664937 0.05115676 0.44734743 0.05195453 0.44824490 0.05245313 0.44934183 0.05275229 0.46818906 0.05454727 0.46918628 0.05444755 0.47018349 0.05404866 0.47088152 0.05335062 0.47138014 0.05245313 0.47157958 0.05145592 0.47197846 0.04347826 0.47307539 0.03619864 0.47526926 0.03021540 0.47865975 0.02622657 0.48374552 0.02473075 0.48783407 0.02572796 0.49082568 0.02842042 0.49282011 0.03260870 0.49401677 0.03799362 0.49431592 0.04427603 0.49311927 0.05165536 0.48982847 0.05943359 0.48504189 0.06771041 0.47935781 0.07628640 0.47347426 0.08516154 0.46619466 0.09603111 0.45971280 0.10690068 0.45442760 0.11786997 0.45093736 0.12903869 0.44964102 0.14030714 0.45073792 0.15197447 0.45452732 0.16304348 0.46100917 0.17241724 0.47058237 0.17909852 0.48354608 0.18169126 0.48354608 0.18169126 91 91'
endif

if(pn=4)
p='0.53380537 0.17640606 0.53400481 0.17750299 0.53450340 0.17840047 0.53520143 0.17909852 0.53609890 0.17959712 0.53719586 0.17979658 0.58994812 0.17979658 0.59104508 0.17959712 0.59194255 0.17909852 0.59264058 0.17840047 0.59313923 0.17750299 0.59323895 0.17640606 0.59323895 0.15636219 0.59313923 0.15536498 0.59264058 0.15446749 0.59194255 0.15366973 0.59104508 0.15327084 0.58994812 0.15307140 0.56152773 0.15307140 0.56092942 0.15297168 0.56053054 0.15277223 0.56013161 0.15237336 0.55993217 0.15187475 0.55983245 0.15137614 0.55983245 0.10829677 0.55993217 0.10769845 0.56013161 0.10729956 0.56053054 0.10690068 0.56092942 0.10670124 0.56152773 0.10660151 0.58057439 0.10660151 0.58167130 0.10640208 0.58256882 0.10600319 0.58326685 0.10520542 0.58376545 0.10430793 0.58386517 0.10331073 0.58386517 0.08157160 0.58376545 0.08047467 0.58326685 0.07957719 0.58256882 0.07887914 0.58167130 0.07838053 0.58057439 0.07818110 0.56152773 0.07818110 0.56092942 0.07808137 0.56053054 0.07788193 0.56013161 0.07748305 0.55993217 0.07708416 0.55983245 0.07658556 0.55983245 0.03121261 0.55993217 0.03071400 0.56013161 0.03021540 0.56053054 0.02991623 0.56092942 0.02961707 0.56152773 0.02961707 0.58994812 0.02961707 0.59104508 0.02941763 0.59194255 0.02891903 0.59264058 0.02822098 0.59313923 0.02732349 0.59323895 0.02622657 0.59323895 0.00618269 0.59313923 0.00518548 0.59264058 0.00418827 0.59194255 0.00349023 0.59104508 0.00299162 0.58994812 0.00289190 0.53719586 0.00289190 0.53609890 0.00299162 0.53520143 0.00349023 0.53450340 0.00418827 0.53400481 0.00518548 0.53380537 0.00618269 0.53380537 0.17640606 91 91'
endif

if(pn=5)
p='0.60769844 0.17640606 0.60789788 0.17750299 0.60839647 0.17840047 0.60909456 0.17909852 0.60999203 0.17959712 0.61108893 0.17979658 0.66384125 0.17979658 0.66493815 0.17959712 0.66583568 0.17909852 0.66653371 0.17840047 0.66703230 0.17750299 0.66713202 0.17640606 0.66713202 0.15636219 0.66703230 0.15536498 0.66653371 0.15446749 0.66583568 0.15366973 0.66493815 0.15327084 0.66384125 0.15307140 0.63542080 0.15307140 0.63482249 0.15297168 0.63442361 0.15277223 0.63402474 0.15237336 0.63382530 0.15187475 0.63372558 0.15137614 0.63372558 0.10829677 0.63382530 0.10769845 0.63402474 0.10729956 0.63442361 0.10690068 0.63482249 0.10670124 0.63542080 0.10660151 0.65446746 0.10660151 0.65556443 0.10640208 0.65646189 0.10600319 0.65715992 0.10520542 0.65765858 0.10430793 0.65775830 0.10331073 0.65775830 0.08157160 0.65765858 0.08047467 0.65715992 0.07957719 0.65646189 0.07887914 0.65556443 0.07838053 0.65446746 0.07818110 0.63542080 0.07818110 0.63482249 0.07808137 0.63442361 0.07788193 0.63402474 0.07748305 0.63382530 0.07708416 0.63372558 0.07658556 0.63372558 0.03121261 0.63382530 0.03071400 0.63402474 0.03021540 0.63442361 0.02991623 0.63482249 0.02961707 0.63542080 0.02961707 0.66384125 0.02961707 0.66493815 0.02941763 0.66583568 0.02891903 0.66653371 0.02822098 0.66703230 0.02732349 0.66713202 0.02622657 0.66713202 0.00618269 0.66703230 0.00518548 0.66653371 0.00418827 0.66583568 0.00349023 0.66493815 0.00299162 0.66384125 0.00289190 0.61108893 0.00289190 0.60999203 0.00299162 0.60909456 0.00349023 0.60839647 0.00418827 0.60789788 0.00518548 0.60769844 0.00618269 0.60769844 0.17640606 91 91'
endif

if(pn=6)
p='0.72836059 0.17650579 0.72865975 0.17750299 0.72925806 0.17850021 0.73005587 0.17919825 0.73105305 0.17959712 0.73214996 0.17979658 0.75069803 0.17979658 0.75169528 0.17959712 0.75259274 0.17909852 0.75319105 0.17840047 0.75349021 0.17750299 0.75358993 0.17650579 0.72756284 0.00618269 0.72726369 0.00508576 0.72666532 0.00418827 0.72586757 0.00349023 0.72487038 0.00299162 0.72377342 0.00289190 0.70442760 0.00289190 0.70333070 0.00299162 0.70233345 0.00349023 0.70153570 0.00418827 0.70093739 0.00508576 0.70063823 0.00618269 0.67461109 0.17650579 0.67471081 0.17750299 0.67500997 0.17840047 0.67560828 0.17909852 0.67650580 0.17959712 0.67750299 0.17979658 0.69605106 0.17979658 0.69714797 0.17959712 0.69814521 0.17919825 0.69894296 0.17850021 0.69954127 0.17750299 0.69984043 0.17650579 0.71240526 0.08256881 0.71330273 0.07578780 0.71340245 0.07558835 0.71350217 0.07538891 0.71370161 0.07518947 0.71390110 0.07508975 0.71410054 0.07508975 0.71429998 0.07508975 0.71459913 0.07518947 0.71469885 0.07538891 0.71489829 0.07558835 0.71489829 0.07578780 0.71579576 0.08256881 0.72836059 0.17650579 91 91'
endif

if(pn=7)
p='0.83017552 0.06352214 0.83117270 0.06332269 0.83216995 0.06292381 0.83286798 0.06212605 0.83336657 0.06122856 0.83346629 0.06023135 0.83346629 0.03919027 0.83326685 0.03520144 0.83137214 0.02572796 0.82608694 0.01445951 0.81581569 0.00488632 0.79886317 0.00089749 0.78181094 0.00488632 0.77153969 0.01445951 0.76635420 0.02572796 0.76445949 0.03520144 0.76416034 0.03919027 0.76416034 0.14339848 0.76445949 0.14738731 0.76635420 0.15686078 0.77153969 0.16822895 0.78181094 0.17770243 0.79886317 0.18169126 0.81581569 0.17770243 0.82608694 0.16822895 0.83137214 0.15686078 0.83326685 0.14738731 0.83346629 0.14339848 0.83346629 0.12245712 0.83336657 0.12136019 0.83286798 0.12046270 0.83216995 0.11976466 0.83117270 0.11926606 0.83017552 0.11906661 0.81252491 0.11906661 0.81142801 0.11926606 0.81053054 0.11976466 0.80983245 0.12046270 0.80933386 0.12136019 0.80913442 0.12245712 0.80913442 0.14339848 0.80923414 0.14479457 0.80883527 0.14798564 0.80743915 0.15187475 0.80444753 0.15506582 0.79926205 0.15646191 0.79487437 0.15506582 0.79218191 0.15187475 0.79078579 0.14798564 0.79028720 0.14479457 0.79018748 0.14339848 0.79018748 0.03919027 0.79028720 0.03789390 0.79078579 0.03460311 0.79218191 0.03081372 0.79487437 0.02752294 0.79926205 0.02622657 0.80444753 0.02752294 0.80743915 0.03081372 0.80883527 0.03460311 0.80923414 0.03789390 0.80913442 0.03919027 0.80913442 0.06023135 0.80933386 0.06122856 0.80983245 0.06212605 0.81053054 0.06292381 0.81142801 0.06332269 0.81252491 0.06352214 0.83017552 0.06352214 91 91'
endif

if(pn=8)
p='0.91344237 0.06352214 0.91443956 0.06332269 0.91543680 0.06292381 0.91613483 0.06212605 0.91663343 0.06122856 0.91673315 0.06023135 0.91673315 0.03919027 0.91653371 0.03520144 0.91463900 0.02572796 0.90935379 0.01445951 0.89908254 0.00488632 0.88213003 0.00089749 0.86507779 0.00488632 0.85480654 0.01445951 0.84962106 0.02572796 0.84772635 0.03520144 0.84742719 0.03919027 0.84742719 0.14339848 0.84772635 0.14738731 0.84962106 0.15686078 0.85480654 0.16822895 0.86507779 0.17770243 0.88213003 0.18169126 0.89908254 0.17770243 0.90935379 0.16822895 0.91463900 0.15686078 0.91653371 0.14738731 0.91673315 0.14339848 0.91673315 0.12245712 0.91663343 0.12136019 0.91613483 0.12046270 0.91543680 0.11976466 0.91443956 0.11926606 0.91344237 0.11906661 0.89579177 0.11906661 0.89469486 0.11926606 0.89379734 0.11976466 0.89309931 0.12046270 0.89260072 0.12136019 0.89240128 0.12245712 0.89240128 0.14339848 0.89250100 0.14479457 0.89210212 0.14798564 0.89070600 0.15187475 0.88781410 0.15506582 0.88262862 0.15646191 0.87814122 0.15506582 0.87544876 0.15187475 0.87405264 0.14798564 0.87355405 0.14479457 0.87345433 0.14339848 0.87345433 0.03919027 0.87355405 0.03789390 0.87405264 0.03460311 0.87544876 0.03081372 0.87814122 0.02752294 0.88262862 0.02622657 0.88781410 0.02752294 0.89070600 0.03081372 0.89210212 0.03460311 0.89250100 0.03789390 0.89240128 0.03919027 0.89240128 0.06023135 0.89260072 0.06122856 0.89309931 0.06212605 0.89379734 0.06292381 0.89469486 0.06332269 0.89579177 0.06352214 0.91344237 0.06352214 91 91'
endif

if(pn=9)
p='0.99670923 0.06352214 0.99780613 0.06332269 0.99870366 0.06292381 0.99940169 0.06212605 0.99990028 0.06122856 1.00000000 0.06023135 1.00000000 0.03919027 0.99980056 0.03520144 0.99790585 0.02572796 0.99262065 0.01445951 0.98234940 0.00488632 0.96539688 0.00089749 0.94834465 0.00488632 0.93807340 0.01445951 0.93288791 0.02572796 0.93099320 0.03520144 0.93069404 0.03919027 0.93069404 0.14339848 0.93099320 0.14738731 0.93288791 0.15686078 0.93807340 0.16822895 0.94834465 0.17770243 0.96539688 0.18169126 0.98234940 0.17770243 0.99262065 0.16822895 0.99790585 0.15686078 0.99980056 0.14738731 1.00000000 0.14339848 1.00000000 0.12245712 0.99990028 0.12136019 0.99940169 0.12046270 0.99870366 0.11976466 0.99780613 0.11926606 0.99670923 0.11906661 0.97905862 0.11906661 0.97796172 0.11926606 0.97706419 0.11976466 0.97636616 0.12046270 0.97586757 0.12136019 0.97576785 0.12245712 0.97576785 0.14339848 0.97576785 0.14479457 0.97536898 0.14798564 0.97397286 0.15187475 0.97108096 0.15506582 0.96589547 0.15646191 0.96140808 0.15506582 0.95871562 0.15187475 0.95731950 0.14798564 0.95682091 0.14479457 0.95672119 0.14339848 0.95672119 0.03919027 0.95682091 0.03789390 0.95731950 0.03460311 0.95871562 0.03081372 0.96140808 0.02752294 0.96589547 0.02622657 0.97108096 0.02752294 0.97397286 0.03081372 0.97536898 0.03460311 0.97576785 0.03789390 0.97576785 0.03919027 0.97576785 0.06023135 0.97586757 0.06122856 0.97636616 0.06212605 0.97706419 0.06292381 0.97796172 0.06332269 0.97905862 0.06352214 0.99670923 0.06352214 91 91'
endif

return(p)