home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / GLE33B_1.ZIP / GLE4.ZIP / LOOP.GLE < prev    next >
Encoding:
Text File  |  1991-11-27  |  869 b   |  45 lines
  1. size 18 24 box        ! This is LOOP.GLE, shows programming examples
  2. set hei .3
  3. amove .3 .3 
  4. text loop.gle
  5.  
  6. amove 5 14
  7. set just center hei 1
  8. text Subroutines, Loops
  9. set just left hei .7
  10. set hei .9
  11.  
  12. ! First define a single neuron
  13. sub neuron xx yy
  14.   amove xx yy 
  15.   begin scale .5 .5
  16.     curve  0  .4  .4  .4  .4 -.4  .4  .4  .4 -.8 -.4 -.8 -.4 .4
  17.     curve -.4 -.8 -.4  .4 -.4 -.4 -.4  .4  0  .4   
  18.     closepath
  19.   end scale
  20. end sub
  21.  
  22. ! Draw the neurons
  23. for xx = 0 to 1
  24.   for i = 1 to 6
  25.     @neuron xx*6+2 i*2+1.2
  26.   next i
  27. next xx
  28.  
  29. ! Draw the lines between them
  30. for i = 1 to 6
  31.   for j = 1 to 6
  32.     amove 3 i*2+1
  33.     aline 7.5 j*2+1
  34.   next j
  35. next i
  36.  
  37. !--------------------------------------------------------------------------
  38. include ziptext.gle
  39. amove 12 1
  40. @ziptext "Hello"
  41. amove 13 4
  42. begin rotate 20
  43. @ziptext "Green trees"
  44. end rotate
  45.