Programmeren in TI-Basic/Pixels en punten

Pixels en punten zijn nauw verbonden met het graphscreen. Het lcd-scherm is 95 pixels breed en 63 pixels hoog. Het menu waar we het in dit hoofdstuk over hebben is het DRAW:POINTS-menu.

DRAW  [POINTS]  STO
1:Pt-ON(
2:Pt-Off(
3:Pt-Change(
4:Pxl-On(
5:Pxl-Off(
6:Pxl-Change(
7:pxl-Test(

Punten

De eerste drie functies uit dit menu, Pt-ON( , Pt-Off( , Pt-Change( , zijn de functies die bij punten horen. Punten worden gekenmerkt doordat ze een X en een Y-coordinaat hebben die gerelateerd is aan de X-min, X-max, Y-min en Y-max waardes.

Met Pt-ON(X,Y zet je het punt aan met deze X en Y coordinaat, of deze nou binnen of buiten het zichtbare scherm zit. Met Pt-Off(X,Y zet je het punt uit met X en Y-coordinaat. Met Pt-Change(X,Y verander het punt met X en Y-coordinaat naar 'uit' als deze aan staat, of naar 'aan' als deze uit staat.

We nemen als voorbeeld:

PROGRAM:TEST
:ZStandard                 (-10,10)x(-10,10)
:For(A,1,10
:For(B,1,10
:Pt-ON(A,B                 (De pixels in het vierkant rechtsboven worden aangezet)
:End:End
:Pause                     (Geniet er even van en druk op enter)
:For(A,3,5
:For(B,4,6
:Pt-Off(A,B                (Een kleiner vierkant wordt uitgezet)
:End:End
:Pause                     (geniet met mate....)
:For(A,1,15
:For(B,1,15                (om te bewijzen dat ook buiten het scherm verder gegaan wordt...)
:Pt-Change(A,B             (het volledige vierkant wordt veranderd naar het tegenovergestelde)
:End:End
:Pause                     (relax)
:16→Xmax:16→Ymax           (zie het resultaat...)

Pixels

Hier wordt de afstand tussen van de linkerkant cq. bovenkant van het scherm bekeken. Waar Pt-On(10,10 nog het pixeltje was helemaal rechtsbovenaan, is Pxl-On(10,10 het pixeltje 10 van links en 10 van boven. De functies werken hetzelfde. Er is met pxl-test wel een nieuwe functie bijgekomen en die zal ik nog even toelichten. Voor een demonstratie van Pxl-On, Pxl-Off en Pxl-Change gebruik Program:TEST met pxl in plaats van pt.

pxl-Test

Deze functie controleert of de pixel op het scherm, die gegeven is door de X- en Y-coördinaten die je meegeeft aan de functie, zwart of wit is. Als de pixel wit is, geeft de functie 0 terug, anders geeft deze 1 terug. Dit is een erg handige functie, vooral bij het maken van spellen. Voorbeeld

:If pxl-Test(0,0):Then
:Text(10,0,"Pixel linksboven is aan")
:Else
:Text(10,0,"Pixel linksboven is uit")
:End