Αναθεώρηση 36 - Έκδοση 13

Ένα πρόγραμμα που τρέχει στη νέα έκδοση:

 

ΤΜΗΜΑ ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ {
	ΑΔΕΙΑΣΕ
	ΑΝ ΟΧΙ ΕΓΚΥΡΟ(ΒΗΜΑΤΙΚΟ) ΤΟΤΕ ΒΗΜΑΤΙΚΟ=ΨΕΥΔΗΣ
	ΑΝ ΟΧΙ ΕΓΚΥΡΟ(ΚΑΘΑΡΙΣΕ) ΤΟΤΕ ΚΑΘΑΡΙΣΕ=ΑΛΗΘΗΣ
	ΑΝ ΟΧΙ ΕΓΚΥΡΟ(ΔΤ) ΤΟΤΕ ΔΤ=100
	ΑΝ ΟΧΙ ΕΓΚΥΡΟ(ΒΟΡΡΑΣ) ΤΟΤΕ ΒΟΡΡΑΣ=90
	ΑΝ ΟΧΙ ΕΓΚΥΡΟ(ΖΟΥΜ) ΤΟΤΕ ΖΟΥΜ=1
	ΑΝ ΟΧΙ ΕΓΚΥΡΟ(ΘΕΣΗΧ) ΤΟΤΕ ΘΕΣΗΧ=0
	ΑΝ ΟΧΙ ΕΓΚΥΡΟ(ΘΕΣΗΥ) ΤΟΤΕ ΘΕΣΗΥ=0

	ΛΟΓΙΚΟΣ η_πένα_γράφει=ΑΛΗΘΕΣ
	ΑΠΛΟΣ γωνία_πένας=(ΒΟΡΡΑΣ-90)*ΠΙ/180
	ΑΚΕΡΑΙΟΣ πάχος_γραμμής=1
	ΑΠΑΡ ΧΡΩΜΑΤΑ.ΠΕΝΑΣ {
		ΜΑΥΡΟ=#000000
		ΚΟΚΚΙΝΟ=#FF0000
		ΠΡΑΣΙΝΟ=#00FF00
		ΜΠΛΕ=#0000FF
	}
	ΣΥΝΑΡΤΗΣΗ ΕΙΚ(ΧΡ){
		ΣΧΕΔΙΟ 3000, 3000 {
			ΘΕΣΗ 0,0
			ΠΑΧΟΣ 4{
				ΧΑΡΑΞΕ ΕΩΣ 3000, 1500, ΧΡ
				ΧΑΡΑΞΕ ΕΩΣ 0, 3000, ΧΡ
				ΧΑΡΑΞΕ ΕΩΣ 1000, 1500, ΧΡ
				ΧΑΡΑΞΕ ΕΩΣ 0,0, ΧΡ
			}
		} ΩΣ ΒΕΛΟΣ
		=ΒΕΛΟΣ
	}	
	ΟΜΑΛΑ ΝΑΙ
	ΒΕΛΟΣ=ΕΙΚ(0)
	ΑΝ ΚΑΘΑΡΙΣΕ ΤΟΤΕ ΟΘΟΝΗ,0
	ΚΡΑΤΗΣΕ
	ΑΝ ΤΜΗΜΑ(ΓΡΑΦΙΚΟ) ΤΟΤΕ ΚΑΛΕΣΕ ΤΟΠΙΚΑ ΓΡΑΦΙΚΟ
	ΑΦΗΣΕ
	ΑΝΑΝΕΩΣΗ 25
	ΠΕΝΑ 0
	ΤΕΛΟΣ
	// Ακολουθούν οι έτοιμες ρουτίνες)
	ΡΟΥΤΙΝΑ ΔΕΙΞΕ.ΓΡΑΜΜΑ(Γ$, ΠΟΥ, ΧΡ=0&, ΜΕΓ=100, ΠΕΡ=0)
		ΒΑΛΕ_ΦΟΝΤΟ()
		ΠΟΥ-=ΒΟΡΡΑΣ+ΠΕΡ
		'ΒΗΜΑ 0, -ΚΛΙΜΑΞ.Υ/ΥΨΟΣ
		ΒΗΜΑ ΓΩΝΙΑ -ΠΟΥ/180*ΠΙ, 300*ΜΕΓ/100*ΖΟΥΜ
		ΠΕΝΑ ΧΡ {ΕΠΙΓΡΑΦΗ Γ$,ΓΡΑΜΜΑΤΟΣΕΙΡΑ$,ΤΥΠΟΣ*ΜΕΓ/100*ΖΟΥΜ, (ΒΟΡΡΑΣ-90+ΠΕΡ)*ΠΙ/180, 2}
		ΒΗΜΑ ΓΩΝΙΑ -ΠΟΥ/180*ΠΙ, -300*ΜΕΓ/100*ΖΟΥΜ
		'ΒΗΜΑ 0, ΚΛΙΜΑΞ.Υ/ΥΨΟΣ
		ΒΑΛΕ_ΒΕΛΟΣ()
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	ΡΟΥΤΙΝΑ ΠΕΝΑ.ΜΑΥΡΗ()
		ΠΕΝΑ #000000
		ΒΕΛΟΣ=ΕΙΚ(ΠΕΝΑ)
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ	
	ΡΟΥΤΙΝΑ ΠΕΝΑ.ΚΟΚΚΙΝΗ()
		ΠΕΝΑ #FF0000
		ΒΕΛΟΣ=ΕΙΚ(ΠΕΝΑ)
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ	
	ΡΟΥΤΙΝΑ ΠΕΝΑ.ΠΡΑΣΙΝΗ()
		ΠΕΝΑ #00FF00
		ΒΕΛΟΣ=ΕΙΚ(ΠΕΝΑ)
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	ΡΟΥΤΙΝΑ ΠΕΝΑ.ΜΠΛΕ()
		ΠΕΝΑ #0000FF
		ΒΕΛΟΣ=ΕΙΚ(ΠΕΝΑ)		
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	ΡΟΥΤΙΝΑ ΚΕΝΤΡΟ.ΟΘΟΝΗΣ()
		ΒΑΛΕ_ΦΟΝΤΟ()
		ΘΕΣΗ (ΚΛΙΜΑΞ.Χ ΔΙΑ 2)+ΘΕΣΗΧ, (ΚΛΙΜΑΞ.Υ ΔΙΑ 2)+ΘΕΣΗΥ
		ΒΑΛΕ_ΒΕΛΟΣ()
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	ΡΟΥΤΙΝΑ ΘΕΣΗ.ΟΘΟΝΗΣ(Χ, Υ)
		ΒΑΛΕ_ΦΟΝΤΟ()
		ΘΕΣΗ Χ+ΘΕΣΗΧ, Υ+ΘΕΣΗΥ
		ΒΑΛΕ_ΒΕΛΟΣ()		
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	ΡΟΥΤΙΝΑ ΠΑΧΟΣ.ΓΡΑΜΜΗΣ(τόσο ΩΣ ΑΚΕΡΑΙΟΣ)
		ΑΝ τόσο<1 ΤΟΤΕ τόσο=1
		ΑΝ τόσο>15 ΤΌΤΕ τόσο=15
		πάχος_γραμμής=τόσο
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	ΡΟΥΤΙΝΑ ΠΕΝΑ.ΠΑΝΩ()
		η_πένα_γράφει=ΨΕΥΔΕΣ
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	ΡΟΥΤΙΝΑ ΠΕΝΑ.ΚΑΤΩ()
		η_πένα_γράφει=ΑΛΗΘΕΣ
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	ΡΟΥΤΙΝΑ ΧΑΡΑΞΕ.ΚΥΚΛΟ(ακτίνα)
		ΒΑΛΕ_ΦΟΝΤΟ()
		ΑΝ η_πένα_γράφει ΤΟΤΕ
			ΠΑΧΟΣ πάχος_γραμμής {
				ΚΥΚΛΟΣ ακτίνα
			}
		ΤΕΛΟΣ ΑΝ
		ΒΑΛΕ_ΒΕΛΟΣ()
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	ΡΟΥΤΙΝΑ ΧΑΡΑΞΕ.ΤΟΜΕΑ(ακτίνα, αρχ=0, τελ=360, ΠΕΡ=0)
		ΒΑΛΕ_ΦΟΝΤΟ()`
		ΑΝ η_πένα_γράφει ΤΟΤΕ
			ΠΑΧΟΣ πάχος_γραμμής {
				ΚΥΚΛΟΣ ακτίνα,1,ΠΕΝΑ,(ΒΟΡΡΑΣ-αρχ+ΠΕΡ)/180*ΠΙ, (ΒΟΡΡΑΣ-τελ+ΠΕΡ)/180*ΠΙ;
			}
		ΤΕΛΟΣ ΑΝ
		ΒΑΛΕ_ΒΕΛΟΣ()
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	ΡΟΥΤΙΝΑ ΤΡΑΒΑ.ΜΠΡΟΣΤΑ(απόσταση)
		απόσταση*=ΖΟΥΜ
		ΒΑΛΕ_ΦΟΝΤΟ()
		ΑΝ η_πένα_γράφει ΤΟΤΕ
			ΠΑΧΟΣ πάχος_γραμμής {
				ΑΝ ΒΗΜΑΤΙΚΟ ΤΟΤΕ
					ΤΟΠΙΚΕΣ ΒΗΜ=ΑΠΟΛ(απόσταση) ΔΙΑ 300
					ΑΝ ΒΗΜ>0 ΤΟΤΕ
						ΤΟΠΙΚΗ ΒΗΜ1=300*ΣΗΜ(απόσταση)
						ΒΗΜΑ ΓΩΝΙΑ γωνία_πένας, απόσταση
						ΤΟΠΙΚΕΣ Ι ΩΣ ΑΚΕΡΑΙΟΣ, ΧΘ=ΘΕΣΗ.Χ, ΥΘ=ΘΕΣΗ.Υ
						ΒΗΜΑ ΓΩΝΙΑ γωνία_πένας, -απόσταση
						ΓΙΑ Ι=1 ΕΩΣ ΒΗΜ
							ΧΑΡΑΞΕ ΓΩΝΙΑ γωνία_πένας, ΒΗΜ1
							ΒΑΛΕ_ΒΕΛΟΣ()
							ΒΑΛΕ_ΦΟΝΤΟ()															 
						ΕΠΟΜΕΝΟ Ι
						ΧΑΡΑΞΕ ΕΩΣ ΧΘ, ΥΘ
					ΑΛΛΙΩΣ
						ΧΑΡΑΞΕ ΓΩΝΙΑ γωνία_πένας, απόσταση
					ΤΕΛΟΣ ΑΝ					 
				ΑΛΛΙΩΣ
					ΧΑΡΑΞΕ ΓΩΝΙΑ γωνία_πένας, απόσταση
				ΤΕΛΟΣ ΑΝ
			}
		ΑΛΛΙΩΣ
			ΑΝ ΒΗΜΑΤΙΚΟ ΤΟΤΕ
				ΤΟΠΙΚΕΣ ΒΗΜ=ΑΠΟΛ(απόσταση) ΔΙΑ 300
				ΑΝ ΒΗΜ>0 ΤΟΤΕ
					ΤΟΠΙΚΗ ΒΗΜ1=300*ΣΗΜ(απόσταση)
					ΒΗΜΑ ΓΩΝΙΑ γωνία_πένας, απόσταση
					ΤΟΠΙΚΕΣ Ι ΩΣ ΑΚΕΡΑΙΟΣ, ΧΘ=ΘΕΣΗ.Χ, ΥΘ=ΘΕΣΗ.Υ
					ΒΗΜΑ ΓΩΝΙΑ γωνία_πένας, -απόσταση
					ΓΙΑ Ι=1 ΕΩΣ ΒΗΜ
						ΒΗΜΑ ΓΩΝΙΑ γωνία_πένας, ΒΗΜ1
						ΒΑΛΕ_ΒΕΛΟΣ()
						ΒΑΛΕ_ΦΟΝΤΟ()															 
					ΕΠΟΜΕΝΟ Ι
					ΘΕΣΗ ΧΘ, ΥΘ
				ΑΛΛΙΩΣ
					ΒΗΜΑ ΓΩΝΙΑ γωνία_πένας, απόσταση
				ΤΕΛΟΣ ΑΝ					 						 
			ΑΛΛΙΩΣ
				ΒΗΜΑ ΓΩΝΙΑ γωνία_πένας, απόσταση
			ΤΕΛΟΣ ΑΝ
		ΤΕΛΟΣ ΑΝ
		ΒΑΛΕ_ΒΕΛΟΣ()
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	
	ΡΟΥΤΙΝΑ ΧΑΡΑΞΕ.ΠΙΣΩ(απόσταση)
		ΤΡΑΒΑ.ΜΠΡΟΣΤΑ(-απόσταση)
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	
	ΡΟΥΤΙΝΑ ΣΤΡΙΨΕ.ΔΕΞΙΑ(γωνία_σε_μοίρες)
		ΒΑΛΕ_ΦΟΝΤΟ()
		γωνία_πένας-=γωνία_σε_μοίρες/180*ΠΙ
		ΒΑΛΕ_ΒΕΛΟΣ()
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	
	ΡΟΥΤΙΝΑ ΣΤΡΙΨΕ.ΠΡΟΣ(γωνία_σε_μοίρες)
		ΒΑΛΕ_ΦΟΝΤΟ()
		γωνία_πένας=(γωνία_σε_μοίρες+ΒΟΡΡΑΣ-90)/180*ΠΙ
		ΒΑΛΕ_ΒΕΛΟΣ()
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ	
	
	ΡΟΥΤΙΝΑ ΒΑΛΕ_ΦΟΝΤΟ()
		ΑΦΗΣΕ
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	
	ΡΟΥΤΙΝΑ ΒΑΛΕ_ΒΕΛΟΣ()
		ΚΡΑΤΗΣΕ
		ΕΙΚΟΝΑ ΒΕΛΟΣ, 600,,γωνία_πένας*180/ΠΙ
		ΑΝΑΝΕΩΣΗ 1000
		ΑΝΑΜΟΝΗ ΔΤ
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
}
ΤΜΗΜΑ ΠΡΟΓΡΑΜΜΑ1 {
	ΚΕΝΤΡΟ.ΟΘΟΝΗΣ()
	ΠΑΧΟΣ.ΓΡΑΜΜΗΣ(4)
	ΠΕΝΑ.ΚΟΚΚΙΝΗ()
	ΖΖ=13
	ΣΤΡΙΨΕ.ΔΕΞΙΑ(ΖΖ)
	ΔΕΙΞΕ.ΓΡΑΜΜΑ("Α", 225,,,-ΖΖ)
	ΤΡΑΒΑ.ΜΠΡΟΣΤΑ(4000)
	ΔΕΙΞΕ.ΓΡΑΜΜΑ("90°     ", -20, ΜΠΛΕ,200, -ΖΖ)
	ΠΕΝΑ.ΜΑΥΡΗ()
	ΧΑΡΑΞΕ.ΤΟΜΕΑ(300, -5, 275, -ΖΖ)
	ΠΕΝΑ.ΚΟΚΚΙΝΗ()
	ΔΕΙΞΕ.ΓΡΑΜΜΑ("Β", 135,,,-ΖΖ)
	ΣΤΡΙΨΕ.ΔΕΞΙΑ(270)
	ΤΡΑΒΑ.ΜΠΡΟΣΤΑ(3000)
	ΔΕΙΞΕ.ΓΡΑΜΜΑ("Γ",45,,,-ΖΖ)
	ΣΤΡΙΨΕ.ΔΕΞΙΑ(270-ΤΟΞ.ΕΦ(3000/4000))
	ΤΡΑΒΑ.ΜΠΡΟΣΤΑ(5000)
	ΣΤΡΙΨΕ.ΠΡΟΣ(180)
	ΠΕΝΑ.ΠΑΝΩ()
	ΤΡΑΒΑ.ΜΠΡΟΣΤΑ(6000)
	ΠΕΝΑ.ΚΑΤΩ()
	ΠΕΝΑ.ΠΡΑΣΙΝΗ()
	ΣΠΙΤΙ(5000)	
	ΡΟΥΤΙΝΑ ΣΠΙΤΙ(n)
			ΤΟΠΙΚΗ ι
			ΓΙΑ ι=1 ΕΩΣ 3	
				ΣΤΡΙΨΕ.ΔΕΞΙΑ(120)
				ΤΡΑΒΑ.ΜΠΡΟΣΤΑ(n)
			ΕΠΟΜΕΝΟ
			ΣΤΡΙΨΕ.ΔΕΞΙΑ(90)
			ΠΑΡΑΛΛΗΛΟΓΡΑΜΜΟ(n, n)
			ΣΤΡΙΨΕ.ΔΕΞΙΑ(90)
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
	ΡΟΥΤΙΝΑ ΠΑΡΑΛΛΗΛΟΓΡΑΜΜΟ(w, h)
		ΤΟΠΙΚΗ ι
		ΓΙΑ ι=1 ΕΩΣ 2
			ΣΤΡΙΨΕ.ΔΕΞΙΑ(90)	
			ΤΡΑΒΑ.ΜΠΡΟΣΤΑ(h)
			ΣΤΡΙΨΕ.ΔΕΞΙΑ(90)
			ΤΡΑΒΑ.ΜΠΡΟΣΤΑ(w)
		ΕΠΟΜΕΝΟ
	ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
}
ΠΕΡΙΘΩΡΙΟ {ΟΘΟΝΗ 15, 0}
ΟΘΟΝΗ 15,0
ΠΕΝΑ 0
Α$=ΚΟΜ$
ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ %ΒΗΜΑΤΙΚΟ=ΑΛΗΘΕΣ, %ΔΤ=30, %ΘΕΣΗΧ=-ΚΛΙΜΑΞ.Χ / 2.8, %ΒΟΡΡΑΣ=190, %ΖΟΥΜ=0.9;  ΓΡΑΦΙΚΟ ΩΣ ΠΡΟΓΡΑΜΜΑ1
ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ %ΒΗΜΑΤΙΚΟ=ΑΛΗΘΕΣ, %ΔΤ=30, %ΚΑΘΑΡΙΣΕ=ΨΕΥΔΕΣ,  %ΘΕΣΗΧ=ΚΛΙΜΑΞ.Χ / 2.8, %ΒΟΡΡΑΣ=10, %ΖΟΥΜ=0.9;  ΓΡΑΦΙΚΟ ΩΣ ΠΡΟΓΡΑΜΜΑ1
ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ %ΒΗΜΑΤΙΚΟ=ΑΛΗΘΕΣ, %ΔΤ=30, %ΚΑΘΑΡΙΣΕ=ΨΕΥΔΕΣ,  %ΘΕΣΗΥ=-ΚΛΙΜΑΞ.Υ / 3.8, %ΒΟΡΡΑΣ=100, %ΖΟΥΜ=0.7;  ΓΡΑΦΙΚΟ ΩΣ ΠΡΟΓΡΑΜΜΑ1
ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ %ΒΗΜΑΤΙΚΟ=ΑΛΗΘΕΣ, %ΔΤ=30, %ΚΑΘΑΡΙΣΕ=ΨΕΥΔΕΣ,  %ΘΕΣΗΥ=ΚΛΙΜΑΞ.Υ / 3.8, %ΒΟΡΡΑΣ=280, %ΖΟΥΜ=0.7;  ΓΡΑΦΙΚΟ ΩΣ ΠΡΟΓΡΑΜΜΑ1
ΔΡΟΜΕΑΣ 0,0
ΤΥΠΩΣΕ "ΓΡΑΦΙΚΑ ΧΕΛΩΝΑΣ"
Α$=ΚΟΜ$