DataMuseum.dk

top - download

    Length: 7584 (0x1da0)
    Notes: Mikados TextFile, Mikados_K
    Names: »PNAKSE«

└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
    └─ ⟦this⟧ »PNAKSE« 

Text

1440 PROC AKSE(VI,HØ,SK,SE,MIN,MAX,TYP,TEX)
1450 REM **********************************************************
1460 REM *AKSE TEGNER EN AKSE MED VINKLEN VI I FORHOLD TIL VANDRET*
1470 REM *FRA MIN TIL MAX. SÆTTER TEKSTEN TEX MED BOGSTAVHØJDEN HØ*
1480 REM *PÅ AKSEN. SKALERINGEN BESTEMMES AF SK ANGIVET I ANTAL   *
1490 REM *STEPS PR. ENHED. ANTALLET AF DELSTREGER PR. ENHED BE-   *
1500 REM *STEMMES AF 1/SE.                                        *
1510 REM **********************************************************
1520 KX=COS(VI/180*PI);KY=SIN(VI/180*PI);HB=(18*2**(HØ-1))
1530 IF SGN(MIN)<>SGN(MAX) THEN 
1540 MI=MIN;MX=MAX
1550 ELSE 
1560 IF SGN(MIN)=1 THEN 
1570 MI=0;MX=MAX-MIN
1580 ELSE 
1590 MX=0;MI=MIN-MAX
1600 ENDIF 
1610 ENDIF 
1620 XMAX=(MX*SK+100)*KX;YMAX=(MX*SK+100)*KY;XMIN=MI*SK*KX;YMIN=MI*SK*KY
1630 EXEC FLYTABS(XMIN,YMIN)
1640 EXEC TEGNABS(0,XMAX,YMAX)
1650 EXEC TEGNREL((KY*20),(-KX*20))
1660 EXEC TEGNREL((KX-KY)*20,(KX+KY)*20)
1670 EXEC TEGNREL((-KX-KY)*20,(KX-KY)*20)
1680 EXEC TEGNREL((KY*20),(-KX*20))
1690 IF 0<=KY AND KY<=1 THEN 
1700 EXEC FLYTREL((KY*30),(-KX*30-HB*(SGN(KX-KY)+1)/2))
1710 ELSE 
1720 EXEC FLYTREL((-KY*30),(KX*30-HB*(SGN(-KX+KY)+1)/2))
1730 ENDIF 
1740 EXEC TEKST(0,HØ,TEX$)
1750 IF TYP$<>"" THEN 
1760 SI=(MAX DIV SE)*SE
1770 FOR I=(SI+MI-MIN)*SK TO MI*SK STEP -SE*SK
1780 EXEC FLYTABS((KX*I-KY*10),(KY*I+KX*10))
1790 EXEC TEGNREL((KY*20),(-KX*20))
1800 IF 0<=KY AND KY<=1 THEN 
1810 EXEC FLYTREL((KY*20),(-KX*20-HB*(SGN(KX)+1)/2))
1820 ELSE 
1830 EXEC FLYTREL((-KY)*40,(KX)*40+HB*(SGN(KX)-1)/2)
1840 ENDIF 
1850 IF TYP$="LIN" THEN 
1860 SII=SI
1870 ELSE 
1880 SII=10**SI
1890 ENDIF 
1900 IF ABS(SII)<=9999 THEN 
1910 SJ=ROU(SII*100)/100
1920 ELSE 
1930 IF 9999<ABS(SII) AND ABS(SII)<=999999 THEN 
1940 SJ=ROU(SII)
1950 ELSE 
1960 SJ=SII
1970 ENDIF 
1980 ENDIF 
1990 IF SJ<>0 THEN EXEC TAL(0,HØ,SJ)
2000 SI=SI-SE
2010 NEXT I
2020 ENDIF 
2030 ENDPROC ;AKSE.