Animation: Difference between revisions

[[Category:GUI]]

{{requires|Graphics}}

 

=={{header|AArch64 Assembly}}==

{{works with|as|Raspberry Pi 3B version Buster 64 bits <br> or android 64 bits with application Termux }}

/* Programme assembleur ARM Raspberry ou Android */

/* programme animletter64.s */

 

=={{header|Action!}}==

BYTE i

 

 

=={{header|ActionScript}}==

var textBox:TextField = new TextField();

addChild(textBox);

 

animation.adb:

with Gtk.Handlers;

with Gtk.Label;

 

=={{header|Applesoft BASIC}}==

20 D = 1: VTAB INT (( PEEK (35) - PEEK (34)) / 2) + 1: FOR R = 1 TO 0 STEP 0

30 HTAB INT (( PEEK (33) - L) / 2) + 1: PRINT MID$ (T$,P,L);

=={{header|ARM Assembly}}==

{{works with|as|Raspberry Pi <br> or android 32 bits with application Termux}}

/* ARM assembly Raspberry PI or android 32 bits with termux application */

/* program animLetter.s */

</syntaxhighlight>

=={{header|AutoHotkey}}==

String := "Hello World "

Gui, Add, Text, vS gRev, %String%

 

=={{header|BASIC256}}==

direction=0 #value of 0: to the right, 1: to the left.

tlx=10 #Top left x

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

txt$ = "Hello World! "

direction% = TRUE

{{libheader|GTK}}

(NB: implicitly, through GTK, it uses also Pango library)

#include <string.h>

#include <gtk/gtk.h>

=={{header|C sharp|C#}}==

 

using System.Drawing;

using System.Windows.Forms;

{{libheader|Qt}}

Contents of animationwidget.cpp:

 

#include <QLabel>

 

Contents of animationwidget.h:

#define ANIMATIONWIDGET_H

 

 

Contents of main.cpp:

 

#include <QApplication>

=={{header|Ceylon}}==

module.ceylon

module animation "1.0.0" {

import java.desktop "8";

</syntaxhighlight>

run.ceylon

JFrame,

JLabel,

=={{header|Clojure}}==

Clojure is a JVM language so this example uses Swing, and illustrates Clojure's platform integration.

(import '[java.awt.event MouseAdapter])

 

=={{header|Commodore BASIC}}==

There is no window management in the stock version of BASIC V2 on the Commodore 64 or VIC 20. This example below is generic enough to use on all Commodore variants. Note: Asterisks (*) may be replaced with Commodore graphics characters for a more decorative "window".

1 rem rosetta code

2 rem task: animation

The ltk package provides a lisp interface to Tk for creating graphical interfaces. Assuming ''ltk'' has been installed somewhere the following will work as per the Tcl example.

{{libheader|Tk}}

(defparameter *message* "Hello World! ")

{{libheader|SDL_ttf}}

{{libheader|tools}}

 

import qd, SDL_ttf, tools.time;

{{libheader|Flutter}}

view it on dartpad!

import 'dart:async' show Timer;

 

===HTML DOM===

{{libheader|Html Dom}}

import 'dart:async';

 

{{libheader| Vcl.StdCtrls}}

{{libheader| Vcl.ExtCtrls}}

unit Main;

 

end.</syntaxhighlight>

Form resource:

object Form1: TForm1

ClientHeight = 132

{{works with|E-on-Java}} (Java Swing; tested on Mac OS X 10.5.7)

 

var text := "Hello World! "

var leftward := false

Text-only version (no Java dependency; no clicking, use reverse() and stop() to control):

 

var text := "Hello World! "

var leftward := false

 

=={{header|Elm}}==

 

import Browser

=={{header|F Sharp|F#}}==

{{libheader|Windows Presentation Foundation}}

 

let str = "Hello world! "

 

=={{header|Factor}}==

ui.gadgets ui.gadgets.labels ui.gestures ;

FROM: models => change-model ;

=={{header|Fantom}}==

 

using concurrent

using fwt

=={{header|FBSL}}==

 

 

FBSLSETTEXT(ME, "Hello world! ")

To exit, push the window's closing cross. (255 + 107 is the combination that is passed to INKEY$ by that button.)

 

DIM DIRECTION AS BYTE = 0

DIM AS INTEGER X, Y, BTNS

 

=={{header|Gambas}}==

 

hLabel As Label 'Label needed to display the 'Hello World! " message

 

=={{header|Go}}==

 

import (

=={{header|Haskell}}==

Using simple graphics {{libheader|HGL}} from [http://hackage.haskell.org/packages/hackage.html HackageDB]

import Graphics.HGL.Draw.Monad (Graphic, )

import Graphics.HGL.Draw.Text

loop "Hello world ! " 1 )</syntaxhighlight>

Run within interpreter GHCi:

 

=={{header|HicEst}}==

 

WINDOW(WINdowhandle=wh, Height=1, X=1, TItle="left/right click to rotate left/right, Y-click-position sets milliseconds period")

The following code uses features exclusive to Unicon.

 

$include "guih.icn"

 

 

The following code uses features exclusive to Icon.

link graphics

 

=={{header|J}}==

{{works with|J8}}

MESSAGE =: 'Hello World! '

 

{{works with|J6}}

 

MESSAGE =: 'Hello World! '

=={{header|Java}}==

{{libheader|Swing}}

import java.awt.event.MouseEvent;

import java.awt.event.WindowAdapter;

 

=={{header|JavaScript}} + {{header|HTML}}==

<title>RC: Basic Animation</title>

<script type="text/javascript">

 

=={{header|JavaScript}} + {{header|SVG}}==

width="100" height="40">

<script type="text/javascript">

=={{header|Julia}}==

{{libheader|Julia/Tk}}

using Tk

 

</syntaxhighlight>

{{libheader|Julia/Gtk}}

using Gtk.ShortNames

=={{header|Kotlin}}==

{{trans|Java}}

 

import java.awt.Dimension

 

=={{header|Liberty BASIC}}==

txtLength = len(txt$)

direction=1

=={{header|Logo}}==

{{works with|UCB Logo}}

output lput first :thing butfirst :thing

end

=={{header|Lua}}==

{{works with|LÖVE}}

text = "Hello World! "

length = string.len(text)

Any Button can use a blink, a timer which return a changed value, true or false, but here we didn't use it (so we didn't Read from event's stack of values. We can place Stack statement to view this stack in console).

 

Module UseBlink {

Def boolean direction=True

We can use console as window too. Although we don't have events for this window, we can read mouse button. Also we use split screen so first line (line 0) has the title, and all other lines are cleared before we print on it, every 200ms

 

Module UseEvery {

Window 16, 6000,4000;

When a thread created saves the current layer, to use it in each iteration.

 

Module UseThread {

Def boolean direction=True

=={{header|Maple}}==

First, create a textbox, and by right-clicking it, and selecting component properties, change its name to "Text". Then, create 2 buttons, changing the caption on one to "Reverse", and the other to "Forward". In the edit click action of each respective button, you will put:

ScrollText(GP("Text",value),"Forward",65);

</syntaxhighlight>

and:

ScrollText(GP("Text",value),"Reverse",65);

</syntaxhighlight>

Then in the startup actions, accessed by clicking the 2 gears, add this:

macro(SP=DocumentTools:-SetProperty, GP=DocumentTools:-GetProperty);

SP("Text",value,"Hello World! ");

 

=={{header|Mathematica}} / {{header|Wolfram Language}}==

Scroll[str_, dir_] := StringJoin @@ RotateLeft[str // Characters, dir];

GiveString[dir_] := (mystring = Scroll[mystring, dir]);

Creates a window with a rotating label and 2 buttons to change the direction.

 

try destroydialog animGUI catch ()

 

=={{header|MiniScript}}==

{{works with|Mini Micro}}

text.inverse = true

s = "Hello World! "

=={{header|Nim}}==

{{libheader|gintro}}

 

type

 

=={{header|Oz}}==

import

Application

=={{header|Pascal}}==

===LCL (Lazarus)===

 

uses {$IFDEF UNIX} {$IFDEF UseCThreads}

 

=={{header|Perl}}==

use Time::HiRes qw(sleep);

 

{{libheader|Phix/pGUI}}

Clicking on the label changes the animation direction.

<span style="color: #000080;font-style:italic;">-- demo\rosetta\Animation.exw</span>

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

===Plain text===

A plain text version. The following script works in an XTerm window.

 

(prin "^[[?9h") # Mouse reporting on

The scrolling text is displayed in a button. Clicking on the button

reverses the scroll direction.

 

(load "@ext.l" "@lib/http.l" "@lib/xhtml.l" "@lib/form.l")

===Java/Swing===

This solution works on ErsatzLisp, the Java version of PicoLisp.

 

(setq

 

=={{header|Processing}}==

boolean dir = true;

 

When the user clicks on the (windowed) text, it should reverse its direction.

 

left = True

 

=={{header|Prolog}}==

SWI-Prolog has a grapghic interface XPCE.

 

animation :-

 

=={{header|PureBasic}}==

 

text$ = "Hello World! "

===Using PyQt===

{{libheader|PyQt5}}

import sys

 

===Using pygame===

{{libheader|pygame}}

from pygame.locals import *

pygame.init()

pygame.display.flip()</syntaxhighlight>

===Using Tkinter===

 

def scroll_text(s, how_many):

{{libheader|QB.QLB / QBX.QLB}}

 

'here accordingly to the version, QB or QBX

REM $INCLUDE: 'QBX.BI'

 

The basic principle is:create a window with a label in it, then add a handler to the label for rotating the string, and another for changing direction on a click. Use of the tag function allows you to store the text flow direction as an attribute of the label.

rotate_string <- function(x, forwards)

{

=={{header|Racket}}==

 

#lang racket/gui

 

 

This is a more functional approach - there is no explicit mutation, everything is handled through event callbacks.

#lang racket

(require racket/match)

{{works with|Rakudo|2019.03}}

 

use GTK::Simple::App;

 

 

=={{header|REBOL}}==

Title: "Basic Animation"

URL: http://rosettacode.org/wiki/Basic_Animation

]</syntaxhighlight>

=={{header|Red}}==

 

rev: false

=={{header|REXX}}==

This REXX version <u>only</u> works with REXX/Personal or REXX/PC.

parse upper version !ver !vernum .; !pcRexx= 'REXX/PERSONAL'==!ver | 'REXX/PC'==!ver

if \!pcRexx then do

 

=={{header|Ring}}==

# Project : Animation

 

{{trans|Tcl}}

{{libheader|Ruby/Tk}}

$str = TkVariable.new("Hello World! ")

$dir = :right

 

{{libheader|Shoes}}

@direction = 1

@label = para "Hello World! ", :family => 'monospace'

=={{header|Rust}}==

==={{libheader|GTK}}===

mod graphical {

extern crate gtk;

=={{header|Scala}}==

{{works with|Scala|2.8}}

import scala.actors.TIMEOUT

import scala.swing.{SimpleSwingApplication, MainFrame, Label}

 

=={{header|smart BASIC}}==

word$="Hello World! "

'use button window with text

=={{header|Standard ML}}==

Works with PolyML interpreter. Add loop for compilation.

open Motif ;

 

=={{header|Suneido}}==

{

Xmin: 50

This animation is defined as a smooth movement rather than by moving whole characters, because that is more natural in SVG (without scripting); by characters would require 13 different text elements displayed in sequence.

 

<g id="all">

<rect width="100%" height="100%" fill="yellow"/>

=={{header|Tcl}}==

{{libheader|Tk}}

set s "Hello World! "

set dir 0

=={{header|Vedit macro language}}==

It is not possible to detect mouse clicks while a macro is running. Therefore, the direction is controlled with Caps Lock key.

Win_Create(Buf_Num, 1, 1, 2, 14)

Ins_Text("Hello World! ")

This example shows code that is hidden by the IDE. (Form creation is done graphically within the IDE, not at runtime.)

 

Begin VB.Form Form1

Begin VB.Timer Timer1

=={{header|Wren}}==

{{libheader|DOME}}

import "dome" for Window

import "input" for Mouse

 

=={{header|XPL0}}==

int CpuReg, Dir, I, J;

char Str;

 

=={{header|Yabasic}}==

open window 400, 150

backcolor 0, 0, 0

{{trans|BBC BASIC}}

Replaces the detection of mouse click by pressing a key (Spectrum does not detect this device by default).

20 LET direction=1

30 PRINT AT 0,0;t$

60 IF INKEY$<>"" THEN LET direction=NOT direction

70 PAUSE 5: GO TO 30</syntaxhighlight>

 

{{omit from|ACL2}}

{{omit from|PHP}}

{{omit from|SQL PL|It does not handle GUI}}