Treti parameter v prikaze DRAW

     Prvy program velmi pekne demonstruje pouzitie tretieho parametra v prikaze DRAW. Ked ho spustite od riadku 30 tak sa spusti kratke demo, ktore vam same predvedie rozne moznosti. Pri spusteni od riadku 20 si aj sami mozete zadavat rozne hodnoty. Najlepsie obrazce sa vytvoria pri zadavani celych neparnych cisel. Ak si chcete nakreslit N-uholnik, zadajte ako parameter najblizsie cele neparne cislo k hodnote 504/N. Tymto sposobom si mozete nechat nakreslit aj klasicke N-uholniky (trojuholnik, stvoruholnik, pet...), ale aj take exoticke ako napr. dvojuholnik, dva a pol uholnik a dokonca aj jednouholnik...

10 REM Zazrak 01.01 15.12.1993
20 INPUT a: CLS : PLOT 68,28: DRAW 120,120,PI*a: GO TO 20
30 LET i=INT (1.9*RND): LET o=INT (1.9*RND)*(i=0): LET p=2*INT (252*RND)+1: INPUT INKEY$: PRINT #0;"Parameter:";p;" Invers:";i;" Over:";o: PLOT 68,28: DRAW OVER o; INVERSE i;120,120,PI*p: GO TO 30
DRAW 120,120,253*PI

     Jedna poznamka k programu: Pri vypocte hodnoty pre OVER je tato hodnota nasobena clenom (i=0). Je to tak preto, aby nenastal pripad, ze aj OVER a aj INVERSE budu mat hodnotu jedna a tym padom by prikaz DRAW nemal ziadny ucinok.

     Na obrazku vidite vysledok prikazov PLOT 68,28 : DRAW 120,120,253*PI.