Pour le manuel, cliquez ici.
Tout d'abord, quelques indications à propos des sources:
  -> mise en mémoire (10->A)
  => implication (A=10=>Goto A)
  sqr racine carrée

Il faut appuyer sur la touche correspondant à celle décrite dans le programme sans être en alpha mode (ex: pour B, appuyez sur Log)

ATTENTION:
Lorsque vous lancez ce programme, un rectangle noir s'affichera par intermittence en haut à droite, comme s'il chargait. Ne vous laissez pas abuser par cette fourberie: le programme est déjà lancé, vous n'avez plus qu'à appuyer sur une touche...

// Fichier A-TRACER
// Taille: 2201 octets
// Auteur: Gfx alias Romain GUY
// Version: 5.0
// Testé sur: Casio fx-8930 GT

0->A~Z:AxesOff:CoordOff:LabelOff:GridOff
ViewWindow 0,126,0,0,62,0
Lbl 0
ClrText:4->L
Locate 5,1,"ALPHA<>TRACER"
Locate 9,2,"V5.0"
Locate 1,4,"> GO!!"
Locate 3,5,"KEYS"
Locate 10,5,"BY GFX"
Locate 3,6,"ABOUT"
Locate 3,7,"QUIT"
Lbl 9
Getkey=28=>Goto Y
Getkey=37=>Goto Z
Getkey=31=>Goto 5
Goto 9
Lbl 5
L=4=>Goto 3
L=5=>Goto 2
L=6=>Goto 4
L=7=>Goto X
Lbl Y
Dsz L
L<4=>7->L
Goto W
Lbl Z
Isz L
L>7=>4->L
Lbl W
For 4->A To 7
Locate 1,A," "
Next
Locate 1,L,">"
Goto 9
Lbl 2
Cls
Text 1,1,"KEYS:"
Text 14,1,"F1 -> INTRO"
Text 21,1,"F2 -> KEYS"
Text 28,1,"F3 -> ABOUT"
Text 35,1,"F4 -> QUIT"
Text 42,1,"F5 -> SAVE"
Text 49,1,"F6 -> OPEN"
Text 1,70,"B -> BOX"
Text 7,70,"C -> CIRCLE"
Text 14,70,"D -> DEL PIX"
Text 21,70,"E -> CLEAR SCR"
Text 28,70,"F -> F CIRCLE"
Text 35,70,"G -> ERASER"
Text 42,70,"H -> H LINE"
Text 49,70,"L -> LINE"
Text 56,70,"M -> D LINE"
Cls
Text 1,1,"KEYS(2):"
Text 14,1,"N -> NEGATIV"
Text 21,1,"P -> PIXEL"
Text 28,1,"T -> TRIANGLE"
Text 35,1,"V -> V LINE"
Text 42,1,". -> COORDS"
Goto 0
Lbl X
Cls
Text 1,1,"ALPHA TRACER"
Text 7,1,"(C)1997-1998 Gfx"
Text 21,1,"HTTP://WWW.CHEZ.COM/POWERTEAM"
Text 28,1,"POWERTEAM@CHEZ.COM"
Text 42,1,"HAVE A NICE DAY !!"
A=1=>Goto 0
ViewWindow -6.3,6.3,1,-3.1,3.1,1
AxesOn:Cls:ClrText:CoordOn:Stop
Lbl 3
Cls:2->r
63->X:31->Y
Lbl 1
0->A~W
Plot -1,-1
X->A:Y->B
Getkey=79=>Goto 0
Getkey=69=>Goto 2
Getkey=59=>Goto 4
Getkey=49=>Goto X
Getkey=64=>Goto N
Getkey=36=>Goto E
Getkey=66=>Goto B
Getkey=56=>Goto C
Getkey=26=>Goto F
Getkey=65=>Goto H
Getkey=62=>Goto V
Getkey=25=>Goto L
Getkey=29=>2->Z
Getkey=29=>Goto O
Getkey=39=>1->Z
Getkey=39=>Goto O
Getkey=73=>Goto P
Getkey=46=>Goto D
Getkey=33=>Goto T
Getkey=61=>Goto U
Getkey=75=>Goto G
Getkey=74=>Goto M
Goto 1
Lbl M
Plot A,B
X->A:Y->B
Plot X,Y
If X=A:Then If Abs (Y-B)=1:Then 0->K:62->L:Else B->K:Y->L:IfEnd:For K->I To L:PlotOff X,I:Next:IfEnd
If Y=B:Then If Abs (X-A)=1:Then 0->K:126->L:Else A->K:X->L:IfEnd:For K->I To L:PlotOff I,Y:Next:IfEnd
F-Line -1,-1,-2,-2
A->X:B->Y
Goto 1
Lbl N
X->C:Y->D
For 63->C To 1 Step -1
For 1->D To 127
Getkey=71=>Goto 1
PxlChg C,D
Next
Next
C->X:D->Y
Goto 1
Lbl U
If r=1:Then CoordsOff:2->r:Goto 1:Else CoordOn:1->r:IfEnd
Goto 1
Lbl E
Cls
Goto 1
Lbl B
Plot A,B
X->A:Y->B
Plot X,Y
Line
Plot X,Y
Line
Plot X,Y
Line
Plot A,B
Line
PlotOn X,Y
Goto 1
Lbl C
Plot A,B
X->A:Y->B
Plot X,Y
sqr((X-A)²+(Y-B)²)->G
PlotOff A,B
Circle A,B,G
Goto 1
Lbl F
Plot A,B
X->A:Y->B
Plot X,Y
sqr ((X-A)²+(Y-B)²)->R
For 1->E To 360
Getkey=71=>Goto 1
F-Line A,B,cos E*R+A,sin E*R+B
Next
Goto 1
Lbl V
Plot A,B
Vertical X
Goto 1
Lbl H
Plot A,B
Horizontal Y
Goto 1
Lbl L
Plot A,B
Plot X,Y
Line
Goto 1
Lbl O
X->C:Y->D
ClrText
Z=1=>"SAVE TO:"
Z=1=>"1, 2, 3, 4, 5, 6 "?->S
Z=2=>"LOAD FROM:"
Z=2=>"1, 2, 3, 4, 5, 6 "?->R
Z=2=>Cls
S=1=>StoPict 1
S=2=>StoPict 2
S=3=>StoPict 3
S=4=>StoPict 4
S=5=>StoPict 5
S=6=>StoPict 6
R=1=>RclPict 1
R=2=>RclPict 2
R=3=>RclPict 3
R=4=>RclPict 4
R=5=>RclPict 5
R=6=>RclPict 6
C->X:D->Y
Goto 1
Lbl P
Plot A,B
Plot X,Y
Goto 1
Lbl D
Plot A,B
PlotOff X,Y
F-Line -2,-2,-2,-2
Goto 1
Lbl T
Plot A,B
X->A:Y->B
Plot X,Y
Line
Plot X,Y
Line
Plot A,B
Line
Goto 1
Lbl G
Plot A,B
X->A:Y->B
Plot X,Y
sqr ((X-A)²+(Y-B)²)->R
For 0->E To Abs R
For 1->I To 360
Getkey=71=>Goto 1
PlotOff cos I*E+A,sin I*E+B
Next
Next
Goto 1
Lbl 4
1->A:Goto X

<< Sommaire >>