स्टीमपंक: क्लैकर एनीमेशन

उच्च स्तर के स्टीमपंक उपन्यास द डिफरेंस इंजन में , सिनेमा घरों के समतुल्य टाइलों द्वारा प्रदर्शित एक पिक्सेलेटेड मूविंग इमेज दी जाती है जिसे यंत्रवत् रूप से फ़्लिप किया जा सकता है। इन टाइलों की गति को ऑर्केस्ट्रेट करने के लिए नियंत्रण इंजन एक बड़ी शोर मशीन थी जिसे छिद्रित कार्ड के डेक द्वारा नियंत्रित किया जाता था।

आपका कार्य इस तरह के एक इंजन का अनुकरण करना और एक इनपुट फ़ाइल द्वारा निर्दिष्ट के रूप में एक पिक्सेलयुक्त एनीमेशन प्रदर्शित करना है। इनपुट में एक निश्चित-चौड़ाई वाले प्रारूप में लाइनें शामिल हैं, लेकिन आप यह मान सकते हैं कि लाइन-एंड इंडिकेशन के लिए जो भी सुविधाजनक है। प्रारूप है:

SSSSYYxxXXOA
SSSS: 4 digit sequence no. may be padded by blanks or all blank
    YY: the y coordinate affected by this line (descending, top is 0, bottom is m-1)
      xx: the starting x coordinate
        XX: the ending x coordinate
          O: hexadecimal opcode
           A: argument (0 or 1)

इनपुट स्पष्ट रूप से अनुक्रमित है (यदि आप कभी भी फर्श पर अपने कार्ड के डेक को गिराते हैं, तो आप मुझे इस भाग के लिए धन्यवाद देंगे)। इसका मतलब है कि प्रोग्राम को अनुक्रम फ़ील्ड का उपयोग करके क्रमबद्ध कुंजी के रूप में इनपुट लाइनों का एक स्थिर प्रकार करना चाहिए। समान क्रम संख्या वाली पंक्तियों को अपने मूल सापेक्ष क्रम को बनाए रखना चाहिए। (यह एक अस्थिर प्रकार के साथ काम करना चाहिए, यदि आप कुंजी को वास्तविक रेखा संख्या जोड़ते हैं।) किसी रिक्त क्रम फ़ील्ड को किसी संख्या (ascii collation अनुक्रम) से कम के रूप में व्याख्या की जानी चाहिए।

एक एकल स्टेटमेंट लाइन केवल एक एकल समन्वय को प्रभावित कर सकती है, लेकिन एक्स मानों की एक आकस्मिक सीमा निर्दिष्ट कर सकती है। अंतिम x मान रिक्त छोड़ा जा सकता है या एकल पिक्सेल को प्रभावित करने के लिए प्रारंभिक मूल्य के समान हो सकता है।

ओपकोड एक हेक्साडेसिमल अंक है जो यूनिवर्सल बाइनरी फंक्शन कोड को निर्दिष्ट करता है जो कि एक रूस्टरटॉप के रूप में उपयोग किया जाता है। तर्क 0 या 1 है। किया गया रैस्टर ऑपरेशन है

pixel = pixel OP argument          infix expression
         --or-- 
        OP(pixel, argument)        function call expression

तो पिक्सेल का मूल मान UBF तालिका में X के रूप में प्रवेश करता है, और विवरण से तर्क मान Y के रूप में प्रवेश करता है। इस फ़ंक्शन का परिणाम पिक्सेल का नया मूल्य है। और यह ऑपरेशन प्रत्येक x, y युग्म से xx, YY से XX, YY कथन में निर्दिष्ट किया गया है। Xx और XX द्वारा निर्दिष्ट सीमा में दोनों अंत बिंदु शामिल हैं। इसलिए

0000 0 010F1

पंक्ति 0 पर पिक्सल 0,1,2,3,4,5,6,7,8,9,10 सेट करना चाहिए।

आउटपुट आयाम ( m x n ) न्यूनतम 20 x 20 होना चाहिए, लेकिन यदि वांछित हो तो बड़ा हो सकता है। लेकिन अनाज दिखाना चाहिए, आप जानते हैं? यह पिक्सेलेटेड माना जाता है । दोनों ग्राफिकल और ASCII- कला आउटपुट स्वीकार्य हैं।

उदाहरण के लिए, हम एक चित्र की आकृति बनाना चाहते थे:

  #   #
   ###
   ##
   ####
    #
#### ####
   # #

   ###
   # #
   # #

अगर हम उसे XOR की तरह एक बिट-फ़्लिपिंग ऑप के साथ खींचते हैं, तो इसे खींचा और मिटाया जा सकता है, भले ही स्क्रीन काली हो या सफेद।

इस क्रम को डुप्लिकेट करने से आकृति दिखाई देगी और गायब हो जाएगी।

NMM मिकी माउस नहीं है

अनुक्रम क्षेत्र में विभिन्न "शॉट्स" को निर्दिष्ट करके एक बड़े एनीमेशन को आउट-ऑफ-ऑर्डर बनाया जा सकता है।

उत्पादन:

काला / सफेद बनाम सफेद / काला

यह कोड-गोल्फ इतना छोटा कार्यक्रम (बाइट-काउंट) जीतता है। बोनस (-50) यदि इंजन क्लिकिटी-क्लैक शोर करता है।

code-golf graphical-output animation

— luser droog
स्रोत

आमतौर पर सैंडबॉक्स में पोस्ट करके स्पष्टीकरण का अनुरोध किया जाता है। क्या आप सैंडबॉक्स को बंद करने की कोशिश कर रहे हैं?

— जॉन ड्वोरक

मेरे लिए व्यक्तिगत रूप से, सैंडबॉक्स एक मृत-अंत हैं। मैं उन्हें खत्म करने के लिए विरासत में बहुत अच्छा हूं। यहाँ, जीना, मैं अपने बट के नीचे आग की अनदेखी नहीं कर सकता।

— लूसर

बुलियन कनेक्टर कैसे काम करता है? क्या यह केवल उसी अनुक्रम संख्या के साथ लाइनों में शामिल होता है? यदि वे मिश्रित हैं, तो क्या ऑपरेटर पूर्वता का कोई रूप है? क्या आपके पास कोई परीक्षण मामले हैं जो बूलियन कनेक्टर्स पर भरोसा करते हैं? आपके द्वारा पोस्ट किए गए परीक्षण मामले में कोई अनुक्रम संख्या क्यों नहीं है? क्या अंतिम xसमन्वय हमेशा समावेशी होता है?

— पीटर टेलर

यहाँ कुछ क्लिक क्लैक शोर हैं । क्या मुझे बोनस मिलेगा? ;-)

— डिजिटल ट्रॉमा

ध्वनि के लिए, क्या आप ट्रेन स्टेशन फ्लिपबोर्ड की तरह कुछ सोच रहे हैं? पैरिस या स्प्लिट-फ्लैप डिस्प्ले - DIY ड्राइवर सर्किट में गारे डु नॉर्ड ट्रेन स्टेशन पर ईजी सोलारी बोर्ड । या आप अधिक यांत्रिक रिले ध्वनियाँ सोच रहे हैं?

— स्कॉट लेडले

जवाबों:

गणितज्ञ, 306 281 बाइट्स

यह इनपुट स्ट्रिंग को वेरिएबल में स्टोर किए जाने की उम्मीद करता है i

ListAnimate[ArrayPlot/@FoldList[({n,y,x,X,o,a}=#2;MapAt[IntegerDigits[o,2,4][[-1-FromDigits[{#,a},2]]]&,#,{y+1,x+1;;X+1}])&,Array[0&,{20,20}],ToExpression/@MapAt["16^^"<>#&,StringTrim/@SortBy[i~StringSplit~"\n"~StringCases~RegularExpression@"^....|..(?!.?$)|.",{#[[1]]&}],{;;,5}]]]

और यहाँ कुछ व्हाट्सएप के साथ:

ListAnimate[ArrayPlot /@ FoldList[(
     {n, y, x, X, o, a} = #2;
     MapAt[
      IntegerDigits[o, 2, 4][[-1 - FromDigits[{#, a}, 2]]] &,
      #,
      {y + 1, x + 1 ;; X + 1}
      ]
     ) &,
   Array[0 &, {20, 20}],
   ToExpression /@ 
    MapAt["16^^" <> # &, 
     StringTrim /@ 
      SortBy[i~StringSplit~"\n"~StringCases~
        RegularExpression@"^....|..(?!.?$)|.", {#[[1]] &}], {;; , 5}]
   ]]

यह बहुत लंबा है। इस चुनौती में बहुत सारे विवरण शामिल थे, और विशेष रूप से इनपुट पार्सिंग में बहुत अधिक मैथमेटिका में कोड लगता है (लगभग आधे, 137 बाइट्स, बस इनपुट पार्स कर रहे हैं)। मैंने गणितज्ञ पर बसने से पहले दो बार भाषा को स्विच करना समाप्त कर दिया (मुझे लगा कि मैं रूबी का उपयोग करके इनपुट पार्सिंग पर बचा सकता हूं, लेकिन फिर मुझे एहसास हुआ कि परिणाम को एनिमेटेड होने की आवश्यकता है , इसलिए मैं गणित में वापस चला गया)।

— मार्टिन एंडर
स्रोत

अघोषित पोस्टस्क्रिप्ट उदाहरण

यह एक "प्रोटोकॉल-प्रोलॉग" -स्टाइल कार्यक्रम है, इसलिए डेटा तुरंत उसी स्रोत फ़ाइल में अनुसरण करता है। एनिमेटेड Gif फ़ाइलों को ImageMagick की convertउपयोगिता (घोस्टस्क्रिप्ट का उपयोग करता है) के साथ निर्मित किया जा सकता है convert clack.ps clack.gif:।

%%BoundingBox: 0 0 321 321

/t { token pop exch pop } def
/min { 2 copy gt { exch } if pop } def
/max { 2 copy lt { exch } if pop } def

/m [ 20 { 20 string }repeat ] def
/draw { change {
        m {} forall 20 20 8 [ .0625 0 0 .0625 0 0 ] {} image showpage
    } if } def

%insertion sort from https://groups.google.com/d/topic/comp.lang.postscript/5nDEslzC-vg/discussion
% array greater_function insertionsort array
/insertionsort
{ 1 1 3 index length 1 sub
    { 2 index 1 index get exch % v, j
        { dup 0 eq {exit} if
            3 index 1 index 1 sub get 2 index 4 index exec
            {3 index 1 index 2 copy 1 sub get put 1 sub}
            {exit} ifelse
        } loop
        exch 3 index 3 1 roll put
    } for
    pop
} def

/process {
    x X min 1 x X max { % change? x
        m y get exch  % row-str x_i
        2 copy get  % r x r_x 
        dup         % r x r_x r_x
        0 eq { 0 }{ 1 } ifelse  % r x r_x b(x)
        2 mul a add f exch neg bitshift 1 and   % r x r_x f(x,a)
        0 eq { 0 }{ 255 } ifelse  % r x r_x c(f)
        exch 1 index % r x c(f) r_x c(f)
        ne { /change true def } if
        put
    } for
    draw
} def

{ [ {
     currentfile 15 string
         dup 2 13 getinterval exch 3 1 roll
         readline not{pop pop exit}if
    pop
    [ exch
     /b exch dup 0 1 getinterval exch
     /n exch dup 1 1 getinterval exch
     /seq exch dup 2 4 getinterval exch
     /y exch dup 6 2 getinterval t exch
     /x exch dup 8 2 getinterval t exch
     /X exch dup 10 2 getinterval dup (  ) ne { t exch }{pop 2 index exch} ifelse
     /f exch dup 12 get (16#?) dup 3 4 3 roll put t exch
     /a exch 13 get 48 sub
     /change false def
    >>
}loop ]
dup { /seq get exch /seq get exch gt } insertionsort
true exch
{ begin
    b(A)eq{
        { process } if
    }{
        b(O)eq{
            not { process } if
        }{
            pop
            process
        }ifelse
    }ifelse
    change
    end
} forall
    draw
} exec
   100 016F0
   101 016F0
   102 016F0
   103 016F0
   104 016F0
   105 016F0
   106 016F0
   107 016F0
   108 016F0
   109 016F0
   110 016F0
   111 016F0
   112 016F0
   113 016F0
   114 016F0
   115 016F0
   200020261
   2 0 6 661
   2 1 3 561
   2 2 3 461
   2 3 3 661
   2 4 4 461
   2 5 0 361
   2 5 5 861
   2 6 3 361
   2 6 5 561
   2 8 3 561
   2 9 3 361
   2 9 5 561
   210 3 361
   210 5 561
    00020261
     0 6 661
     1 3 561
     2 3 461
     3 3 661
     4 4 461
     5 0 361
     5 5 861
     6 3 361
     6 5 561
     8 3 561
     9 3 361
     9 5 561
    10 3 361
    10 5 561
   300020261
   3 0 6 661
   3 1 3 561
   3 2 3 461
   3 3 3 661
   3 4 4 461
   3 5 0 361
   3 5 5 861
   3 6 3 361
   3 6 5 561
   3 8 3 561
   3 9 3 361
   3 9 5 561
   310 3 361
   310 5 561
    00020261
     0 6 661
     1 3 561
     2 3 461
     3 3 661
     4 4 461
     5 0 361
     5 5 861
     6 3 361
     6 5 561
     8 3 561
     9 3 361
     9 5 561
    10 3 361
    10 5 561
0000 0 515F1
0000 1 11501
0000 1 115F1

— luser droog
स्रोत

बाउंडिंग बॉक्स जानकारी को चलाकर खोजा गया था gs -sDEVICE=bbox clack.ps।

— लूसर