🚀 go-pugleaf

Witam,

Poszukałem w archiwum i oto gotowy program.

Ten program jest w wersji angielskiej.

Sposób wczytania i uruchomienia:
Skopiuj załączony plik do dowolnego katalogu.
Uruchom polecenie WCZYTAJAPL (ang. appload), następnie poszukaj na dysku w/w
plik.
Po naciśnięciu przycisku OK, program zostanie wczytany do pamięci.

Program definiuje dwa nowe polecenia:
C:SPIRAL i C:3DSPIRAL, które po wpisaniu w linii poleceń uruchomią
odpowiednie procedury.

Miłego tworzenia.

Paweł Durys

Paweł Łukasiewicz napisał(a) w wiadomości: <36C1EB5C.FA735DB4@t19.ml.org>...
>
>Jak w AutoCADzie narysować spiralę?
>
>--
>Paweł Łukasiewicz
>e-mail: pawel@piast.t19.ds.pwr.wroc.pl


begin 666 Spiral.lsp
M.SL[("TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM.PT*.SL[(%-025)!
M3"Y,4U -"CL[.R @($-O<'ER:6=H=" H0RD@,3DY,"!B>2!!=71O9&5S:RP@
M26YC+@T*.SL[(" -"CL[.R @(%!E<FUI<W-I;VX@=&\@=7-E+"!C;W!Y+"!M
M;V1I9GDL(&%N9"!D:7-T<FEB=71E('1H:7,@<V]F='=A<F4@86YD(&ET<PT*
M.SL[(" @9&]C=6UE;G1A=&EO;B!F;W(@86YY('!U<G!O<V4@86YD('=I=&AO
M=70@9F5E(&ES(&AE<F5B>2!G<F%N=&5D+B @#0H[.SL-"CL[.R @(%1(25,@
M4T]&5%=!4D4@25,@4%)/5DE$140@(D%3($E3(B!7251(3U54($584%)%4U,@
M3U(@24U03$E%1"!705)204Y462X@#0H[.SL@("!!3$P@24U03$E%1"!705)2
M04Y42453($]&($9)5$Y%4U,@1D]2($%.62!005)424-53$%2(%!54E!/4T4@
M04Y$($]&( T*.SL[(" @34520TA!3E1!0DE,2519($%212!(15)%0ED@1$E3
M0TQ!24U%1"X-"CL[.PT*.SL[("TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM.PT*.SL[($1%4T-225!424].#0H[.SL-"CL[.R @(%1H:7,@:7,@82!P
M<F]G<F%M;6EN9R!E>&%M<&QE+@T*.SL[#0H[.SL@("!$97-I9VYE9"!A;F0@
M:6UP;&5M96YT960@8GD@2V5L=FEN(%(N(%1H<F]O<"!I;B!*86YU87)Y(#$Y
M.#4-"CL[.PT*.SL[(" @5&AI<R!P<F]G<F%M(&-O;G-T<G5C=',@82!S<&ER
M86PN($ET(&-A;B!B92!L;V%D960@86YD(&-A;&QE9" -"CL[.R @(&)Y('1Y
M<&EN9R!E:71H97(@(G-P:7)A;"(L("(S9'-P:7)A;"(@;W(@=&AE(&9O;&QO
M=VEN9SH-"CL[.R @("AC<W!I<F%L(#PC(')O=&%T:6]N<SX@/&)A<V4@<&]I
M;G0^(#QH;W)I>B!G<F]W=&@@<&5R(')O=&%T:6]N/@T*.SL[(" @(" @(" @
M(" @/'!O:6YT<R!P97(@8VER8VQE/B \<W1A<G0@<F%D:75S/B -"CL[.R @
M(" @(" @(" @(#QV97)T(&=R;W=T:"!P97(@<F]T871I;VX^*2X-"CL[.PT*
M.SL[("TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM.PT*#0HH9&5F=6X@
M;7EE<G)O<B H<RD@(" @(" @(" @(" @(" @(" @(#L@268@86X@97)R;W(@
M*'-U8V@@87,@0U123"U#*2!O8V-U<G,-"B @(" @(" @(" @(" @(" @(" @
M(" @(" @(" @(" @(" @(" @.R!W:&EL92!T:&ES(&-O;6UA;F0@:7,@86-T
M:79E+BXN#0H@("AI9B H+ST@<R B1G5N8W1I;VX@8V%N8V5L;&5D(BD-"B @
M(" H<')I;F,@*'-T<F-A=" B7&Y%<G)O<CH@(B!S*2D-"B @*0T*(" H<V5T
M=F%R(")C;61E8VAO(B!O8VUD*2 @(" @(" @(" @(" [(%)E<W1O<F4@<V%V
M960@;6]D97,-"B @*'-E='9A<B B8FQI<&UO9&4B(&]B;' I#0H@("AS971Q
M("IE<G)O<BH@;VQD97)R*2 @(" @(" @(" @(" @(#L@4F5S=&]R92!O;&0@
M*F5R<F]R*B!H86YD;&5R#0H@("AP<FEN8RD-"BD-"@T*#0HH9&5F=6X@8W-P
M:7)A;" H;G1I;65S(&)P;VEN="!H9F%C(&QP<&%S<R!S=')A9"!V9F%C( T*
M(" @(" @(" @(" @(" @("\@86YG(&1I<W0@=' @86EN8R!D:&EN8R!D=FEN
M8R!C:7)C;&4@9'8I( T*(" H<V5T=F%R(")B;&EP;6]D92(@,"D@(" @(" @
M(" @(" @(" [('1U<FX@8FQI<&UO9&4@;V9F#0H@("AS971V87(@(F-M9&5C
M:&\B(# I(" @(" @(" @(" @(" @(#L@='5R;B!C;61E8VAO(&]F9@T*(" H
M<V5T<2!C:7)C;&4@*"H@,RXQ-#$U.38R,S4@,BDI#0H@("AS971Q(&%I;F,@
M*"\@8VER8VQE(&QP<&%S<RDI#0H@("AS971Q(&1H:6YC("@O(&AF86,@;'!P
M87-S*2D-"B @*&EF('9F86,@*'-E='$@9'9I;F,@*"\@=F9A8R!L<'!A<W,I
M*2D-"B @*'-E='$@86YG(# N,"D-"B @*&EF('9F86,-"B @(" H<V5T<2!D
M:7-T('-T<F%D(&1V(# N,"D-"B @(" H<V5T<2!D:7-T(# N,"D-"B @*0T*
M(" H:68@=F9A8R -"B @(" H8V]M;6%N9" B,V1P;VQY(BD@(" @(" @(" @
M(" @(" @.R!S=&%R="!S<&ER86P@+BXN#0H@(" @*&-O;6UA;F0@(G!L:6YE
M(B!B<&]I;G0I(" @(" @(" @(#L@<W1A<G0@<W!I<F%L(&9R;VT@8F%S92!P
M;VEN="!A;F0N+BX-"B @*0T*(" H<F5P96%T(&YT:6UE<R -"B @(" H<F5P
M96%T(&QP<&%S<R -"B @(" @("AS971Q('1P("AP;VQA<B!B<&]I;G0@*'-E
M='$@86YG("@K(&%N9R!A:6YC*2D-"B @(" @(" @(" @(" @(" @(" @(" H
M<V5T<2!D:7-T("@K(&1I<W0@9&AI;F,I*0T*(" @(" @(" @(" @(" @*0T*
M(" @(" @*0T*(" @(" @*'-E='$@9'8@*"L@9'8@9'9I;F,I*0T*(" @(" @
M*&EF('9F86,@*'-E='$@=' @*&QI<W0@*&-A<B!T<"D@*&-A9'(@=' I("@K
M(&1V("AC861D<B!T<"DI*2DI#0H@(" @(" H8V]M;6%N9"!T<"D@(" @(" @
M(" @(" @(" @(" @(#L@8V]N=&EN=64@=&\@=&AE(&YE>'0@<&]I;G0N+BX-
M"B @(" I#0H@("D@#0H@("AC;VUM86YD("(B*2 @(" @(" @(" @(" @(" @
M(" @(" @(#L@=6YT:6P@9&]N92X-"B @*'!R:6YC*0T**2 -"@T*.SL[#0H[
M.SL@(" @(" @26YT97)A8W1I=F4@<W!I<F%L(&=E;F5R871I;VX-"CL[.PT*
M#0HH9&5F=6X@0SI34$E204P@*"\@;VQD97)R(&]C;60@;V)L<"!N="!B<"!C
M9B!L<"D@#0H@(#L[.SLH<V5T<2!O;&1E<G(@("IE<G)O<BH-"B @.SL[.R @
M(" @("IE<G)O<BH@;7EE<G)O<BD-"B @*'-E='$@;V-M9" H9V5T=F%R(")C
M;61E8VAO(BDI#0H@("AS971Q(&]B;' @*&=E='9A<B B8FQI<&UO9&4B*2D-
M"B @*'-E='9A<B B8VUD96-H;R(@,"D-"B @*&EN:71G970@,2D@(" @(" @
M(" @(" @(" @(" @(" @(" @.R!B<"!M=7-T(&YO="!B92!N=6QL#0H@("AS
M971Q(&)P("AG971P;VEN=" B7&Y#96YT97(@<&]I;G0Z("(I*0T*(" H:6YI
M=&=E=" W*2 @(" @(" @(" @(" @(" @(" @(" @(" [(&YT(&UU<W0@;F]T
M(&)E('IE<F\L(&YE9RP@;W(@;G5L; T*(" H<V5T<2!N=" H9V5T:6YT(")<
M;DYU;6)E<B!O9B!R;W1A=&EO;G,Z("(I*0T*(" H:6YI=&=E=" S*2 @(" @
M(" @(" @(" @(" @(" @(" @(" [(&-F(&UU<W0@;F]T(&)E('IE<F\L(&]R
M(&YU;&P-"B @*'-E='$@8V8@*&=E=&1I<W0@(EQN1W)O=W1H('!E<B!R;W1A
M=&EO;CH@(BDI#0H@("AI;FET9V5T(#8I(" @(" @(" @(" @(" @(" @(" @
M(" @(#L@;' @;75S="!N;W0@8F4@>F5R;R!O<B!N96<-"B @*'-E='$@;' @
M*&=E=&EN=" B7&Y0;VEN=',@<&5R(')O=&%T:6]N(#PS,#XZ("(I*0T*(" H
M8V]N9" H*&YU;&P@;' I("AS971Q(&QP(#,P*2DI( T*(" H8W-P:7)A;"!N
M="!B<"!C9B!L<"!N:6P@;FEL*0T*(" H<V5T=F%R(")C;61E8VAO(B!O8VUD
M*0T*(" H<V5T=F%R(")B;&EP;6]D92(@;V)L<"D-"B @*'-E='$@*F5R<F]R
M*B!O;&1E<G(I(" @(" @(" @(" @(" @.R!297-T;W)E(&]L9" J97)R;W(J
M(&AA;F1L97(-"B @*'!R:6YC*0T*#0HI( T*#0H[.SL-"CL[.R @(" @("!)
M;G1E<F%C=&EV92!S<&ER86P@9V5N97)A=&EO;@T*.SL[#0H-"BAD969U;B!#
M.C-$4U!)4D%,("@O(&]L9&5R<B!O8VUD(&]B;' @;G0@8G @:&<@=F<@<W(@
M;' I( T*(" [.SL[*'-E='$@;VQD97)R(" J97)R;W(J#0H@(#L[.SL@(" @
M(" J97)R;W(J(&UY97)R;W(I#0H@("AS971Q(&]C;60@*&=E='9A<B B8VUD
M96-H;R(I*0T*(" H<V5T<2!O8FQP("AG971V87(@(F)L:7!M;V1E(BDI#0H@
M("AS971V87(@(F-M9&5C:&\B(# I#0H@("AI;FET9V5T(#$I(" @(" @(" @
M(" @(" @(" @(" @(" @(#L@8G @;75S="!N;W0@8F4@;G5L; T*(" H<V5T
M<2!B<" H9V5T<&]I;G0@(EQN0V5N=&5R('!O:6YT.B B*2D-"B @*&EN:71G
M970@-RD@(" @(" @(" @(" @(" @(" @(" @(" @.R!N="!M=7-T(&YO="!B
M92!Z97)O+"!N96<L(&]R(&YU;&P-"B @*'-E='$@;G0@*&=E=&EN=" B7&Y.
M=6UB97(@;V8@<F]T871I;VYS.B B*2D-"B @*&EN:71G970@-RD@(" @(" @
M(" @(" @(" @(" @(" @(" @.R!S<B!M=7-T(&YO="!B92!Z97)O+"!N96<L
M(&]R(&YU;&P-"B @*'-E='$@<W(@*&=E=&1I<W0@8G @(EQN4W1A<G1I;F<@
M<F%D:75S.B B*2D-"B @*&EN:71G970@,2D@(" @(" @(" @(" @(" @(" @
M(" @(" @.R!C9B!M=7-T(&YO="!B92!Z97)O+"!O<B!N=6QL#0H@("AS971Q
M(&AG("AG971D:7-T(")<;DAO<FEZ;VYT86P@9W)O=W1H('!E<B!R;W1A=&EO
M;CH@(BDI#0H@("AI;FET9V5T(#,I(" @(" @(" @(" @(" @(" @(" @(" @
M(#L@8V8@;75S="!N;W0@8F4@>F5R;RP@;W(@;G5L; T*(" H<V5T<2!V9R H
M9V5T9&ES=" B7&Y697)T:6-A;"!G<F]W=&@@<&5R(')O=&%T:6]N.B B*2D-
M"B @*&EN:71G970@-BD@(" @(" @(" @(" @(" @(" @(" @(" @.R!L<"!M
M=7-T(&YO="!B92!Z97)O(&]R(&YE9PT*(" H<V5T<2!L<" H9V5T:6YT(")<
M;E!O:6YT<R!P97(@<F]T871I;VX@/#,P/CH@(BDI#0H@("AC;VYD("@H;G5L
M;"!L<"D@*'-E='$@;' @,S I*2D@#0H@("AC<W!I<F%L(&YT(&)P(&AG(&QP
M('-R('9G*0T*(" H<V5T=F%R(")C;61E8VAO(B!O8VUD*0T*(" H<V5T=F%R
M(")B;&EP;6]D92(@;V)L<"D-"B @*'-E='$@*F5R<F]R*B!O;&1E<G(I(" @
M(" @(" @(" @(" @.R!297-T;W)E(&]L9" J97)R;W(J(&AA;F1L97(-"B @
M*'!R:6YC*0T*#0HI( T*#0H[.SL@+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2T[#0HH<')I;F,@(EQN7'1#.E-025)!3"!A;F0@0SHS1%-025)!3"!L
M;V%D960N("(I#0HH<')I;F,I#0H:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
$&AH:&@``
`
end