Path: news.uiowa.edu!chi-news.cic.net!newsxfer2.itd.umich.edu!gatech!usenet.eel.ufl.edu!agis!ns2.mainstreet.net!bug.rahul.net!a2i!rahul.net!a2i!news.clark.net!news-gateway!tcs.wap.org!g.wright From: g.wright@tcs.wap.org (Geraldine Wright) Newsgroups: comp.sys.apple2 Subject: Two-liners Followup-To: comp.sys.apple2 Date: 5 Feb 1996 20:54:08 -0500 Organization: Washington Apple Pi, Ltd. user group in Washington, D.C. Lines: 15 Sender: daemon@clark.net Message-ID: <1996Feb5.205327.77@tcs.wap.org> Reply-To: g.wright@tcs.wap.org NNTP-Posting-Host: clarknet.clark.net Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit In a posting on Jan 6, nparker@cie-2.uoregon.edu (Neil Parker) suggested that there be a "Great Comp.Sys.Apple2 Two-Liner Competition" and submitted a few of his entries. I love two-liners, and I think this is a great idea! Here is my submission. If enough other people submit two-liners, maybe there really can be a competition. 1 HGR2 :P = 1.57:A = 90:B = 27:H = A - B: HCOLOR= 3: FOR G = 1 TO .2 STEP - .2:C = 140 + H * COS ( - P) + B * G * COS (A / B * P):D = 96 + H * SIN ( - P) + B * G * SIN (A / B * P): FOR I = - 91 TO 990:J = I * P / 90:E = 140 + H * COS (J) + B * G * COS ( - A / B * J):F = 96 + H * SIN (J) + B * G * SIN ( - A / B * J): HPLOT C,D TO E,F:C = E:D = F: NEXT I: NEXT G: END Gerry (the Applesoft-aholic) g.wright@tcs.wap.org