CLEAR : CLS
SCREEN 12
CLS

PI# = 3.141592654#
OX = 320
OY = 240

DIM R.ACI(360)
DIM Y(500)

ALFAX = 0
ALFAY = PI# / 2
ALFAZ = 5 * PI# / 4
KENAR = 75
HORN.BOYU = 225

KISA = KENAR * SQR(3) / 2
UZUN = KISA * 2

LINE (OX, OY)-(OX, KISA + OY)

FOR F = 1 TO 60

L = KISA / COS((PI# / 180) * F)

XP = L * COS((PI# / 180) * F + (3 * PI# / 2))
YP = L * SIN((PI# / 180) * F + (3 * PI# / 2))

R.ACI(F) = ATN(L / HORN.BOYU)
R.ACI(F + 120) = ATN(L / HORN.BOYU)
R.ACI(F + 240) = ATN(L / HORN.BOYU)
R.ACI(120 - F) = ATN(L / HORN.BOYU)
R.ACI(240 - F) = ATN(L / HORN.BOYU)
R.ACI(360 - F) = ATN(L / HORN.BOYU)

NEXT F

FOR X = 1 TO HORN.BOYU
Y(X) = (EXP(X / 28) / 12)
NEXT X

ALFA = Y(HORN.BOYU) / HORN.BOYU
R.ALFA = ATN(ALFA)

        FOR I = 1 TO 10000: NEXT I
        OPEN "ACADOPT.TXT" FOR OUTPUT AS #1

FOR F = 1 TO 360 STEP 10
FOR X = 1 TO HORN.BOYU STEP 3

RADF = (F / 180) * PI#

YOP = -(TAN(R.ALFA + R.ACI(F)) * X) + Y(X)

XP = YOP * COS(RADF) / 4
YP = YOP * SIN(RADF) / 4
ZP = X / 4

XEP = XP * COS(ALFAX) + YP * COS(ALFAY) + ZP * COS(ALFAZ)
YEP = XP * SIN(ALFAX) + YP * SIN(ALFAY) + ZP * SIN(ALFAZ)

PSET (OX - XEP, OY - YEP)

        FOR I = 1 TO 2000: NEXT I
        PRINT #1,

NEXT X

LINE (OX - OXEP, OY - OYEP)-(OX - XEP, OY - YEP), 4

OXEP = XEP
OYEP = YEP

NEXT F