Melbourne House – METEORIC Programming – Anno 1983 – Trascrizione: Francesco Fiorentini
Tempo fa ho acquistato il libro METEORIC Programming – For the ORIC-1 pubblicato in originale da Melbourne House nel 1983
La copia in mio possesso si tratta di una ristampa pubblicata nel 2022 da parte di Acorn Books.
Il libro contiene un gran numero di listati per il computer ORIC-1 ed ho deciso di digitarne qualcuno per arricchire la nostra libreria di RetroLiPS.
Questo programma traccia un’immagine tridimensionale utilizzando formule (funzioni). La funzione utilizzata si trova alla riga 180.
Se prendiamo un’ellisse (fig. l) e tracciamo, ad esempio, 5 corde su di essa, possiamo scegliere dei punti lungo ciascuna corda. Questi punti hanno una distanza dall’origine (R) e tracciano un punto (P) dove (P) è sempre una funzione di (R).
Facendo questo lungo ciascuna corda, possiamo creare l’illusione di montagne in 3 dimensioni. Tenendo traccia del punto più alto tracciato, possiamo assicurarci di non tracciare alcun punto che si trovi “dietro” a questo punto, creando così un effetto tridimensionale reale.
È possibile utilizzare qualsiasi funzione, purché sia sempre una funzione di (r).
Ad esempio, potresti provare:
F = (1 - R) * Exp (Cos (12 * R) )
F = (R - 1) * Cos (8 * R)
F = (R - 1) * Exp (R/2)
Se volete saperne di piu’ riguardo all’ORIC, una macchina poco conosciuta in Italia, vi consiglio di leggervi gli articoli “Un fantasmagORICo home computer” parte 1 e 2, apparsi sui numeri 10 ed 11 della nostra rivista a firma di David La Monaca.
Titolo: 3D Plot
Piattaforma: ORIC
Linguaggio: Basic
Versione originale: John Vander Reyden
Pubblicazione: METEORIC Programming
Anno: 1983
Trascrizione: Francesco Fiorentini
Anno: 2025
Note: N/A
Istruzioni
Questo programma traccia un’immagine tridimensionale utilizzando formule (funzioni). Modificate la funzione alla riga 180 per creare nuove immagini.
Qui di seguito trovate il codice da copiare sul vostro computer Oric.
Il codice é pronto per essere copiato su un emulatore, consigliamo Oricutron.
Per caricare il codice sull’emulatore, una volta copiato il codice sottostante nella clipboard, pulsante destro e quindi Paste from Clipboard.
Attenzione: l’emulatore Oricutron potrebbe dare problemi con il copia ed incolla, suggeriamo di copiare/incollare il listato in due/tre volte anziche’ in una singola operazione.
Attenzione – Ci siamo resi conto che nel listato i caratteri ‘>’ e ‘<‘ potrebbero venir sostituiti dai rispettivi encoding html ‘>’ e ‘<’. Nel caso, sostituite questi valori nel listato prima di copiarlo sull’emulatore.
Listato: 3D Plot – Oric – Basic
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
20 REM * 3D PLOT
30 REM * * * * * * * * * *
100 HIRES:PAPER 0: INK 7: H=239: V=199
110 REM FUNCTION IN LINE 180
120 X1=H/2 : X2=X1*X1 : Y1=V/2 : Y2=V/4
130 FOR X=0 TO X1
140 X4=X*X : L=-Y1
150 A=SQR(X2-X4) : REM CHORD LEN
160 FOR I=-A TO A STEP V/10
170 R=SQR(X4+I*I)/X1
180 F=(1-R)*SIN(18*R)
190 Y=I/5+F*Y2
200 IF Y<=L THEN 230
210 L=Y : Y=Y1-Y
220 CURSETX1-X, Y, 1 : CURSETX1+X , Y, 1
230 NEXT I : NEXT X
240 END
