X-mas math

[tsh73]

Was shown that math yesterday.
Using "scribble" program from old forum for sheer amusement.

'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"



[honkytonk]

That's witchcraft !!!

[B+]

Fun with math, nice one!

[tenochtitlanuk]

Neat one, Anatoly! Like!!
'the moving hand writes slowly, and having writ moves on...'