एक सर्कल इल्यूजन एनीमेशन बनाएं


84

आपका काम इस चक्र भ्रम को चेतन करना है । यह चक्र के अंदर घूमते हुए बिंदुओं की तरह दिखता है, लेकिन वे वास्तव में सिर्फ सीधी रेखाओं में घूम रहे हैं।

यहाँ छवि विवरण दर्ज करें

मापदंडों

  • परिणाम एनिमेटेड होना है। जिस तरह से आप एनीमेशन करते हैं वह अप्रासंगिक है, यह एक उत्पन्न कर सकता है .gif, यह एक खिड़की, कुछ डिवाइस स्क्रीन या जो कुछ भी आकर्षित कर सकता है।
  • यह एक लोकप्रियता प्रतियोगिता है, इसलिए हो सकता है कि आप अपने कार्यक्रमों में कुछ अतिरिक्त सुविधाएँ जोड़ना चाहें, ताकि अधिक अंक प्राप्त हो सकें, उदाहरण के लिए।
  • अंतिम वैध जमा करने के 7 दिन बाद विजेता सबसे अधिक मान्य मान्य उत्तर है।
  • उत्तर जो वास्तव में सीधी रेखाओं पर आगे बढ़ने वाले बिंदुओं को लागू करेंगे और किसी अन्य तरीके से और अधिक स्वागत नहीं करेंगे

"विजेता 7 दिनों के बाद सबसे अधिक मान्य मान्य है"। इसलिए अगर कोई हर 6 दिन बाद सितारों के मरने तक कुछ पोस्ट करता है, तो हमारे पास कोई विजेता नहीं है?
केविन एल

3
@ केविनएल ऐसा होने की संभावना नहीं है और मुझे नहीं लगता कि उन 15 अतिरिक्त प्रतिनिधि हैं जो उन सभी अपवोट्स की तुलना में महत्वपूर्ण हैं जो आपको इस सवाल से हर 6 दिनों में शीर्ष पर टकराएंगे।
मार्टिन एंडर

1
कभी-कभी मुझे आश्चर्य होता है कि क्या कुछ लोग काम पूरा करने के लिए ऐसा करते हैं ...
डैनियल पेन्डगैस्ट

3
"यह चक्र के अंदर घूमते हुए बिंदुओं की तरह दिखता है, लेकिन वे वास्तव में सिर्फ सीधी रेखाओं में घूम रहे हैं।", या, हो सकता है कि वे वास्तव में एक चक्र के अंदर घूम रहे हों और सीधी रेखाओं में चलते दिखाई देते हों ...
coredump

1
नहीं कर सकता .. इस एनीमेशन .. मेरे दिमाग से बाहर .. विशेष रूप से 3-बिंदु संस्करण!
थॉमस

जवाबों:


126

पायथन 3.4

कछुए के मॉड्यूल का उपयोग करना। कछुए अलग-अलग रंग के होते हैं और वे हमेशा एक ही दिशा में सामना करते हैं, इसलिए उन्हें आसानी से केवल एक पर ध्यान केंद्रित करके सीधी रेखाओं के साथ चलते देखा जा सकता है। इसके बावजूद वृत्त भ्रम अभी भी मजबूत है।

11 कछुए

भ्रम अभी भी सिर्फ 3 या 4 कछुओं के साथ काफी मजबूत लगता है:

3 कछुए4 कछुए

इन सभी GIF उदाहरणों के लिए फ्रैमरेट काफी कम हो गया है, लेकिन यह भ्रम से अलग नहीं लगता है। कोड को स्थानीय रूप से चलाने से एक स्मूथ एनीमेशन मिलता है।

import turtle
import time
from math import sin, pi
from random import random


def circle_dance(population=11, resolution=480, loops=1, flip=0, lines=0):
    population = int(population)
    resolution = int(resolution)
    radius = 250
    screen = turtle.Screen()
    screen.tracer(0)
    if lines:
        arrange_lines(population, radius)
    turtles = [turtle.Turtle() for i in range(population)]
    for i in range(population):
        dancer = turtles[i]
        make_dancer(dancer, i, population)
    animate(turtles, resolution, screen, loops, flip, radius)


def arrange_lines(population, radius):
    artist = turtle.Turtle()
    for n in range(population):
        artist.penup()
        artist.setposition(0, 0)
        artist.setheading(n / population * 180)
        artist.forward(-radius)
        artist.pendown()
        artist.forward(radius * 2)
    artist.hideturtle()


def make_dancer(dancer, i, population):
    dancer.setheading(i / population * 180)
    dancer.color(random_turtle_colour())
    dancer.penup()
    dancer.shape('turtle')
    dancer.turtlesize(2)


def random_turtle_colour():
    return random() * 0.9, 0.5 + random() * 0.5, random() * 0.7


def animate(turtles, resolution, screen, loops, flip, radius):
    delay = 4 / resolution      # 4 seconds per repetition
    while True:
        for step in range(resolution):
            timer = time.perf_counter()
            phase = step / resolution * 2 * pi
            draw_dancers(turtles, phase, screen, loops, flip, radius)
            elapsed = time.perf_counter() - timer
            adjusted_delay = max(0, delay - elapsed)
            time.sleep(adjusted_delay)


def draw_dancers(turtles, phase, screen, loops, flip, radius):
    population = len(turtles)
    for i in range(population):
        individual_phase = (phase + i / population * loops * pi) % (2*pi)
        dancer = turtles[i]
        if flip:
            if pi / 2 < individual_phase <= 3 * pi / 2:
                dancer.settiltangle(180)
            else:
                dancer.settiltangle(0)
        distance = radius * sin(individual_phase)
        dancer.setposition(0, 0)
        dancer.forward(distance)
    screen.update()


if __name__ == '__main__':
    import sys
    circle_dance(*(float(n) for n in sys.argv[1:]))

इसके विपरीत यहां कुछ ऐसे हैं जो वास्तव में घूमते हैं:

23 पाश कछुए23 ट्रेफिल कछुए

... या वे करते हैं?

कोड को 5 वैकल्पिक तर्कों के साथ चलाया जा सकता है: जनसंख्या, रिज़ॉल्यूशन, लूप, फ्लिप और लाइनें।

  • population कछुओं की संख्या है
  • resolution समय संकल्प (प्रति पुनरावृत्ति के लिए एनीमेशन फ्रेम की संख्या) है
  • loopsयह निर्धारित करता है कि कछुए कितनी बार खुद पर वापस लोटते हैं। 1 का डिफ़ॉल्ट एक मानक सर्कल देता है, अन्य विषम संख्याएं कछुओं की स्ट्रिंग में छोरों की संख्या देती हैं, जबकि नंबर भी कछुओं की एक स्ट्रिंग को छोर पर काट दिया जाता है, लेकिन फिर भी घुमावदार गति के भ्रम के साथ।
  • flipयदि गैर-शून्य कछुओं को उनकी वापसी यात्रा के लिए फ्लिप दिशा का कारण बनता है (जैसा कि aslum द्वारा सुझाव दिया गया है ताकि वे कभी भी पीछे की ओर न बढ़ें )। डिफ़ॉल्ट रूप से वे समापन बिंदु पर दृश्य विकर्षण से बचने के लिए एक निश्चित दिशा रखते हैं।
  • lines यदि गैर-शून्य उन पंक्तियों को प्रदर्शित करता है जिन पर कछुए चलते हैं, तो प्रश्न में उदाहरण छवि के साथ स्थिरता के लिए।

flipसेट के साथ और बिना उदाहरण के lines। मैंने अपना मुख्य उदाहरण बिना फ्लिप के ऊपर छोड़ दिया है क्योंकि मैं छिटपुट कूद नहीं करना पसंद करता हूं, लेकिन सर्कल के किनारे सभी कछुओं के साथ चिकनी दिखते हैं, इसलिए विकल्प यह है कि जो भी लोग पसंद करते हैं, जब वे चल रहे हों कोड।

11 कछुए फ्लिप और लाइनों के साथफ्लिप के साथ 11 कछुए

यह तुरंत स्पष्ट नहीं हो सकता है कि ऊपर दिए गए चित्र सभी इसी कोड से कैसे बनाए गए थे। विशेष रूप से छवि आगे है जिसमें एक धीमी बाहरी लूप है और एक तेज़ आंतरिक लूप (वह कार्डियोइड जैसा दिखता है जिसे किसी दुर्घटना ने गिरा दिया है)। मैंने इस बात का स्पष्टीकरण नीचे दिया है कि कोई भी प्रयोग / सोच के दौरान यह पता लगाने में देरी करना चाहता है।

विभिन्न आकारों के आंतरिक और बाहरी लूप के साथ एनीमेशन को लूप की संख्या 15 तक सेट करके और कछुओं की संख्या 23 पर छोड़ दी गई (15 लूप का प्रतिनिधित्व करने के लिए बहुत कम)। कछुओं की एक बड़ी संख्या का उपयोग करने से 15 स्पष्ट रूप से परिभाषित छोरों का परिणाम होगा। बहुत कम कछुओं के उपयोग से अलियासिंग (छवि प्रसंस्करण और प्रतिपादन में उसी कारण के लिए) का उपयोग होता है। विरूपण के साथ प्रदर्शित होने वाली कम आवृत्ति में बहुत अधिक आवृत्ति परिणामों का प्रतिनिधित्व करने की कोशिश करना।

अलग-अलग संख्याओं की कोशिश करते हुए मैंने इनमें से कुछ विकृतियों को अधिक सममित मूल की तुलना में अधिक दिलचस्प पाया, इसलिए मैं एक को शामिल करना चाहता था ...


18
मुझे कछुए पसंद हैं।
FreeAsInBeer

18
मैंने कछुओं के लिए +1 किया
MrEngineer13

वाक्य रचना हाइलाइटिंग के लिए @ProgramFOX धन्यवाद! मैंने मदद और मेटा के माध्यम से खोज की और खुद को आश्वस्त किया कि हमारे पास कोड गोल्फ पर वाक्य रचना हाइलाइटिंग नहीं है - मैं अब इससे बहुत खुश हूं।
ट्राइकोप्लाक्स

1
@aslum जो बनाने के लिए एक सीधा बदलाव होगा, लेकिन मैं चाहता था कि उनका उन्मुखीकरण वास्तव में इस बात पर जोर दे कि वे अपनी सीधी रेखा के पाठ्यक्रम से विचलित न हों। हो सकता है कि मुझे इसे एक विकल्प के रूप में कोड में जोड़ना चाहिए ताकि लोग उस दृष्टिकोण को चुन सकें जो वे पसंद करते हैं।
ट्राइकोप्लाक्स

4
+1 - यह देखने के लिए बहुत बढ़िया होगा कि एक मार्चिंग बैंड इन फनकार वालों में से कुछ करे!
मोकिस्टीनन

96

सी

नतीजा:

यहाँ छवि विवरण दर्ज करें

#include <stdio.h>
#include <Windows.h>
#include <Math.h>

int round (double r) { return (r > 0.0) ? (r + 0.5) : (r - 0.5); }
void print (int x, int y, char c) {
    COORD p = { x, y };
    SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE), p);
    printf("%c", c);
}

int main ()
{
    float pi = 3.14159265358979323846;
    float circle = pi * 2;
    int len = 12;
    int hlen = len / 2;
    int cx = 13;
    int cy = 8;
    float w = 11.0;
    float h =  8.0;
    float step = 0.0;

    while (1)
    {
        system("cls"); // xD

        for (int i = 0; i < len; i++)
        {
            float a = (i / (float)len) * circle;
            int x = cx + round(cos(a) * w);
            int y = cy + round(sin(a) * h);
            print(x, y, 'O');

            if (i < hlen) continue;

            step -= 0.05;
            float range = cos(a + step);
            x = cx + round(cos(a) * (w - 1) * range);
            y = cy + round(sin(a) * (h - 1) * range);
            print(x, y, 'O');
        }

        Sleep(100);
    }

    return 0;
}

3
कुछ फ्रेम में यह थोड़ा हटकर है। लेकिन ASCII में करने के लिए बधाई!
जस्टफुल

10
ASCII के लिए +1 औरsystem("cls"); // xD
क्रिस्टोफ बोह्मवल्डर जूड

1
ये सुन्दर है।
ट्राइकोप्लाक्स

1
यह एक लिनक्स पर काम करता है। (हालांकि काफी दयनीय रूप से)
user824294

अपमानजनक हेट टिप्पणी: "यह सी नहीं है! मानक स्लीप, कॉर्ड या सेटकोनसोकोर्ससॉर्फ़ेशन को परिभाषित नहीं करता है!"
इमिबिज़ जूल

52

एसवीजी (कोई जावास्क्रिप्ट नहीं)

यहाँ JSFiddle लिंक

<?xml version="1.0"?>
<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" viewBox="0 0 380 380" width="380" height="380" version="1.0">
  <g transform="translate(190 190)">
    <circle cx="0" cy="0" r="190" fill="#000"/>
    <line x1="0" y1="-190" x2="0" y2="190" stroke="#fff" stroke-width="1.5"/>
    <line x1="72.71" y1="175.54" x2="-72.71" y2="-175.54" stroke="#fff" stroke-width="1.5"/>
    <line x1="134.35" y1="134.35" x2="-134.35" y2="-134.35" stroke="#fff" stroke-width="1.5"/>
    <line x1="175.54" y1="72.71" x2="-175.54" y2="-72.71" stroke="#fff" stroke-width="1.5"/>
    <line x1="190" y1="0" x2="-190" y2="0" stroke="#fff" stroke-width="1.5"/>
    <line x1="175.54" y1="-72.71" x2="-175.54" y2="72.71" stroke="#fff" stroke-width="1.5"/>
    <line x1="134.35" y1="-134.35" x2="-134.35" y2="134.35" stroke="#fff" stroke-width="1.5"/>
    <line x1="72.71" y1="-175.54" x2="-72.71" y2="175.54" stroke="#fff" stroke-width="1.5"/>
    <g transform="rotate(0)">
      <animateTransform attributeType="xml" attributeName="transform" type="rotate" from="0" to="360" begin="0" dur="8s" repeatCount="indefinite"/>
      <g transform="translate(0 90)">
        <g transform="rotate(0)">
          <animateTransform attributeType="xml" attributeName="transform" type="rotate" from="0" to="-360" begin="0" dur="4s" repeatCount="indefinite"/>
          <circle cx="0" cy="90" r="10" fill="#fff"/>
          <circle cx="63.64" cy="63.64" r="10" fill="#fff"/>
          <circle cx="90" cy="0" r="10" fill="#fff"/>
          <circle cx="63.64" cy="-63.64" r="10" fill="#fff"/>
          <circle cx="0" cy="-90" r="10" fill="#fff"/>
          <circle cx="-63.64" cy="-63.64" r="10" fill="#fff"/>
          <circle cx="-90" cy="0" r="10" fill="#fff"/>
          <circle cx="-63.64" cy="63.64" r="10" fill="#fff"/>
        </g>
      </g>
    </g>
  </g>
</svg>

हम्म, मुझे यकीन है कि यह नियमों के साथ मस्टर पास करता है, लेकिन मैं व्यक्तिगत रूप से निराश था कि आप वास्तव में इसके विपरीत कर रहे हैं। इसके बजाय "यह अंक की तरह लग रहा है [हैं] चक्र के अंदर घूमते हैं, लेकिन वे वास्तव में सिर्फ सीधी रेखाओं में घूम रहे हैं ।", आपका लागू होता है: "ऐसा लगता है कि अंक सीधे रेखाओं में घूम रहे हैं, लेकिन वे वास्तव में हैं" सिर्फ घेरे के अंदर घूमता है । ”
मोकिस्टीनन

सबसे मस्त जवाब!
डेरेक 會 功夫

14
@mkoistinen मैं देख रहा हूं कि आपका क्या मतलब है, लेकिन अंक वास्तव में सीधी रेखा में बढ़ रहे हैं । यह सिर्फ दो घुमावों के साथ उनकी स्थिति की गणना करने के लिए आसान होता है :-)
स्क्वीश ossifrage

क्या आपने यह सब 'हाथ से' किया या आपने किसी भी तरह के (गैर-पाठ-) संपादक का उपयोग किया?
दोष

5
@flawr मैंने नंबरों को वर्कआउट करने के लिए अपने फोन में एक सादे टेक्स्ट एडिटर और कैलकुलेटर का उपयोग किया :-)
स्क्वीश ossifrage

47

http://jsfiddle.net/z6vhD/13/

intervaltimeFPS (FPS = 1000 / अंतराल) को बदलता है।
balls# गेंदों को बदलता है।
maxstepएक चक्र में # चरणों को समायोजित करता है, जितना बड़ा 'चिकना' होता है। 64 इतना बड़ा होना चाहिए जहाँ वह चिकना दिखाई दे।

लाइनों के साथ गेंदों को स्थानांतरित करने के बजाय, एक सर्कल के रूप में मॉडलिंग की जाती है, लेकिन दृश्य प्रभाव (होना चाहिए?) समान। कोड में से कुछ सुंदर क्रिया है, लेकिन यह कोड गोल्फ नहीं है, इसलिए ...

var intervalTime = 40;
var balls = 8;
var maxstep = 64;

var canvas = $('#c').get(0); // 100% necessary jquery
var ctx = canvas.getContext('2d');
var step = 0;

animateWorld = function() {
    createBase();
    step = step % maxstep;
    var centerX = canvas.width/2 + 115 * Math.cos(step * 2 / maxstep * Math.PI);
    var centerY = canvas.height/2 + 115 * Math.sin(step * 2 / maxstep * Math.PI);

    for (var i=0; i<balls; i++) {
        drawCircle(ctx, (centerX + 115 * Math.cos((i * 2 / balls - step * 2 / maxstep) * Math.PI)), (centerY + 115 * Math.sin((i * 2 / balls - step * 2 / maxstep) * Math.PI)), 10, '#FFFFFF');     
    }

    step++;
}

function createBase() {
    drawCircle(ctx, canvas.width/2, canvas.height/2, 240, '#000000');
    for(var i=0; i<balls*2; i++) {
        drawLine(ctx, canvas.width/2, canvas.height/2, canvas.width/2 + 240 * Math.cos(i / balls * Math.PI), canvas.height/2 + 240 * Math.sin(i / balls * Math.PI), '#FFFFFF');
    }
}

function drawLine(context, x1, y1, x2, y2, c) {
    context.beginPath();
    context.moveTo(x1,y1);
    context.lineTo(x2,y2);
    context.lineWidth = 3;
    context.strokeStyle = c;
    context.stroke();
}

function drawCircle(context, x, y, r, c) {
    context.beginPath();
    context.arc(x, y, r, 0, 2*Math.PI);
    context.fillStyle = c;
    context.fill();
}

function drawRect(context, x, y, w, h, c) {
    context.fillStyle = c;
    context.fillRect(x, y, w, h);
}

$(document).ready(function() {
    intervalID = window.setInterval(animateWorld, intervalTime);
});

2
यह बहुत चिकनी है! बहुत अच्छा।
nnonneo

5
एनिमेशन के लिए setInterval का उपयोग न करें, requestAnimationFrameइसके बजाय लेंसंशोधित JSFiddle का उपयोग कर requestAnimationFrame
klingt.net

1
बस कुछ ही पैरामीटर के साथ आपको बहुत अलग चीज़ मिलती है
FreeAsInBeer

@ केविनएल हां, बस उस पर भी ध्यान दिया। अपडेट किया गया।
FreeAsInBeer

1
@FreeAsInBeer ओह, जब आपने बहुत अलग बात कही, तो मुझे लगा कि आप का मतलब jsfiddle.net/z6vhD/100
केविन एल

41

सीएसएस एनिमेशन

केवल सीएसएस एनिमेशन का उपयोग करने वाला एक समाधान ( जेएसफिल्ड पर एनीमेशन देखें - ध्यान दें कि मैंने ब्राउज़र विशिष्ट उपसर्गों को फ़िडल में जोड़ा है ताकि यह सबसे हाल के संस्करणों में काम कर सके)।

<body>
    <div id="w1"></div>
    <div id="w2"></div>
    <div id="w3"></div>
    <div id="w4"></div>
    <div id="w5"></div>
    <div id="w6"></div>
    <div id="w7"></div>
    <div id="w8"></div>
</body>


div {
    position: absolute;
    width: 20px;
    height: 20px;
    border-radius: 20px;
    background: red;
    animation-duration: 4s;
    animation-iteration-count: infinite;
    animation-direction: alternate;
    animation-timing-function: ease-in-out;
}

#w1 { animation-name: s1; animation-delay: 0.0s }
#w2 { animation-name: s2; animation-delay: 0.5s }
#w3 { animation-name: s3; animation-delay: 1.0s }
#w4 { animation-name: s4; animation-delay: 1.5s }
#w5 { animation-name: s5; animation-delay: 2.0s }
#w6 { animation-name: s6; animation-delay: 2.5s }
#w7 { animation-name: s7; animation-delay: 3.0s }
#w8 { animation-name: s8; animation-delay: 3.5s }

@keyframes s1 { from {top: 100px; left:   0px;} to {top: 100px; left: 200px;} } 
@keyframes s2 { from {top:  62px; left:   8px;} to {top: 138px; left: 192px;} } 
@keyframes s3 { from {top:  29px; left:  29px;} to {top: 171px; left: 171px;} } 
@keyframes s4 { from {top:   8px; left:  62px;} to {top: 192px; left: 138px;} } 
@keyframes s5 { from {top:   0px; left: 100px;} to {top: 200px; left: 100px;} } 
@keyframes s6 { from {top:   8px; left: 138px;} to {top: 192px; left:  62px;} } 
@keyframes s7 { from {top:  29px; left: 171px;} to {top: 171px; left:  29px;} } 
@keyframes s8 { from {top:  62px; left: 192px;} to {top: 138px; left:   8px;} } 

3
मेरे लिए नवीनतम Chrome = /
mkoistinen

1
@mkoistinen - आपको इसके लिए अलग-अलग उपसर्गों को जोड़ना होगा ताकि विभिन्न ब्राउज़रों में काम किया जा सके। ( -webkit-वेबकिट-आधारित और -moz-मोज़िला-आधारित के लिए) यहाँ अद्यतन उपसर्गों के साथ एक ही बेला है: jsfiddle.net/nBCxz/3
Derek 會

@ मकोइस्टीनन तुम सही हो। नया फिडल सभी आवश्यक ब्राउज़र उपसर्ग जोड़ता है और नवीनतम क्रोम पर काम करता है।
हावर्ड

कच्ची लिंक पाठ बस बंद कोष्ठक को याद कर रही है - अभी भी पूरी तरह से प्रयोग करने योग्य है बस आपको यह बताना है कि आप इसे ठीक करना चाहते थे (मैं इसे बदलने के लिए 6 अक्षरों से कम नहीं है)।
ट्राइकोप्लाक्स

35

मेथेमेटिका

यहाँ एक बहुत सीधे-आगे प्रस्तुत है।

animateCircle[n_] := Animate[Graphics[
   Flatten@{
     Disk[],
     White,
     Map[
      (
        phase = #*2 \[Pi]/n;
        line = {Cos[phase], Sin[phase]};
        {Line[{-line, line}],
         Disk[Sin[t + phase]*line, 0.05]}
        ) &,
      Range[n]
      ]
     },
   PlotRange -> {{-1.1, 1.1}, {-1.1, 1.1}}
   ],
  {t, 0, 2 \[Pi]}
  ]

यदि आप कॉल करते हैं animateCircle[32]तो आपको 32 लाइनों और सर्कल के साथ एक साफ-सुथरा एनीमेशन मिलेगा।

यहाँ छवि विवरण दर्ज करें

यह पूरी तरह से मैथेमेटिका में सहज है, लेकिन मुझे जीआईएफ के लिए फ्रेम की संख्या को थोड़ा सीमित करना पड़ा।

अब यदि आप प्रत्येक लाइन पर दो डिस्क रखते हैं तो क्या होगा? (अर्थात्, Disk[-Sin[t + phase]*line, 0.05]सूची में जोड़ें Map)

यहाँ छवि विवरण दर्ज करें

आप उन्हें चरण के बाहर 90 ° भी डाल सकते हैं ( Cosइसके बजाय उपयोग करें -Sin):

यहाँ छवि विवरण दर्ज करें


मुझे इस बात से कोई मतलब नहीं है कि ग्लिट्स का क्या मतलब है, शायद आपको बदलने की ज़रूरत {t, 0, 2 \[Pi]}है {t, 0, 2 \[Pi] - 2 \[Pi]/60, 2 \[Pi]/60}ताकि दो समान फ्रेम और बदलाव Animateन हों Table। तब आप GIF निर्यात कर पाएंगे।
बेंत की मार

@swish नहीं यह वास्तव में अजीब अतिरिक्त लाइनों को प्रस्तुत करता है जो वहां नहीं हैं और उन जगहों पर डिस्क जहां उन्हें नहीं होना चाहिए (और जहां वे कभी वास्तविक परिणाम में नहीं होते हैं Animate)। मैं Tableफिर से प्रयोग करके देखूँगा।
मार्टिन एंडर

@swish जो काम कर गया। मुझे लगा कि मैंने कल कुछ इस तरह की कोशिश की, लेकिन जाहिर है कि मैंने ऐसा नहीं किया।
मार्टिन एंडर

25

VBScript + VBA + एक्सेल पाई चार्ट

यह आपके प्रोसेसर को थोड़ा रो देगा लेकिन यह बहुत अच्छा लग रहा है और मेरा मानना ​​है कि यह कल्पना के अनुसार काम करता है। मैंने सर्कल आंदोलन एल्गोरिथ्म को लागू करने के लिए एक गाइड के रूप में @ फैब्रिकियो के उत्तर का उपयोग किया।

संपादित करें: रेंडर गति में सुधार के लिए कुछ समायोजन किए गए।

पाई चार्ट का स्क्रीनशॉट

कोड:

'Open Excel
Set objX = CreateObject("Excel.Application")
objX.Visible = True
objX.Workbooks.Add

'Populate values
objX.Cells(1, 1).Value = "Lbl"
objX.Cells(1, 2).Value = "Amt"
For fillX = 2 to 17
    objX.Cells(fillX, 1).Value = "V"+Cstr(fillX-1)
    objX.Cells(fillX, 2).Value = "1"
Next

'Create pie
objX.Range("A2:B17").Select
objX.ActiveSheet.Shapes.AddChart.Select
With objX.ActiveChart
    .ChartType = 5 'pieChart
    .SetSourceData  objX.Range("$A$2:$B$17")
    .SeriesCollection(1).Select
End with    

'Format pie
With objX.Selection.Format
    .Fill.ForeColor.RGB = 0 'black
    .Fill.Solid
    .Line.Weight = 2
    .Line.Visible = 1
    .Line.ForeColor.RGB = 16777215 'white
End With

'animation variables
pi = 3.14159265358979323846
circle = pi * 2 : l  = 16.0
hlen = l / 2    : cx = 152.0
cy = 99.0       : w  = 90.0
h  = 90.0       : s  = 0.0
Dim posArry(7,1)

'Animate
While 1 
  For i = 0 to hlen-1
    a = (i / l) * circle
    range = cos(a + s)
    x = cx + cos(a) * w * range
    y = cy + sin(a) * h * range

    If whileInx = 1 Then 
        createOval x, y
    ElseIf whileInx = 2 Then 
        objX.ActiveChart.Legend.Select
    ElseIf whileInx > 2 Then
        ovalName = "Oval "+ Cstr(i+1)
        dx = x - posArry(i,0)
        dy = y - posArry(i,1)
        moveOval ovalName, dx, dy
    End if

    posArry(i,0) = x
    posArry(i,1) = y
  Next

  s=s-0.05
  wscript.Sleep 1000/60 '60fps
  whileInx = 1 + whileInx
Wend

'create circles
sub createOval(posX, posY)
    objX.ActiveChart.Shapes.AddShape(9, posX, posY, 10, 10).Select '9=oval
    objX.Selection.ShapeRange.Line.Visible = 0
    with objX.Selection.ShapeRange.Fill
       .Visible = 1
       .ForeColor.RGB = 16777215 'white
       .solid
    end with
end sub

'move circles
sub moveOval(ovalName, dx, dy)
    with objX.ActiveChart.Shapes(ovalName)      
        .IncrementLeft dx
        .IncrementTop  dy
    end with
end sub

यह मेरे लिए पंक्ति 81, त्रुटि 80070057, "दिए गए नाम के साथ तत्व मौजूद नहीं है" या ऐसा कुछ है (हंगरी से वापस अनुवादित, यही कारण है कि मुझे सटीक त्रुटि संदेश नहीं पता है)।
8 मई

स्ज़ुर्ज़्ज़, @marczellm। जब मैं चार्ट के बाहर क्लिक करता हूं तो मैं उस त्रुटि को पुन: उत्पन्न कर सकता हूं जबकि वह "एनिमेटिंग" है। आपको इसे ध्यान केंद्रित करने की अनुमति देना होगा या कार्यक्रम में त्रुटि होगी। अन्यथा, यह कार्यालय के साथ एक असंगति के कारण हो सकता है। मैं Win7 पर ऑफिस 2010 पर हूं।
आराम

कार्यालय 2007, Win7। मेरे मामले में ऐसा लगता है कि चार्ट पर ध्यान केंद्रित नहीं किया गया है।
मार्च 6

21

एक्सेल, 161 बाइट्स

एक्सेल

=2*PI()*(NOW()*24*60*60/A2-FLOOR(NOW()*24*60*60/A2,1))
=ROUND(7*SIN(A1),0)
=ROUND(5*SIN(A1+1*PI()/4),0)
=ROUND(7*SIN(A1+2*PI()/4),0)
=ROUND(5*SIN(A1+3*PI()/4),0)

A2 (अवधि) एक पूर्ण 'क्रांति' के लिए समय (सेकंड) निर्धारित करता है।

लाइनों के भीतर प्रत्येक सेल संबंधित लाइन के मूल्य से संबंधित एक बुनियादी सशर्त है। उदाहरण के लिए, K2 है:

 =1*(A5=7)

और केंद्र कोशिका (K9) है:

=1*OR(A5=0,A6=0,A7=0,A8=0)

लगातार रिफ्रेश करने के लिए रैंडम सेल पर 'डिलीट' करके एनीमेशन को मजबूर करें।

मुझे पता है कि यह एक पुराना विषय है, लेकिन हाल ही में हुई गतिविधि ने इसे शीर्ष पर पहुंचा दिया और यह किसी कारण से आकर्षक लग रहा था। लंबे समय तक पीसीजी श्रोता, पहली बार कॉलर। नेक बनो।


वाह, यह अविश्वसनीय है कि आप एक्सेल के साथ ऐसा कर सकते हैं: डी
बीटा डेके

15

बस PSTricks के साथ मनोरंजन के लिए।

यहाँ छवि विवरण दर्ज करें

\documentclass[preview,border=12pt,multi]{standalone}
\usepackage{pstricks}

\psset{unit=.3}

% static point
% #1 : half of the number of points
% #2 : ith point
\def\x[#1,#2]{(3*cos(Pi/#1*#2))}
\def\y[#1,#2]{(3*sin(Pi/#1*#2))}

% oscillated point
% #1 : half of the number of points
% #2 : ith point
% #3 : time parameter
\def\X[#1,#2]#3{(\x[#1,#2]*cos(#3+Pi/#1*#2))}
\def\Y[#1,#2]#3{(\y[#1,#2]*cos(#3+Pi/#1*#2))}

% single frame
% #1 : half of the number of points
% #2 : time parameter
\def\Frame#1#2{%
\begin{pspicture}(-3,-3)(3,3)
    \pstVerb{/I2P {AlgParser cvx exec} bind def}%
    \pscircle*{\dimexpr3\psunit+2pt\relax}
    \foreach \i in {1,...,#1}{\psline[linecolor=yellow](!\x[#1,\i] I2P \y[#1,\i] I2P)(!\x[#1,\i] I2P neg \y[#1,\i] I2P neg)}
    \foreach \i in {1,...,#1}{\pscircle*[linecolor=white](!\X[#1,\i]{#2} I2P \Y[#1,\i]{#2} I2P){2pt}}   
\end{pspicture}}

\begin{document}
\foreach \t in {0,...,24}
{   
    \preview
    \Frame{1}{2*Pi*\t/25} \quad \Frame{2}{2*Pi*\t/25} \quad \Frame{3}{2*Pi*\t/25} \quad \Frame{5}{2*Pi*\t/25} \quad \Frame{10}{2*Pi*\t/25}
    \endpreview
}
\end{document}

11

फोरट्रान

प्रत्येक फ्रेम फोरट्रान जिफ़ मॉड्यूल का उपयोग करके एक व्यक्तिगत gif फ़ाइल के रूप में बनाया गया है: http://fortranwiki.org/fortran/show/writegif
फिर मैं एक एनिमेटेड GIF में व्यक्तिगत gif को मर्ज करने के लिए ImageMagick का उपयोग करके थोड़ा धोखा देता हूं।

फोरट्रान

अद्यतन: नया सेट करें। निम्नलिखित पाने के लिए:

यहाँ छवि विवरण दर्ज करें

program circle_illusion

use, intrinsic :: iso_fortran_env, only: wp=>real64
use gif_util  !gif writing module from http://fortranwiki.org/fortran/show/writegif

implicit none

logical,parameter :: new = .false.

integer,parameter  :: n        = 500  !550  !size of image (square)     
real(wp),parameter :: rcircle  = n/2  !250  !radius of the big circle
integer,parameter  :: time_sep = 5    !deg

real(wp),parameter :: deg2rad = acos(-1.0_wp)/180.0_wp
integer,dimension(0:n,0:n):: pixel     ! pixel values
integer,dimension(3,0:3)  :: colormap  ! RGB 0:255 for colors 0:ncol    
real(wp),dimension(2)     :: xy
integer,dimension(2)      :: ixy
real(wp)                  :: r,t
integer                   :: i,j,k,row,col,m,n_cases,ang_sep
character(len=10)         :: istr

integer,parameter  :: black = 0
integer,parameter  :: white = 1
integer,parameter  :: red   = 2
integer,parameter  :: gray  = 3    
colormap(:,0) = [0,0,0]          !black
colormap(:,1) = [255,255,255]    !white
colormap(:,2) = [255,0,0]        !red
colormap(:,3) = [200,200,200]    !gray

if (new) then
    ang_sep = 5
    n_cases = 3
else
    ang_sep = 20
    n_cases = 0
end if

do k=0,355,time_sep

    !clear entire image:
    pixel = white      

    if (new) call draw_circle(n/2,n/2,black,n/2)  

    !draw polar grid:    
    do j=0,180-ang_sep,ang_sep
        do i=-n/2, n/2
            call spherical_to_cartesian(dble(i),dble(j)*deg2rad,xy)
            call convert(xy,row,col)
            if (new) then
                pixel(row,col) = gray
            else
                pixel(row,col) = black  
            end if  
        end do
    end do

    !draw dots:
    do m=0,n_cases
        do j=0,360-ang_sep,ang_sep
            r = sin(m*90.0_wp*deg2rad + (k + j)*deg2rad)*rcircle                
            t = dble(j)*deg2rad    
            call spherical_to_cartesian(r,t,xy)
            call convert(xy,row,col)
            if (new) then
                !call draw_circle(row,col,black,10)  !v2
                !call draw_circle(row,col,m,5)       !v2
                call draw_circle(row,col,white,10)   !v3
            else
                call draw_square(row,col,red)        !v1
            end if
        end do
    end do

    !write the gif file for this frame:        
    write(istr,'(I5.3)') k
    call writegif('gifs/test'//trim(adjustl(istr))//'.gif',pixel,colormap)

end do

!use imagemagick to make animated gif from all the frames:
! from: http://thanosk.net/content/create-animated-gif-linux
if (new) then
    call system('convert -delay 5 gifs/test*.gif -loop 0 animated.gif')
else
    call system('convert -delay 10 gifs/test*.gif -loop 0 animated.gif')
end if

!delete individual files:
call system('rm gifs/test*.gif')

contains

    subroutine draw_square(r,c,icolor)

    implicit none
    integer,intent(in) :: r,c  !row,col of center
    integer,intent(in) :: icolor

    integer,parameter :: d = 10 !square size

    pixel(max(0,r-d):min(n,r+d),max(0,c-d):min(n,c+d)) = icolor

    end subroutine draw_square

    subroutine draw_circle(r,c,icolor,d)

    implicit none
    integer,intent(in) :: r,c  !row,col of center
    integer,intent(in) :: icolor
    integer,intent(in) :: d  !diameter

    integer :: i,j

    do i=max(0,r-d),min(n,r+d)
        do j=max(0,c-d),min(n,c+d)
            if (sqrt(dble(i-r)**2 + dble(j-c)**2)<=d) &
                pixel(i,j) = icolor
        end do
    end do

    end subroutine draw_circle

    subroutine convert(xy,row,col)

    implicit none
    real(wp),dimension(2),intent(in) :: xy  !coordinates
    integer,intent(out) :: row,col

    row = int(-xy(2) + n/2.0_wp)
    col = int( xy(1) + n/2.0_wp)

    end subroutine convert

    subroutine spherical_to_cartesian(r,theta,xy)

    implicit none
    real(wp),intent(in) :: r,theta
    real(wp),dimension(2),intent(out) :: xy

    xy(1) = r * cos(theta)
    xy(2) = r * sin(theta)

    end subroutine spherical_to_cartesian

end program circle_illusion

1
मुझे ऊर्ध्वाधर और क्षैतिज तत्वों के लिए प्रभाव 'स्क्विश' पसंद है।
पोर्टलैंड रनर

11

अनिवार्य C64 संस्करण।

अपने पसंदीदा एमुलेटर में कॉपी और पेस्ट करें:

C64 संस्करण

1 print chr$(147)
2 poke 53281,0
3 for p=0 to 7
5 x=int(11+(cos(p*0.78)*10)):y=int(12+(sin(p*0.78)*10))
6 poke 1024+x+(y*40),15
9 next p
10 for sp=2040 to 2047:poke sp,13:next sp
20 for i=0 to 62:read a:poke 832+i,a:next i
30 for i=0 to 7:poke 53287+i,i+1:next i
40 rem activate sprites
50 poke 53269,255
60 an=0.0
70 rem maincycle
75 teta=0.0:k=an
80 for i=0 to 7
90 px=cos(k)*64
92 s=i:x=px*cos(teta): y=px*sin(teta): x=x+100: y=y+137: gosub 210
94 teta=teta+0.392699
95 k=k+0.392699
96 next i
130 an=an+0.1
140 goto 70
150 end
200 rem setspritepos
210 poke 53248+s*2,int(x): poke 53249+s*2,int(y)
220 return
5000 data 0,254,0
5010 data 3,199,128
5020 data 7,0,64
5030 data 12,126,96
5040 data 25,255,48
5050 data 59,7,152
5060 data 52,1,200
5070 data 116,0,204
5080 data 120,0,100
5090 data 120,0,100
5100 data 120,0,100
5110 data 120,0,36
5120 data 104,0,36
5130 data 100,0,108
5140 data 54,0,72
5150 data 51,0,152
5160 data 25,131,16
5170 data 12,124,96
5180 data 4,0,64
5190 data 3,1,128
5200 data 0,254,0

10

एक कॉम्पैक्ट जावास्क्रिप्ट संस्करण, डिफ़ॉल्ट सेटिंग्स को कुछ अलग करने के लिए बदल रहा है

http://jsfiddle.net/yZ3DP/1/

HTML:

<canvas id="c" width="400" height="400" />

जावास्क्रिप्ट:

var v= document.getElementById('c');
var c= v.getContext('2d');
var w= v.width, w2= w/2;
var num= 28, M2= Math.PI*2, da= M2/num;
draw();
var bw= 10;
var time= 0;
function draw()
{
    v.width= w;
    c.beginPath();
    c.fillStyle= 'black';
    circle(w2,w2,w2);
    c.lineWidth= 1.5;
    c.strokeStyle= c.fillStyle= 'white';
    var a= 0;
    for (var i=0; i< num*2; i++){
        c.moveTo(w2,w2);
        c.lineTo(w2+Math.cos(a)*w2, w2+Math.sin(a)*w2);
        a+= da/2;
    }
    c.stroke();
    a= 0;
    for (var i=0; i< num; i++){
        circle(w2+Math.cos(a)*Math.sin(time+i*Math.PI/num)*(w2-bw), 
               w2+Math.sin(a)*Math.sin(time+i*Math.PI/num)*(w2-bw), bw);
        a+= da/2;
    }
    time+=0.03;
   requestAnimationFrame(draw);
}

function circle(x,y,r)
{
    c.beginPath();
    c.arc(x, y, r, 0, M2);
    c.fill();

}

2
आपने बनाया ... डोनट ?? वास्तव में आपका एनीमेशन छोटे डॉट्स (कोशिश bw=10) के साथ अच्छा लगता है । अपना कोड दिखाने के लिए कृपया अपना उत्तर संपादित करें। ओह, और जब आप उस पर होते हैं, तो एक बग होना चाहिए जिसे आपको ठीक करना चाहिए: ट्रिगर गणनाओं के time+i*0.39*0.29साथ बदलें time+i*Math.PI/numताकि निर्देशांक किसी भी मूल्य के लिए सही ढंग से गणना कर सकेंnum । (पुनश्च यहाँ JSFiddle अद्यतन किया गया । और codegolf.stackexchange.com में आपका स्वागत है)
स्क्वीश ossifrage

मैं सिर्फ कुछ अलग करना चाहता था (जैसे कछुए एक)। नौसिखिया यहाँ codegolf में :) ओह, और सूत्र के लिए धन्यवाद: DI बस जल्दी में किया था और यादृच्छिक मूल्यों की कोशिश की, सही सूत्र को पाने के लिए एक मिनट नहीं रोका: पी
डिएगो

1
+1 थोड़ा दृश्य मज़ा के लिए छोटा परिवर्तन: http://jsfiddle.net/9TQrm/ या http://jsfiddle.net/Wrqs4/1/
पोर्टलैंड रनर

4

एल्म के साथ मेरा । मैं कुल शुरुआतकर्ता हूं जो इस समाधान ( GitHub ) को बेहतर बनाने के लिए पीआर को खुशी से स्वीकार करेगा :

यहाँ छवि विवरण दर्ज करें

ध्यान दें कि यह सबमिशन वास्तव में सीधी रेखाओं पर चलता है:

import Color exposing (..)
import Graphics.Collage exposing (..)
import Graphics.Element exposing (..)
import Time exposing (..)
import Window
import List exposing (..)
import AnimationFrame -- "jwmerrill/elm-animation-frame"
import Debug

-- CONFIG

size = 600
circleSize = 240
dotCount = 12
dotSize = 10
velocity = 0.01

-- MODEL

type alias Dot =
    { x : Float
    , angle : Float
    }

type alias State = List Dot

createDots : State
createDots = map createDot [ 0 .. dotCount - 1 ]

createDot : Int -> Dot
createDot index =
    let angle = toFloat index * pi / dotCount
    in { x = 0
       , angle = angle
       }

-- UPDATE

update : Time -> State -> State
update time dots = map (moveDot time) dots |> Debug.watch "Dots"

moveDot : Time -> Dot -> Dot
moveDot time dot =
  let t = velocity * time / pi
      newX = (-circleSize + dotSize) * cos(t + dot.angle)
  in { dot | x <- newX }

-- VIEW

view : State -> Element
view dots =
   let background = filled black (circle circleSize)
       dotLinePairs = map viewDotWithLine dots
   in collage size size (background :: dotLinePairs)

viewDotWithLine : Dot -> Form
viewDotWithLine dot =
  let dotView = viewDot dot
      lineView = createLineView
  in group [dotView , lineView] |> rotate dot.angle

viewDot : Dot -> Form
viewDot d = alpha 0.8 (filled lightOrange (circle dotSize)) |> move (d.x, 0)

createLineView : Form
createLineView = traced (solid white) (path [ (-size / 2.0, 0) , (size / 2.0, 0) ])

-- SIGNALS

main = Signal.map view (animate createDots)

animate : State -> Signal State
animate dots = Signal.foldp update dots time

time = Signal.foldp (+) 0 AnimationFrame.frame

4
उस कर्सर ने मुझे अच्छा बेवकूफ बनाया, और मेरा आकार भी काला नहीं है।
कोल

2

दूसरा जीवन एलएसएल

एनीमेशन कछुआ अल्फा छवि की शुरुआत (सही छवि को बचाने के लिए नीचे क्लिक करें)
turtle.png
कछुए अल्फा छवि के अंत (छवि को बचाने के लिए ऊपर सही क्लिक करें)

वस्तु का निर्माण:
एक रूट प्राइमरी सिलेंडर का आकार <1, 1, 0.01> टुकड़ा 0.49, 0.51, रंग < 0, 0, 0>
इस सिलेंडर का वर्णन "8,1,1,1" बिना उद्धरण के करें (बहुत महत्वपूर्ण)
एक सिलेंडर बनाएं, इसे "सिलेंडर" नाम दें, रंग <0.25, 0.25, 0.25> अल्फा 0.5
डुप्लिकेट सिलेंडर 48 बार
एक बॉक्स बनाते हैं, इसे "गोले" का नाम दें, रंग <1, 1, 1> पारदर्शिता 100 शीर्ष पारदर्शिता के अलावा 0
बॉक्स के चेहरे पर अपना कछुआ बनावट रखें, कछुए का सामना करना चाहिए + x
बॉक्स को 48 बार दोहराएं
सभी बॉक्स और सिलिंडर का चयन करें, यह सुनिश्चित करें कि पिछले रूट सिलेंडर का चयन करें,लिंक (नियंत्रण एल)

इन 2 लिपियों को मूल में रखें:

//script named "dialog"
default
{
    state_entry()
    {

    }

    link_message(integer link, integer num, string msg, key id)
    {
        list msgs = llCSV2List(msg);
        key agent = (key)llList2String(msgs, 0);
        string prompt = llList2String(msgs, 1);
        integer chan = (integer)llList2String(msgs, 2);
        msgs = llDeleteSubList(msgs, 0, 2);
        llDialog(agent, prompt, msgs, chan);
    }
}

//script named "radial animation"
float interval = 0.1;
float originalsize = 1.0;
float rate = 5;
integer maxpoints = 48;
integer points = 23; //1 to 48
integer multiplier = 15;
integer lines;
string url = "https://codegolf.stackexchange.com/questions/34887/make-a-circle-illusion-animation/34891";

list cylinders;
list spheres;
float angle;
integer running;
integer chan;
integer lh;

desc(integer on)
{
    if(on)
    {
        string desc = 
            (string)points + "," +
            (string)multiplier + "," +
            (string)running + "," +
            (string)lines
            ;

        llSetLinkPrimitiveParamsFast(1, [PRIM_DESC, desc]);
    }
    else
    {
        list params = llCSV2List(llList2String(llGetLinkPrimitiveParams(1, [PRIM_DESC]), 0));
        points = (integer)llList2String(params, 0);
        multiplier = (integer)llList2String(params, 1);
        running = (integer)llList2String(params, 2);
        lines = (integer)llList2String(params, 3);
    }    
}

init()
{
    llSetLinkPrimitiveParamsFast(LINK_ALL_OTHERS, [PRIM_POS_LOCAL, ZERO_VECTOR, 
        PRIM_COLOR, ALL_SIDES, <1, 1, 1>, 0]);
    integer num = llGetNumberOfPrims();
    integer i;
    for(i = 2; i <= num; i++)
    {
        string name = llGetLinkName(i);

        if(name == "cyl")
            cylinders += [i];
        else if(name == "sphere")
            spheres += [i];
    }  

    vector size = llGetScale();
    float scale = size.x/originalsize;

    float r = size.x/4;
    vector cylindersize = <0.01*scale, 0.01*scale, r*4>;
    float arc = 180.0/points;

    for(i = 0; i < points; i++)
    {
        float angle = i*arc;
        rotation rot = llEuler2Rot(<0, 90, 0>*DEG_TO_RAD)*llEuler2Rot(<0, 0, angle>*DEG_TO_RAD);

        integer cyl = llList2Integer(cylinders, i);
        integer sphere = llList2Integer(spheres, i);

        llSetLinkPrimitiveParamsFast(1, [PRIM_LINK_TARGET, cyl, PRIM_POS_LOCAL, ZERO_VECTOR, PRIM_ROT_LOCAL, rot, PRIM_SIZE, cylindersize, PRIM_COLOR, ALL_SIDES, <0.25, 0.25, 0.25>, 0.5*lines,
        PRIM_LINK_TARGET, sphere, PRIM_COLOR, ALL_SIDES, <0.25 + llFrand(0.75), 0.25 + llFrand(0.75), 0.25 + llFrand(0.75)>, 1
        ]);
    }
}

run()
{
    vector size = llGetScale();
    float scale = size.x/originalsize;

    float r = size.x/2;
    vector spheresize = <0.06, 0.06, 0.02>*scale;
    float arc = 180.0/points;
    list params;
    integer i;
    for(i = 0; i < points; i++)
    {

        float x = r*llCos((angle + i*arc*multiplier)*DEG_TO_RAD);

        vector pos = <x, 0, 0>*llEuler2Rot(<0, 0, i*arc>*DEG_TO_RAD);
        rotation rot = llEuler2Rot(<0, 0, i*arc>*DEG_TO_RAD);
        integer link = llList2Integer(spheres, i);
        params += [PRIM_LINK_TARGET, link, PRIM_POS_LOCAL, pos,  
            PRIM_ROT_LOCAL, rot,
            PRIM_SIZE, spheresize
            //PRIM_COLOR, ALL_SIDES, <1, 1, 1>, 1
            ];
    }   

    llSetLinkPrimitiveParamsFast(1, params);
}

dialog(key id)
{
    string runningstring;
    if(running)
        runningstring = "notrunning";
    else
        runningstring = "running";

    string linesstring;
    if(lines)
        linesstring = "nolines";
    else
        linesstring = "lines";
    string prompt = "\npoints: " + (string)points + "\nmultiplier: " + (string)multiplier;
    string buttons = runningstring + ",points+,points-,reset,multiplier+,multiplier-," + linesstring + ",www";
    llMessageLinked(1, 0, (string)id + "," + prompt + "," + (string)chan + "," + buttons, "");
    //llDialog(id, prompt, llCSV2List(buttons), chan);
}

default
{
    state_entry()
    {
        chan = (integer)("0x" + llGetSubString((string)llGetKey(), -8, -1));
        lh = llListen(chan, "", "", "");

        desc(FALSE);
        init();
        run();
        llSetTimerEvent(interval);
    }

    on_rez(integer param)
    {
        llListenRemove(lh);
        chan = (integer)("0x" + llGetSubString((string)llGetKey(), -8, -1));
        lh = llListen(chan, "", "", "");
    }

    touch_start(integer total_number)
    {
        key id = llDetectedKey(0);
        dialog(id);
    }

    timer()
    {
        if(!running)
            return;

        angle += rate;
        if(angle > 360)
            angle -= 360;
        else if(angle < 0)
            angle += 360;

        run();
    }

    listen(integer channel, string name, key id, string msg)
    {
        if(msg == "points+")
        {
            if(points < maxpoints)
            {
                points++;
                desc(TRUE);
                llResetScript();            
            }
        }
        else if(msg == "points-")
        {
            if(points > 0)
            {
                points--;
                desc(TRUE);
                llResetScript();
            }
        }        
        else if(msg == "multiplier+")
        {
            multiplier++;
            desc(TRUE);
        }
        else if(msg == "multiplier-")
        {
            multiplier--;
            desc(TRUE);
        }
        else if(msg == "running")
        {
            running = TRUE;
            desc(TRUE);
        }
        else if(msg == "notrunning")
        {
            running = FALSE;
            desc(TRUE);
        }
        else if(msg == "lines")
        {
            lines = TRUE;
            desc(TRUE);
            llResetScript();
        }
        else if(msg == "nolines")
        {
            lines = FALSE;
            desc(TRUE);
            llResetScript();
        }
        else if(msg == "reset")
            llResetScript();
        else if(msg == "www")
            llRegionSayTo(id, 0, url);
        dialog(id);
    }
}
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.