home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Windows Tools / SOS-WIN_TOOLS.ISO / programm / divers / wb_41e / olepoly.wb_ < prev    next >
Encoding:
Text File  |  1993-08-23  |  1.4 KB  |  101 lines
  1. Red=255
  2. Redish=127
  3. Green=255<<8
  4. Greenish=Green/2
  5. Blue=255<<16
  6. Blueish=Blue/2
  7.  
  8. c0=red+blue
  9. c1=red+Blueish
  10. c2=red
  11. c3=red+greenish
  12. c4=red+green
  13. c5=redish+green
  14. c6=green
  15. c7=green+blueish
  16. c8=green+blue
  17. c9=greenish+blue
  18. c10=blue
  19. c11=blue+redish
  20. c12=blue+red
  21. c13=blueish+red
  22. c14=red
  23.  
  24. CountAgain=0
  25. :DoItAgain
  26.  
  27. chan=ObjectOpen("spoly2.cpoly")
  28. WinZoom("IDispatch")
  29.  
  30. ;goto sign
  31.  
  32. y=10
  33. x=30
  34. width=8
  35. size=370
  36. RGB=96
  37. RGBMAX=(((255<<8)+255)<<8)+255
  38. chan.SetXOrigin(0)
  39. chan.SetYOrigin(0)
  40. cindex=0
  41.  
  42. :LOOP
  43.  
  44. chan.AddPoint(x,y)
  45. chan.AddPoint(x+size,y)
  46. chan.AddPoint(x+size,y+size)
  47. chan.AddPoint(x,y+size)
  48. chan.SetWidth(width+1)
  49. chan.SetRGB(c%cindex%)
  50. chan.Draw()
  51. chan.Reset()
  52.  
  53.  
  54. size=size-(2*width)
  55. x=x+width
  56. y=y+width
  57. cindex=cindex+1
  58. if cindex>14 then cindex=0
  59. if size>0 then goto loop
  60.  
  61.  
  62. ;;;;;;;
  63. ;Signature
  64. :sign
  65. ;chan2=ObjectGetObject(CPoly2,0,0)
  66. chan2=ObjectOpen("spoly2.cpoly")
  67. chan2.SetXOrigin(420)
  68. chan2.SetYOrigin(0)
  69.  
  70.  
  71. x=10
  72. y=10
  73. chan2.SetWidth(2)
  74. chan2.SetRGB(255<<16)
  75. chan2.AddPoint(x+0,y+0)
  76. chan2.AddPoint(x+15,y+40)
  77. chan2.AddPoint(x+30,y+12)
  78. chan2.AddPoint(x+45,y+40)
  79. chan2.AddPoint(x+60,y+0)
  80.  
  81. chan2.AddPoint(x+58,y+0)
  82.  
  83. chan2.AddPoint(x+45,y+38)
  84. chan2.AddPoint(x+30,y+10)
  85. chan2.AddPoint(x+15,y+38)
  86. chan2.AddPoint(x+2,y+0)
  87. chan2.Draw()
  88. chan2.SetXOrigin(490)
  89. chan2.Draw()
  90. chan2.SetXOrigin(560)
  91. chan2.Draw()
  92.  
  93. ;PlayWaveForm(0)
  94.  
  95.  
  96.  
  97.  
  98. ObjectClose(chan)
  99. ObjectClose(chan2)
  100.  
  101.