Animations

Ceci est une présentations de programmes pour animer. Vous pouvez en mettre plusieurs dans même programme. Pour interrompre l'exécution vous pressez les touches ON et 2.

PROGRAM: EFFACE

: FNOFF :PLOTSOFF
: 1®XMIN
: 63®XMAX
: 64®XSCL
: 1®YMIN
: 47®YMAX
: 48®YSCL
: DISPGRAPH
: CLRDRAW

: (XMIN+XMAX)/2®Z
: (YMIN+YMAX)/2®W
: FOR(Y,1,2)
: FOR(X,XMIN,XMAX,2,¤X)
: LINE(Z,YMAX,X,W)
: LINE(Z,YMIN,X,W)
: END
: CLRDRAW
: FOR(X,YMIN,YMAX,2,¤X)
: LINE(XMIN,W,Z,X))
: LINE(XMAX,W,Z,X)
: END
: END

: (XMIN+XMAX)/2®Z
: (YMIN+YMAX)/2®W
: CLRDRAW
: FOR(X,XMIN,Z,¤X)
: LINE(Z+X,W+X,Z+XW-X)
: LINE(Z+X,W-X,Z-XW-X)
: LINE(Z-X,W-X,Z-XW+X)
: LINE(Z-X,W+X,Z+XW+X)
: END
:

PROGRAM: NEIGE

: FOR(X,1,20)
: DISP "* * * * * * * *"
: DISP " * * * * * * * *"
: END

PROGRAM: REMPLIR

: FOR(X,YMIN,YMAX,¤Y)
: HORIZONTAL X
: END
: CLRDRAW
: FOR(X,XMIN,XMAX,¤X)
: VERTICAL X
: END

PROGRAM: DOUBLE

: FOR(X,XMIN,XMAX,2¤X)
: HORIZONTAL X
: VERTICAL X
: END

PROGRAM: DEPLACE

: FOR(X,YMIN,YMAX,¤Y)
: CLRDRAW
: HORIZONTAL X
: END

: FOR(X,XMIN,XMAX,¤X)
: CLRDRAW
: VERTICAL X
: END

PROGRAM: FERMER

: FOR(X,YMIN,YMAX/2,¤Y)
: HORIZONTAL X
: HORIZONTAL YMAX-X
: END

: FOR(X,XMIN,XMAX/2,¤X)
: HORIZONTAL X
: HORIZONTAL YMAX-X
: END