Post by tsh73 on Dec 25, 2018 2:26:30 GMT -5
I did not invented it - I just saw it
(and happen to have "scribbler" tool - ask if you want it posted)
'scribble
'minimal example of using scribble (: in your program)
maxLines=1000
dim lineString$(maxLines)
nomainwin
WindowHeight=300
WindowWidth=500
open "Christmas math" for graphics_nsb_nf as #gr
#gr "trapclose [quit]"
#gr "down"
#gr "size 2"
bkColor$="72 155 55"
#gr "color white"
gosub [drawingFromDATA]
gosub [draw]
#gr "flush"
call pause 4000
gosub [drawingFromDATA]
gosub [draw]
#gr "flush"
call pause 4000
gosub [drawingFromDATA]
gosub [draw]
#gr "flush"
call pause 4000
gosub [drawingFromDATA]
gosub [draw]
#gr "flush"
call pause 4000
#gr "size 4"
bkColor$="white"
#gr "color red"
gosub [drawingFromDATA]
gosub [draw]
#gr "flush"
wait
[draw]
#gr "cls"
#gr "fill ";bkColor$
for j = 1 to curLine
lineString$ = lineString$(j)
x = val(word$(lineString$, 1))
y = val(word$(lineString$, 2))
rest$=word$(lineString$, 3)
#gr "place ";x;" ";y
for i = 1 to len(rest$) step 2
x1=asc(mid$(rest$,i, 1))-34-45
y1=asc(mid$(rest$,i+1,1))-34-45
x=x+x1
y=y+y1
#gr "goto ";x;" ";y
'slow down
if ((i+1) mod 4) = 0 then call pause 30
next
next
'#gr "place 158, 99"
'#gr "\*"
#gr "place 10, 290"
'#gr "font small 7"
'#gr "\*) You know, these Russians think in unprintable characters"
return
[quit]
close #gr
end
[drawingFromDATA]
curLine = 0
read s$
while s$<>"0 0"
if instr("0123456789", left$(s$,1)) then
curLine = curLine+1
lineString$(curLine) = s$
else
lineString$(curLine) = lineString$(curLine) + s$
end if
read s$
wend
return
sub pause mil
t0=time$("ms")
while time$("ms")<t0+mil
scan
wend
end sub
'you can put your drawing here
DATA "19 102 T\POQOPOSKOIOUOQOPOQOPOSOQOQOPOQMQOPNPMPOPLONPKOMONNMNNONNNOQPROS"
DATA "P"
DATA "44 106 jOQO"
DATA "41 111 oOPOON"
DATA "104 94 e?MONNKOMONPMONPMQNPNQNPNQOUOPOQOQOQPPPOOPQOOPQOPPROQPQOQOPOQOQOO"
DATA "NMO"
DATA "133 93 S[OQOKOMONOMOKPOPNPOPNTOPPPORROPQPOPPPOPPPOPNO"
DATA "194 59 >fOSOPPQOPQQOPQPOPPQRRPOOPPPPOOQPOOPQQQOOPPOOPQOMOMM"
DATA "205 67 d[NOMO"
DATA "222 67 <[NOOPMOOPQN"
DATA "196 88 tOQOQNROPOPNQOLOMO"
DATA "202 96 [\OLPNOMPNOMONPNONPNROQQQPPQQQPOPPOPOMQMOMRLQOROQPRRQPQQOPPPOPON"
DATA "261 87 "
DATA "260 86 iPPOMO"
DATA "322 84 5POTQOPPSOROWOQNPNQNONQMOJNOOUOQPPOPPPPOOPQOPPPOOM"
DATA "356 79 5QOPPPUOQPQOSOQPSOROPOQPROPPORNOMPNOMPNPMONPMONOMOMOMOMOMONOMOMOQ"
DATA "ORO"
DATA "367 60 P\PPOSPOOSPOSOPN"
DATA "376 91 "
DATA "374 95 OPQQQQOKNOOMNOMONO"
DATA "368 65 "
DATA "380 64 d_QPQQQPSSPQOPPPOQPPOQOPOQOQNPNQOPMPLRNONPOPMOOPNOOPMOOPMOOPNOOPN"
DATA "OONPNRN"
DATA "93 118 pO]OROPOROWOPOUOPOSOROQOPOSOPOQOPPUOQOSOPOSOPOWOQPPOSOPOQOPOSOPOR"
DATA "OUOPOSOTOQOPOSOPOQOQPPOSOPOROcOPOSOPOQOPOQOPPPOQOPOUOPOSOPOQOPPSOROSOQOQ"
DATA "PQOPO_OPOQOPOQOPOQOPOSOQP]ORO]OPOUOPOSOPOSOPOYOPOQOPOQOPOQONOKOLOMO"
DATA "232 141 POOMPOPNQOUOPOQPQOPPPOPPQOOPQOONNOOPNOMQOPMPNPOPMPOPMQOPNPORPPQO"
DATA "QOPOSOPOQOONQOPOONQO"
DATA "269 136 OHSOPPOPPPPOOTNPNOOPMQNOOPMONPNOOPMOSOQOTOQORO"
DATA "0 0"
DATA "48 104 OLPOONUOPPQPPPQOPPQOQOUOONNOMONPMPOPMPOWPPSOSOPPSOON"
DATA "78 97 NNNOOKPOPNPOPNQOPPPOPPOPPPORNPNONPMOOPNONPNOOQROSOQOQOQO"
DATA "110 104 ONMOOTQOQOQOPOQOPOQOQMPOONPOOPNPOPOQOPOSOPOQORNPOPMPNONPMPMOMPNO"
DATA "KOLOOKPMSMQMQOQNROQOQNPOQOPO"
DATA "159 106 MOQOROQOROSOPOQO"
DATA "156 113 SOSOPOQNROSOPOQOPOPNPO"
DATA "195 111 SORNQORNSNQMRNPMQNOMONOMONOMMMNONNNOMOLRMQNPOQMROQMSOPOSOTQQQOPO"
DATA "UOPOQNRL"
DATA "223 108 POOPPPOPPPOPPPOPPPPOSKPMPNSOQQORPPOQ"
DATA "276 78 NONPGWMRLXNSOROQOUPQQQPQQQQPPQQQQOPPQOPO"
DATA "288 81 QPPPSQQQRPPQRPQPPPPOQPPO"
DATA "307 81 LONQMQNRKSNQMPMQOPNOOP"
DATA "279 106 POROQOWOTOTNTOSOSNSOUOQOQOPONO"
DATA "280 113 ROQOTTOPPPOQQQONPNONPNOMPNOMTOPPPOOPQOOPQOPNPOPNPOPNQOPNQORROURO"
DATA "340 103 SOXOSOROQOQO"
DATA "390 101 NONNNOONLONNNOMOLOMONOMOMPLROQOQOQROQPROQORORNSMQMPNOJORPPOPPPOQ"
DATA "SSPOQO"
DATA "423 96 ONMOMOMOKONOMPMQOQPPQOQPQOQPQOQPROOPPOOPNOMPMOLPLOMOLPKOMOPORO"
DATA "437 79 ONOSOQOPOQOTPPORPPOQPOOPPOOP"
DATA "438 111 POOPOLQOOQ"
DATA "447 72 PPOPPPQPPQQQPQQPQSPPPQOQPPOQOPPPOQOQOQOSMQOPMPOPNPOPMQOPNONPOQMQN"
DATA "OOPNPNOOQNOOQPN"
DATA "0 0"
DATA "29 121 QOPOQOTOQNQOPOQNPOPNPOONQOONPOOKNNLOMNMOLOMPMOMQNOOPNONPNOOXPPOPP"
DATA "PPOOPPPQOPPPOQOPPVOSOUOOM"
DATA "59 100 NOMMOKQOROQPQOPPSOPNKSNQMPOQNPOPNPOPPPPOQOPOSOPOQOROON"
DATA "73 88 MOONPOQNQOQOQNQOOTNOOPNPOPNOOPMQPOQOPOUOPOQOPOONNO"
DATA "98 99 NONNNPOTQQPOSOPOSOPNQNOHOSOQOPOSOPOQPPOPPQPOORMONPMONOMOMOMONOOLQN"
DATA "QMRNPNQNPNQOPO"
DATA "132 119 QOXOSNROSOROQOQO"
DATA "129 128 POSOUOTNWOSNTOQOROQNQO"
DATA "180 98 OMOPPPSQRQQQSQURPPPOPP"
DATA "200 92 NPOPNQNPMQNQMRMQMPNQMPNPNQNOOPMO"
DATA "180 120 POSOROSOROSOTO[OXORNROMO"
DATA "186 125 POSSPQQPOQPPOPPPORQOONPNONPNPMONPNONSOOQPPOPROPNPORLSOQPOPPPPQPP"
DATA "PQPPOSQOPN"
DATA "253 116 POROQOSORORNUOQOPONO"
DATA "313 110 ONMONNMOMONOKOMOMOJTOTPPPOQPPOQOPOROQOPOSMQMONPNOKOROQOQQQOPPOOP"
DATA "QOQPPOQO"
DATA "347 108 OMJOKONOMOMOOQQQQOPPQPPOPPPOQPPOPPOPNPMOMPKONOMPLOQO"
DATA "359 89 OLNOOQOSOPOWPPPQOVQO"
DATA "360 117 POOQNOQOONPO"
DATA "327 195 "
DATA "0 0"
DATA "41 112 MOORPQPPOQPQPPOQPPOQPOOLPNOLQMONPNONQMONPOPNQOTTOQPPOQPPOPPOOKOMO"
DATA "NPNONPOPNYORRPQOPOQPQOTQOPOSO"
DATA "103 123 MOPOQOQNQORNQNRNPNQOPNOLMONOIONOMONOKQNPNOLROURRQORPQOROQOROSMRN"
DATA "PN"
DATA "131 97 KOMMPOWOROPOQORONOKQLROPNPOTPOPPSOQOPOPNPOQOPOPN"
DATA "146 88 OJPOQOTOPPOTMOOPNOOPNPNOOPYO"
DATA "165 97 ONMONPOUQOPPQOQOPNQNONPMPNOLOROQOPPQOPPQPPOQOQOQOPMQNONPJOOKPNSMP"
DATA "NPO"
DATA "192 119 MOQOUO[OSNSOPO"
DATA "191 125 MOOPPOSOROSOROSOSNROQO"
DATA "244 111 NOONMOOPRQSQRQRPQQSQPPPO"
DATA "258 106 NONPOPMQOQNRMQNRMSOPMQ"
DATA "275 116 POQOROQOUOSO"
DATA "306 107 QOOQPPOPOQPPOPPPOPPOPNOMPNONPNONPNONPNPOONQOQOPPOPQQOPPOOPROPNQN"
DATA "POSMSOPQOUQO"
DATA "379 107 NNNOCOLOKOLOMOMPNPMOLROSQPSOXOSNQNRNQMPNQOOMOSPPQOPPQOQO"
DATA "406 104 MOKONOMOMPLPMOMQOQQOQPQORPQOQPQOPPQOOQNOLOMPIOMOMPKOMOOPNOOPPP"
DATA "419 87 NOOQOQOPOROPOSPPOPRR"
DATA "423 117 ONKOONOP"
DATA "304 157 "
DATA "0 0"
DATA "31 94 OPOQOPPPPQPPPQQQOQPPOPPPOQOPPPOPPPOYOLOKONOKOMOMOLOKONPNONPOONPOON"
DATA "POONPOONPOQMQOOPQPPQOPRUOQPPOQOPOQOQOQOTONPNOIONOKONOMONPNPMOMQNONPNQOON"
DATA "QNPNQOONQOPPOPPPPQQPOPPQQQOROQOPOQOQOQOR"
DATA "92 114 NPQOQNROQNRNSMSMQMPNOKNNMNKOMOJOMPNPNONPNQNPOPNPOROQOQSSOPPPPOOQQ"
DATA "OOPQOQPXOSOROUMQOONPN"
DATA "124 89 MOONNONNONNNONPNQOQOPNQOPOQOPOOTKSOUQOSOQNRNQN"
DATA "142 87 KOONNOONNONNONPOUOPOUOSOMQNONQOPMPOPNPOPNOORSOUOQNPO"
DATA "164 83 OROQORPOQPQOQOPNQNPNOIOQNOOQNPOQOPOQOPOQOPOQPPOQOPPPORNOMPMONOMOM"
DATA "OOJPNRNQMUMQNPNPO"
DATA "187 110 ROQOROQOROSOPNPONO"
DATA "190 117 SOUOQOROSO"
DATA "211 92 POURRQQQRPRQQQRPQPPQQOQQPOPPOPPOOQPOOP"
DATA "236 90 OQOQNPNRMQMUNQNRMQOQNPNQMQOQ"
DATA "256 105 QOPOUORPPOROQORN"
DATA "284 99 POOQPPOQQQPQPPOQPPOPPOOPPOOMOMONOMOIQOONROPPPOOPPPOPQPOPROOMQMPNP"
DATA "MQMSOOPQPOQPQPPOSPPOPOQOPQOSO"
DATA "353 104 ONNNMONNKOLOKOLOMONPKQNQMPOPOQOQQPUOSNRNQNRNQMQNPNOKOPPPPQOPQQPQ"
DATA "QOPPPOPPQOQO"
DATA "384 99 OMNONNMOMOLONOIRNPOPOQOPQPQORPQORPQPSOPPPOPPOQMPMOLPLOLPGOMP"
DATA "403 105 OLNNOKOMOMNNONMMOMMMOFTOQPQQO^MQOTNOOTPO"
DATA "403 110 OSTOOMNONNLO"
DATA "336 172 "
DATA "0 0"
