F-lines op de CGX
Geplaatst: 29 mar 2006, 18:21
Hey allemaal,
Zoals je weet zijn er veel spellen waarin het command F-line voorkomt. Zoals je ook weet maakt dit het programma (bij meerdere lijnen) erg traag.
Ik heb nu de F-lines vervangen voor een ander command. Het volgende programma maakt een ster die over je beeldscherm beweegt:
ViewWindow 1,127,0,63,1,0
FuncOff
S-WindMan
S-Gph1 DrawOn,xyline,list1,list2,1,Dot
{2,10,18,1,19,1}->List 1
{19,1,19,7,7,19}->List 2
-60->A:-28->B
Lbl 0
Getkey
Ans=0=>Goto 0
Ans=38=>A+10->A
Ans=27=>A-10->A
Ans=37=>B-10->B
Ans=28=>B-10->B
ViewWindow 1+A,127+A,0,63+B,1+B,0
DrawStat
Goto 0
Zoals je ziet is dit veel sneller
Uitleg: (ik neem aan dat je de getkey wel snapt)
Het programma neemt eerst het punt List 1[1],List 1[2]. Daartussen wordt een lijn getekend. Zo kun je dus opeenvolgend veel lijnen tekenen. De Dot betekent dat ie puntjes tekent als verbindingsstuk (probeer ook eens square en cross)
Zoals je weet zijn er veel spellen waarin het command F-line voorkomt. Zoals je ook weet maakt dit het programma (bij meerdere lijnen) erg traag.
Ik heb nu de F-lines vervangen voor een ander command. Het volgende programma maakt een ster die over je beeldscherm beweegt:
ViewWindow 1,127,0,63,1,0
FuncOff
S-WindMan
S-Gph1 DrawOn,xyline,list1,list2,1,Dot
{2,10,18,1,19,1}->List 1
{19,1,19,7,7,19}->List 2
-60->A:-28->B
Lbl 0
Getkey
Ans=0=>Goto 0
Ans=38=>A+10->A
Ans=27=>A-10->A
Ans=37=>B-10->B
Ans=28=>B-10->B
ViewWindow 1+A,127+A,0,63+B,1+B,0
DrawStat
Goto 0
Zoals je ziet is dit veel sneller
Uitleg: (ik neem aan dat je de getkey wel snapt)
Het programma neemt eerst het punt List 1[1],List 1[2]. Daartussen wordt een lijn getekend. Zo kun je dus opeenvolgend veel lijnen tekenen. De Dot betekent dat ie puntjes tekent als verbindingsstuk (probeer ook eens square en cross)