WERKEN MET AMOS deel 37 """"""""""""""""""""""" POLYLINE (Meervoudige lijnen tekenen) POLYLINE lijkt op DRAW behalve dan dat het verschillende lijnen in een keer tekent. Het is dus mogelijk om met een enkele regel ingewikkelde lege polygonen te tekenen. POLYLINE x1,y1 To x2,y2 To x3,y3 POLYLINE to x1,y1, to x2,y2 De x1,y1 is dus het koordinaat van punt een, x2,y2 is het koordinaat van punt twee en x3,y3 is het koordinaat van punt drie. Dus de eerste regel tekent van punt 1 naar 2, de tweede van 2 naar 3 en zo verder. Op een andere manier kan het met het volgende: Draw x1,y1 To x2,y2 Draw To x3,y3 Draw To x4,y4 Hier een makkelijk voorbeeld wat een driehoek om je scherm tekent: Polyline 0,20 To 200,20 To 100,100 To 0,20 Zie ook SET LINE, INK en POLYGON. CIRCLE (Tekent een lege cirkel) CIRCLE x,y,r Het cirkel kommando tekent een lege cirkel met een straal r en het midden geplaatst op een x,y koordinaat. Curs Off: Flash Off: Randomize Timer Do Ink Rnd(15) X=Rnd(200):Y=Rnd(100):R=Rnd(90):Circle X,Y,R Loop Als gewoonlijk kun je de koordinaten aan dit kommando toevoegen, de cirkel wordt vanuit de huidige cursorpositie getekend. Bijvoorbeeld: Plot 100,100 : Circle ,,50 ELLIPSE (Tekent een lege ellips) ELLIPSE x,y,r1,r2 De ellips instruktie tekent een lege ellips op de koordinaten x,y. r1 is de horizontale straal. Het komt overeen met exact de halve breedte van de ellips. r2 is de vertikale straal en hiermee wordt de hoogte van de ellips bepaald. De totale hoogte van de ellips is 2xr. De stralen van een ellips Curs Off:Flash Off: Randomize Timer Do Ink Rnd(15):X=Rnd(200):Y=Rnd(100):R1=Rnd(90):R2=Rnd(90) Ellipse X,Y,R1,R2 Loop Lijn soorten """""""""""" AMOS Basic geeft je ook de mogelijkheid om een lijn te tekenen met een heel skala aan lijnsoorten. SET LINE (Zet de lijnsoorten) SET LINE mask Het SET LINE kommando kan ook ingezet worden om de lijnen te bepalen van de teken kommando's DRAW, BOX en POLYLINE. Mask is een 16-bit binair (tweetallig) getal die de juiste verschijningsvorm van de lijn omschrijft. Elke punt in een lijn in de huidige ink kleur gezet wordt door zo'n getal bepaald. En elke punt die als achtergrond kleur dient wordt als nul omschreven. Dus een normale lijn wordt in het tweetallig stelsel geschreven als %11111111111111111 en geeft een _________. Op dezelfde manier krijg je een stippellijn omschreven :_ _ _ _ _ _ _ _ _ _, die een mask heeft van %1111000011110000. Door de mask een waarde te geven tussen de 0 en de 65.535, is het mogelijk om een grote verscheidenheid in de lijnen te maken. Bijvoorbeeld: Set Line $F0F0 Bx 50,100 To 150,150 Deze lijnsoort kan alleen met rechte lijnen. Op het CIRCLE en ELLIPSE kommando heeft zo'n mask dus geen effekt.