home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGO.ARC / SLIDESHO.POG < prev    next >
Encoding:
Text File  |  1985-11-20  |  1.5 KB  |  114 lines
  1. ;
  2. ; Pogo Slideshow program
  3. ;
  4. ; This program demonstrates Pogo's screen and blit functions.
  5. ;
  6. ; To run it, substitute the filenames for names of picture files in the
  7. ; same directory as SLIDESHO.POG and POGO.TTP.  Remember, Pogo accepts
  8. ; PI1, PC1 or NEO pictures.
  9.  
  10. int ps,bs
  11.  
  12. string fname
  13.  
  14. constant wx = 30
  15. constant wy = 20
  16.  
  17. to wblit(x,y)
  18. {
  19. int px1,py1        ;pixel offsets
  20. int px2,py2
  21.  
  22. px1 = x*320/wx
  23. px2 = (x+1)*320/wx
  24. py1 = y*200/wy
  25. py2 = (y+1)*200/wy
  26. blit(px2-px1,py2-py1,bs,px1,py1,ps,px1,py1)
  27. }
  28.  
  29.  
  30. to wipe()
  31. {
  32. constant wsize = wx*wy
  33. int used[wsize]
  34. int x,y,w
  35. int gotit
  36. int i,j
  37.  
  38. for i = 0 to wsize-1
  39.     used[i] = 0
  40. for i = 0 to wsize-1
  41.     {
  42.     gotit = 0
  43.     for j = 1 to 200
  44.         {
  45.         w = random(wsize)
  46.         if (!used[w])
  47.             {
  48.             gotit = 1
  49.             used[w] = 1
  50.             ;if (j%(wsize/8) == 0)
  51.                 ;Vsync()
  52.             x = w%wx
  53.             y = w/wx
  54.             wblit(x,y)
  55.             break
  56.             }
  57.         }
  58.     if (!gotit)
  59.         break;
  60.     }
  61. copyscreen(bs,ps)
  62. }
  63.  
  64. to wipe1()
  65. {
  66. int j;
  67.  
  68. UseScreen(bs)
  69. if (!LoadPic(fname))
  70.     {
  71.     prints("Couldn't load " + fname)
  72.     return
  73.     }
  74. ;CopyColors(bs,ps)    ;do colors first
  75. Wipe()
  76. for j = 1 to 60
  77.     Vsync()
  78. ClearScreen()
  79. UseScreen(ps)
  80. Wipe()
  81. }
  82.  
  83. to main()
  84. {
  85. int i,j
  86.  
  87. ClearScreen()
  88. bs = AllocScreen()
  89. ps = Pscreen()
  90. if (bs == 0)
  91.     {
  92.     prints("Couldn't alloc screen")
  93.     return
  94.     }
  95. ;
  96. ; Note: substitute filenames here.
  97. ;
  98.  
  99. fname = "bluemist.pc1";
  100. wipe1()
  101. fname = "tut.pc1";
  102. wipe1()
  103. fname = "whatisit.pc1"
  104. wipe1()
  105. FreeScreen(bs)
  106. }
  107.  
  108. int k
  109.  
  110. ToGraphics()
  111. loop
  112.     main()
  113.  
  114.