'===========================================================================
' Subject: STAR TREK COMMUNICATOR PIN        Date: 06-14-96 (00:00)       
' Author:  Andy J. Golden                    Code: QB, QBasic, PDS        
' Origin:  YHBV44@prodigy.com              Packet: GRAPHICS.ABC
'===========================================================================
' Star Trek: The Next Generation - Communicator Pin.
' BASIC graphics program by Andy Golden - June 14, 1996.
'    This program was not created, approved, licensed,
'    or endorsed by any entity involved in creating or
'    producing the Star Trek(R) television series or
'    films.

dim y(5)
screen 1
window (-10,-10)-(10,10)
for z=1 to 5
  for x=-10 to 10 step .1
    y(1)=-x^2+8
    if x>=0 then    y(2)=-x^1.5-1         else    y(2)=11
    if x<=0 then    y(3)=-abs(x)^1.5-1    else    y(3)=11
    y(4)=sqr(49-49*(x^2)/100)-1
    y(5)=-y(4)-2
    pset(x,y(z))
  next
next

' I originally wrote this program on my TI-85 graphing
' calculator in Algebra II class back some time around
' February 1996.  Then on June 14, 1996, I decided to
' translate it to work with PowerBASIC and QBASIC and
' other BASICs for an IBM compatible PC.  The result
' is the program above.  The equations y(2) and y(3)
' had to be modified because BASIC just can't handle
' imaginary numbers; so I used a cheesy IF/THEN/ELSE
' statement to eliminate them because I just don't feel
' like setting here for a few weeks writing all my own
' mathematical subroutines and functions to handle
' imaginary numbers.  Maybe some other time.  :-)
'
' Here is what all the equations do:
'   y(1)   Draws an arch
'   y(2)   Draws right leg of communicator pin
'   y(3)   Draws left leg of pin
'   y(4)   Draws top half of ellipse
'   y(5)   Draws bottom half of ellipse
'
' Here is the original program for the TI-85:
'
'   FnOff                    Replace the word Square Root
'   Func                     in equation  y4  with the
'   AxesOff                  square root symbol.
'   ClLCD
'   ClDrw
'   Zstd
'   y1=-x^2+8
'   y2=-x^1.5-1
'   y3=-((-x)^1.5)-1
'   y4=Square Root (49-49x^2/100)-1
'   y5=-y4-2
'   FnOn