home *** CD-ROM | disk | FTP | other *** search
/ Pacman Top Games Collection / PacmanCollection.iso / KC6 / SRC / DRAW.T next >
Encoding:
Text File  |  1994-10-14  |  5.6 KB  |  207 lines
  1. include "%grafix2.int"
  2. setscreen ("graphics:v16")
  3. var file : int
  4.  
  5. proc temp
  6.     drawarc (100, 100, 18, 18, 42, 318, 11)
  7.     drawoval (105, 112, 3, 3, 11)
  8.     drawline (100, 100, 113, 89, 11)
  9.     drawline (100, 100, 112, 112, 11)
  10.     drawfill (100, 99, 1, 11)
  11.  
  12.     var size : int
  13.     size := sizepic (82, 82, 118, 118)
  14.     var buff : array 1 .. size of int
  15.     type bit :
  16.     record
  17.         map : array 1 .. 187 of int
  18.     end record
  19.     var g : array 0 .. 2 of bit
  20.  
  21.     takepic (82, 82, 118, 118, buff)
  22.     write : file, size, buff
  23.  
  24.     drawarc (200, 200, 18, 18, 180 + 42, 180 + 318, 11)
  25.     drawoval (195, 212, 3, 3, 11)
  26.     drawline (200, 200, 187, 189, 11)
  27.     drawline (200, 200, 188, 212, 11)
  28.     drawfill (200, 201, 1, 11)
  29.     takepic (182, 182, 218, 218, buff)
  30.     write : file, buff
  31.  
  32.     %.. closed KCs
  33.     setscreen ("text")
  34.     setscreen ("graphics:v16")
  35.     drawoval (100, 100, 18, 18, 11)
  36.     drawoval (105, 112, 3, 3, 11)
  37.     drawfill (100, 99, 1, 11)
  38.     drawline (100, 100, 118, 100, 11)
  39.     takepic (82, 82, 118, 118, buff)
  40.     write : file, buff
  41.  
  42.     drawoval (200, 200, 18, 18, 11)
  43.     drawoval (195, 212, 3, 3, 11)
  44.     drawfill (200, 201, 1, 11)
  45.     drawline (200, 200, 182, 200, 11)
  46.     takepic (182, 182, 218, 218, buff)
  47.     write : file, buff
  48.  
  49.     %.. The Ghost "Shell"
  50.     drawarc (300, 300, 18, 18, 0, 180, 16)
  51.     drawline (282, 300, 282, 282, 16)
  52.     drawline (318, 300, 318, 282, 16)
  53.     for i : 0 .. 2
  54.     drawline (282 + i * 12, 282, 288 + i * 12, 286, 16)
  55.     drawline (288 + i * 12, 286, 294 + i * 12, 282, 16)
  56.     end for
  57.     var c : string (1)
  58.     for i : 12 .. 14
  59.     drawfill (300, 300, i, 15)
  60.     takepic (282, 282, 318, 318, buff)
  61.     takepic (282, 282, 318, 318, g (i - 12).map)
  62.     end for
  63.  
  64.     %.. This draws the blue ghost
  65.     drawfill (300, 300, 11, 15)
  66.     drawoval (294, 305, 5, 5, 0)
  67.     drawoval (306, 305, 5, 5, 0)
  68.     for i : 1 .. 3
  69.     drawarc (300, 287 + i, 10, 4, 0, 180, 0)
  70.     end for
  71.     drawfill (294, 305, 0, 0)
  72.     drawfill (306, 305, 0, 0)
  73.     takepic (282, 282, 318, 318, buff)
  74.     write : file, buff
  75.  
  76.  
  77.     cls
  78.     takepic (282, 282, 318, 318, buff)
  79.     var x := 100
  80.     var y := 100
  81.     drawoval (x - 3, y, 5, 7, 1)
  82.     drawfill (x - 3, y, 15, 1)
  83.     drawoval (x - 3 + 10, y, 5, 3, 1)
  84.     drawfill (x - 3 + 10, y, 15, 1)
  85.     drawoval (x - 3 - 1, y - 2, 2, 2, 0)
  86.     drawoval (x - 3 + 10 - 2, y - 1, 2,
  87.     2, 0)
  88.     drawfill (x - 3 - 1, y - 2, 0, 0)
  89.     drawfill (x - 3 + 10 - 2, y + 1, 0,
  90.     0)
  91.     write : file, buff
  92.  
  93.     x := 100
  94.     y := 100
  95.     for j : 0 .. 2
  96.     for frame : 1 .. 6
  97.         drawpic (82, 82, g (j).map, 0)
  98.         var cc : string (1)
  99.         drawoval (x - 3, y, 5, 7 + frame mod 3, 1)
  100.         drawfill (x - 3, y, 15, 1)
  101.         drawoval (x - 3 + 10, y, 5, 3 + frame mod 7, 1)
  102.         drawfill (x - 3 + 10, y, 15, 1)
  103.         drawoval (x - 3 + (frame mod 3) - 1, y + (frame mod 5) - 2, 2, 
  104.         2, 0)
  105.         drawoval (x - 3 + 10 + (frame mod 5) - 2, y + (frame mod 3) - 1, 
  106.         2,
  107.         2, 0)
  108.         drawfill (x - 3 + (frame mod 3) - 1, y + (frame mod 5) - 2, 0, 0)
  109.         drawfill (x - 3 + 10 + (frame mod 5) - 2, y + (frame mod 3) - 1, 
  110.         0,
  111.         0)
  112.         for i : 1 .. 1000
  113.         end for
  114.         takepic (82, 82, 118, 118, buff)
  115.         write : file, buff
  116.     end for
  117.     end for
  118.  
  119.  
  120.     %.. draw ghost "Eyes"
  121.     cls
  122.     for frame : 1 .. 6
  123.     x := 100
  124.     y := 100
  125.     var cc : string (1)
  126.     drawoval (x - 3, y, 5, 7 + frame mod 3, 1)
  127.     drawfill (x - 3, y, 15, 1)
  128.     drawoval (x - 3 + 10, y, 5, 3 + frame mod 7, 1)
  129.     drawfill (x - 3 + 10, y, 15, 1)
  130.     drawoval (x - 3 + (frame mod 3) - 1, y + (frame mod 5) - 2, 2, 2, 0)
  131.     drawoval (x - 3 + 10 + (frame mod 5) - 2, y + (frame mod 3) - 1, 2, 
  132.         2, 0)
  133.     drawfill (x - 3 + (frame mod 3) - 1, y + (frame mod 5) - 2, 0, 0)
  134.     drawfill (x - 3 + 10 + (frame mod 5) - 2, y + (frame mod 3) - 1, 0, 
  135.         0)
  136.     for i : 1 .. 1000
  137.     end for
  138.     takepic (82, 82, 118, 118, buff)
  139.     write : file, buff
  140.     drawpic (82, 82, buff, 1)
  141.     end for
  142.  
  143.     %.. the dots
  144.     cls
  145.     drawoval (100, 100, 7, 4, 15)
  146.     drawline (93, 100, 93, 95, 15)
  147.     drawline (107, 100, 107, 95, 15)
  148.     drawarc (100, 95, 7, 4, 180, 360, 15)
  149.     drawfill (100, 100, 10, 15)
  150.     drawfill (100, 95, 2, 15)
  151.     size := sizepic (93, 104, 107, 91)
  152.     var buff2 : array 1 .. size of int
  153.     takepic (93, 104, 107, 91, buff2)
  154.     write : file, size, buff2
  155.  
  156.     %.. The Pills
  157.     const dist := floor (2.5 * sqrt (2))
  158.     drawoval (200, 200, 10, 10, 15)
  159.     drawfill (200, 200, 1, 15)
  160.     drawoval (200 + dist, 200 + dist, 5, 5, 15)
  161.     drawfill (200 + dist, 200 + dist, 15, 15)
  162.     drawarc (200 - dist, 200 - dist, 5, 5, 270, 360, 15)
  163.     drawfill (200 + dist, 200 - dist, 15, 15)
  164.     drawoval (200 + dist, 200 + dist, 2, 2, 1)
  165.     drawoval (200 - dist, 200 - dist, 2, 2, 15)
  166.     drawfill (200 + dist, 200 + dist, 1, 1)
  167.     drawfill (200 - dist, 200 - dist, 15, 15)
  168.     size := sizepic (190, 190, 210, 210)
  169.     var buff3 : array 1 .. size of int
  170.     takepic (190, 190, 210, 210, buff3)
  171.     write : file, size, buff3
  172.  
  173.     %.. draws the warp
  174. cls
  175. var wx1, wx2, wy1, wy2 : int
  176. for j : 1 .. 16
  177.     for i : 1 .. 16
  178.     randint (wx1, 282, 318)
  179.     randint (wy1, 282, 318)
  180.     if 282<= wx1 and wx1 <294 then
  181.         wx2:=282
  182.     elsif 294 <= wx1 and wx1 <306 then
  183.         wx2:= 300
  184.     else
  185.         wx2:=318
  186.     end if
  187.     if 282<= wy1 and wy1 <294 then
  188.         wy2:=282
  189.     elsif 294 <= wy1 and wy1 <306 then
  190.         wy2:= 300
  191.     else
  192.         wy2:=318
  193.     end if
  194.     drawline (300, 300, wx1, wy1, i)
  195.     drawline (wx1, wy1, wx2, wy2, i)
  196.     end for
  197.     takepic(282,282,318,318,buff)
  198.     write:file, buff
  199.     cls
  200. end for
  201.  
  202. end temp
  203.  
  204. open : file, "kc.gfx", write
  205. temp
  206. close : file
  207.