home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / amibas.lzh / AMIBAS / CLOGO (.txt) < prev    next >
Encoding:
AmigaBASIC Source Code  |  1991-08-16  |  1.9 KB  |  65 lines
  1. ' Commodore-Logo  C=  4 Jul 86  
  2. ' by Peter Kittel , last change 5 Dec 86
  3.  
  4. WINDOW 2,"COMMODORE-Logo",(0,0)-(631,186),20
  5. CLS
  6.  
  7. WHILE INKEY$<>"q" ' infinite loop until q key pressed
  8. f=0.5+0.5*RND(1)    ' random size between 0.5 and 1
  9.  
  10. PAINT (1,1),1     ' clear screen
  11. LOCATE 2,9
  12. PRINT " Size of logo is random, quit by pressing q. "
  13.  
  14. uy=f*200/512:ux=f*0.9 ' some scaling factors
  15. ir=107:ar=200:rr=61:fl=170:fk=97:fm=5 ' Logo coordinates
  16. xm=256/f:ym=256/f    ' centre
  17. r1=ir*ir:r2=ar*ar
  18.  
  19. PALETTE 3,1,0,0        ' red replaces orange
  20. PALETTE 0,0,5/15,10/15 ' other colors normal
  21. PALETTE 1,1,1,1
  22. PALETTE 2,0,0,0
  23.  
  24. COLOR 0
  25.  
  26. x =xm+rr ' draw the C 
  27. x2=x-xm:x2=x2*x2
  28. y1=SQR(r1-x2):y2=SQR(r2-x2)+3
  29. LINE (ux*x,uy*(ym+y1))-(ux*x,uy*(ym+y2))
  30. LINE (ux*x,uy*(ym-y1))-(ux*x,uy*(ym-y2))
  31. ph=rr/ir:ph=3.14159/2-ATN(ph/SQR(1-ph*ph)):CIRCLE (ux*xm,uy*ym),ux*ir,0,ph,2*3.14159-ph  
  32. ph=rr/ar:ph=3.14159/2-ATN(ph/SQR(1-ph*ph)):CIRCLE (ux*xm,uy*ym),ux*ar,0,ph,2*3.14159-ph
  33. PAINT(ux*(xm-ir)-3,uy*ym),0  ' paint the C
  34.     
  35. y2=SQR(r1-rr*rr)-fm
  36.  
  37. COLOR 3 ' lower banner red
  38. AREA (ux*(xm+rr),uy*(ym+fm))
  39. AREA (ux*(xm+rr+fk),uy*(ym+fm))
  40. AREA (ux*(xm+rr+fl),uy*(ym+y2))
  41. AREA (ux*(xm+rr),uy*(ym+y2))
  42. AREA (ux*(xm+rr),uy*(ym+fm))
  43. AREAFILL
  44.  
  45. COLOR 0 ' upper banner blue
  46. AREA (ux*(xm+rr),uy*(ym-fm))
  47. AREA (ux*(xm+rr+fk),uy*(ym-fm))
  48. AREA (ux*(xm+rr+fl),uy*(ym-y2))
  49. AREA (ux*(xm+rr),uy*(ym-y2))
  50. AREA (ux*(xm+rr),uy*(ym-fm))
  51. AREAFILL
  52.  
  53. FOR i=1 TO 9000:NEXT ' delay
  54.  
  55. COLOR 1
  56. AREA(1,1):AREA(625,1):AREA(625,180):AREA(1,180):AREAFILL ' clear screen
  57. WEND
  58.  
  59. WINDOW CLOSE 2:COLOR 1 ' end
  60. PALETTE 3,1,0.5,0       ' restore orange
  61.  
  62. END
  63.  
  64.  
  65.