1000 DF=1.5 :REM DARSTELLUNGS FAKTOR 1010 MX=160 :REM MITTE X 1020 MY=100 :REM MITTE Y 1030 AR=100 :REM AEUSSERER RADIUS 1040 IR= 30 :REM INNERER RADIUS 1050 SD=6.666 :REM SCHEIBEN DICKE 1060 FR= 6 :REM FREQUENZ 1070 AM= 19 :REM AMPLITUDE 1080 SW=2.5 * ATN( 1 ) / 45 :REM START WINKEL IN RAD 1090 ZY= .4 :REM Z AUF Y FAKTOR 1100 LA=2.5 :REM LINIEN ABSTAND 1120 SCREEN 1 :REM GRAFIK BILD SCHIRM 1130 WIDTH 40 :REM 40 ZEICHEN ZEILE 1140 CLS :REM BILD SCHIRM LOESCHEN 1150 KEY OFF :REM KEINE FUNKTIONS TASTEN ZEIGEN 1151 FOR BZ = AR TO -AR STEP -LA :REM ALLE BODEN Z 1152 FOR BX = -AR TO AR STEP .5 :REM ALLE BODEN X 1153 R = SQR( BX^2 + BZ^2 ) :REM RADIUS 1154 IF R < IR THEN GOTO 1220 :REM INNERHALB 1155 IF R > AR THEN GOTO 1220 :REM AUSSERHALB 1156 IF BX = 0 THEN KX = .0001 ELSE KX = BX :REM DIVISION DURCH NULL 1157 W = ATN( BZ / KX ) :REM ARCUS TANGENS IN RAD 1158 IF BX < 0 THEN W = W + 4 * ATN( 1 ) :REM LINKE HAELFTE PLUS PI 1180 V = ( W + SW ) * FR :REM WELLEN WINKEL IN RAD 1181 H = AM * SIN( V ) * R / AR :REM WELLEN HOEHEN WERT 1190 X = MX + BX * DF :REM BILD X 1200 Y = MY - H * DF - BZ * DF * ZY :REM BILD Y 1202 LINE( X, Y )-( X, Y + SD * DF ), 2 :REM LINIE ZEICHNEN ROT 1210 PSET( X, Y ), 3 :REM PUNKT ZEICHNEN WEISS 1211 PSET( X, Y + SD * DF ), 1 :REM PUNKT ZEICHNEN GRUEN 1220 NEXT BX :REM NAECHSTES BODEN X 1230 NEXT BZ :REM NAECHSTES BODEN Z 1370 IF INKEY$="" THEN 1370 :REM WENN KEINE TASTE DANN WARTEN 1380 SCREEN 0 :REM TEXT BILD SCHIRM 1390 WIDTH 80 :REM 80 ZEICHEN ZEILE 1400 CLS :REM BILD SCHIRM LOESCHEN 1410 KEY OFF :REM KEINE FUNKTIONS TASTEN ZEIGEN 1420 LIST :REM PROGRAMM ZEIGEN 1430 END :REM ENDE 1440 REM SAVE"SCHEIB-4.BAS",A :REM PROGRAMM NAME