# c A200:20: ARABESQUE TB(75):MX0:MY0:RC0:F.75 CN0:KM.104719755:AA0:BB0 100:HO9:VE12:110 " ETWAS GEDULD..."; N0 75:TB(N)(NKM):N!$HO5:VE7:110)!.SR$"A R A B E S Q U E":150=!8HO6:VE12:110g!B"Moechten Sie eine Erklaerung? (J)";q!L5010!VIN74 4010!=== TEKENEN ===! --- eerste figuur ---! AA=BEGIN BB=EINDE Klokminuten! RC=STRAAL MX,MY COORD.MIDDPT" F=verhoudingsfactor y/x#"6003"N5 60 5I""MX.5.31FTB(N)`",MY.5.31TB(N15){"6RC.18:AAN45:BBN75"@3020"JRC.119:AAN10:BBN50:3020"TN"^N10 60 10"hMX.5.12FTB(N)"rMY.5.12TB(N15)#|RC.06:AAN20:BBN40#3020#N##5010?# --- tweede figuur ---H#600X#N3 60 3n#MX.5.75FTB(N)#MY.5.75TB(N15)#RC.75:AAN24:BBN36#3020#N#5010# --- derde figuur ---#600#N3 60 3$&MX.5.24FTB(N)$0MY.5.24TB(N15)7$:RC.25:AA30N:BB30NA$D3020H$NNR$X5010o$l --- vierde figuur ---$v600:AA0:BB0$N12 60 12$RC0.25 0.025 0.025$MX.5RCFTB(N)$MY.5RCTB(N15)$3020$RC$N$5010%1550&% === TEKEN CIRKELBOOG ===E% --- plot eerste punt ---U% TTAA:3110h% CN1:620:CN0~% BBAA BBBB60% --- maak rest v.d. boog ---% NNAA BB% TTNN:3110:630% NN% % --- subr.bereken coordin ---&& TT60 TTTT60:3110&&0 HOMXFRCTB(TT)=&: VEMYRCTB(TT15)C&D W&=== UITLEG ===`&100&:" Das Programm zeichnet Figuren, die"&:" aus Teilen von Kreisboegen aufgebaut"&:" werden. Die Figur erscheint nach"&:" Tastendruck."':" Sie koennen aber auch"H':" selbst noch mehr von aehnlichen"t':" Figuren in das Programm einbauen."':" Wie das zu machen ist, ist dem Listing"':" zu entnehmen (ab Zeile 30000)."':" Taste 'S' = Programm verlassen."(:"---> Druecke eine Taste...";(("210:D(=== TEKENING KLAAR ===^(SV7:SP100:SD1:400s(210:IN83 950y((==============================(0u De subroutine die cirkelbogen(:u tekent gebruikt de volgende(Du variabelen:)Nu MX en MY zijn de coordinaten<)Xu van het middelpunt v.d.cirkel`)bu RC is de straal van de cirkel)lu AA is het begin van de boog)vu BB is het einde van de boog)u AA en BB worden opgegeven in)u 'klokminuten' dus boven is 0,*u rechtsmidden is 15, onder is2*u 30 , linksmidden is 45 en danS*u kan boven ook nog 60 zijn.x*u Voor een liggende halve cirkel*u geldt dus AA=15 en BB=45 en*u voor een staande halve cirkel*u geldt AA=45 en BB=15.*u ALLE HELE WAARDEN VAN 0 - 60+u zijn toegestaan.8+u==============================\+u Omdat sinus-berekeningen lang}+v duren wordt een sinustabel+ v aangelegd in TB(). De tabel+v klimt met stappen van 6 graden+ v zodat de 'cirkels' eigenlijk,*v 60-hoeken zijn. De cosinus-,4v wordt gevonden als sinus(a+90)R,>v===============================v,Hv GEMAAKT OP EEN BBC B COMPUTER,Rv 4 MAART 1987,\v DOOR,} Ch.W.Brederode, } Von Bonninghausenlaan 33,} 2161 ES LISSE,} TROS-RADIO dd 870429-(} ---------------------------3-2} deutsch: J.BaumannU-<} Erstausstrahlung: DS-Kulturj-F}-spezial 900919 dd 870429-(} ---------------------------3-2} deutsch: J.BaumannU-<} Erstausstrahlu