Magic Carpet

Enigmatic object with an animated shape.

Magic Carpet

Right click to close.

Try magiccarpet.exe

You can download and try the application.
This application is a prototype and some features may not work as expected on your computer.

File	magiccarpet.exe
Size	488 Kb
Platform	Windows 98, ME, NT4, 2000, XP, Vista

Download Source Code

The full source code is provided as a Mio Archive File.
With MioFactory, you can open this archive file, edit the source code and test the result.

File	magiccarpet.mioa
Size	3 Kb
Format	MioFactory Archive File

MioScript Source Code

MioScript is a scripting language aimed to create any kind of applications.
A free version of MioFactory is available to compile MioScript applications.

Identity.k

event.load
      extern.close("{APP_NAME}") // Only one instance allowed
      app.init("{APP_ID}", "{APP_NAME}", "{APP_VERSION}", "{APP_BUILD}", "{CREATE_LOG}")
      window.main.canGoOut(true)

      app.booster(true)
      system.priority(low)
      time.chrono.start()

      &SunPtr = 180
      &xPtr = 0
      draw.main.rect(0,0, 155, 215, num.rgb(0,0,100))
      doEvent.Sun()
event.end

event.Sun
      &xPtr = time.tick.get()/1200

      draw.main.rect(0,0, 155, 215, num.rgb(0,0,100))

      // Carpet
      for(&Ptr, 8, 20)
            &Y = num.sin(&Ptr*14+ &xPtr, 55)
            &y2 = num.sin(&xPtr, 4)
            &y3 = num.sin(&xPtr+180, 10)

            &wPtr = &Ptr*3
            &color = num.rgb(20,&Ptr*5+20, num.cos (&xPtr / 3, 120) + 120)
            draw.main.line(75-&wPtr, 75-&Y + &y2, 75+&wPtr, 75-&y + &y3, 30, &color)
            &OldY = &Y
      for.next

      &color = num.rgb(num.cos(&xPtr, 120) + 125, 0, 1)
      draw.main.line(75-&wPtr, 70-&Y + &y2, 75+&wPtr, 70-&y + &y3, 10, &color)

      window.main.shape.from.main(0,0,150,150,0,0)
      draw.main.paint()

      doEvent.Sun(5)
event.end