home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / FLAG.TRU < prev    next >
Encoding:
Text File  |  1985-01-09  |  1.1 KB  |  55 lines
  1. ! U. S. Flag
  2. !
  3. ! a True BASIC(tm), Inc. product
  4. !
  5. ! ABSTRACT
  6. !    Draws the American flag.
  7. !
  8. ! Copyright (c) 1985 by True BASIC, Inc.
  9.  
  10. OPEN #1: screen .06,.94,.18,.85
  11. SET WINDOW 0,27,-.25,13.25
  12. SET BACK 17
  13. DIM a(5), b(5)
  14.  
  15. LET x0 = 11.2
  16. FOR y = 12 to 0 step -1
  17.     LET delta = .4*y/12 - .25
  18.     IF y = 5 then LET x0 = 0
  19.     IF mod(y,2) = 1 then SET COLOR "white" else SET COLOR "magenta"
  20.     BOX AREA x0,27,y+delta,y+1+delta
  21. NEXT y
  22.  
  23. LET delta = .8
  24. SET COLOR "white"
  25. CALL pts(a,b)
  26. CALL star(4.5,8,a,b)
  27. BOX KEEP 4.1,5.1,7.6,8.4 in star$
  28. FOR row = 1 to 9
  29.     LET y = (row-.5)*delta + 6
  30.     LET x0 = 2 - mod(row,2)
  31.     FOR col = x0 to 11 step 2
  32.         BOX SHOW star$ at col-.9, y-.4
  33.     NEXT col
  34. NEXT row
  35. SET COLOR "cyan"
  36. BOX LINES 0,27,-.25,13.25
  37.  
  38. END
  39.  
  40. SUB pts(a(),b())
  41.     LET new = pi/2
  42.     FOR i = 1 to 5
  43.         LET a(i) = .3*cos(new)
  44.         LET b(i) = .3*sin(new)
  45.         LET new = new + 4/5*pi
  46.     NEXT i
  47. END SUB
  48.  
  49. SUB star(x,y,a(),b())
  50.     FOR i = 1 to 5
  51.         PLOT x+a(i),y+b(i);
  52.     NEXT i
  53.     PLOT x+a(1),y+b(1)
  54. END SUB
  55.