Τρίγωνα!

Ένα απλό πρόγραμμα κατασκευής ορθογώνιου τριγώνου!
Θέλουμε το τρίγωνο να έχει υποτείνουσα 5000 twips (στον εκτυπωτή 1440 είναι η μια ίντσα, στην οθόνη είναι σχετικό αυτό και όχι απόλυτο, αν τις εντολές τις στείλουμε στον εκτυπωτή θα έχουμε όμως σωστό μέγεθος). Γωνία 0 είναι East (Ανατολή), και είναι σε ακτίνια (για να δουλεύουν ωραία με το Πι). Δείτε πως δεν βγαίνει τρίγωνο στο Πι/2.

Μπορεί  κανείς να χρησιμοποιήσει την Ομαλά Ναι για να έχει γραμμές χωρίς "δοντάκια". Αυτή η εντολή βάζει το GDI+ των Windows που είναι λίγο πιο αργή από το GDI32, αλλά έχει καλύτερα αποτελέσματα. (δουλεύει στις νεότερες εκδόσεις).

Φόρμα 60, 30 ' σε χαρακτήρες
Αναφορά 2, "Παράδειγμα Τρίγωνα", 12000 ' κεντράρισμα σε πλάτος 12000 twips
Τμήμα Τρίγωνο {
      Διάβασε α, β , γ
      θέση α, β
      Χάραξε Γωνία γ, 5000
      Χάραξε Έως θέση.χ, β
      Χάραξε Έως α, β
}
Για ι =πι/8 έως πι-πι/8 ανά πι/8 {
       Τρίγωνο 6000,6000,ι
}
Οθόνη , -5 ' χωριστή οθόνη στις πέντε τελευταίες γραμμές


Για να φτιάξω τη εικόνα παρακάτω έφτιαξα το β που κάλεσε το α, έφτιαξε το κάτω μέρος μεγαλύτερο και άνοιξε αυτόματα τον διορθωτή (μετά έκανα Print Screen από το πληκτρολόγιο και Paste στο Paint):
α
οθονη ,-15
σ α