home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / bbs / ff810.lha / FF810 / Amiga_E / Sources / Other / Draw.e < prev    next >
Text File  |  1993-01-24  |  1KB  |  52 lines
  1. /* E tiny paint */
  2. /* By EA van Breemen */
  3.  
  4. PROC main()
  5. DEF screen,window,x,oldx,y,oldy,pendown,stoppen,code,color,lastcolor,i
  6.  
  7. screen:=OpenS(640,256,4,$8000,'E painting program')
  8. IF screen=NIL THEN RETURN 10
  9. window:=OpenW(0,0,640,256,8,$1000,'E Tiny paint  (LEFT = PD, RIGHT = PU, MIDDLE = COLOR, LEFT+RIGHT = QUIT)',screen,15,0)
  10. IF window=NIL THEN RETURN CloseS(screen) AND 0+10
  11. oldx:=0
  12. oldy:=0
  13. pendown:=FALSE
  14. stoppen:=FALSE
  15. color:=1
  16. FOR i:=0 TO 15 STEP 1 DO Box(10+(i*15),20,i*15+20,30,i)
  17. Box(10+(color*15),20,color*15+20,30,2)
  18. Box(10+(color*15)+1,21,color*15+19,29,color)
  19. REPEAT
  20.       code:=Mouse()
  21.       SELECT code
  22.         CASE 1
  23.             pendown:=TRUE
  24.             x:=MouseX(window)
  25.             oldx:=x
  26.             y:=MouseY(window)
  27.             oldy:=y
  28.         CASE 2
  29.             pendown:=FALSE
  30.         CASE 4
  31.             lastcolor:=color
  32.             INC color
  33.             IF color>15 THEN color:=0
  34.             Box(10+(lastcolor*15),20,lastcolor*15+20,30,lastcolor)
  35.             Box(10+(color*15),20,color*15+20,30,2)
  36.             Box(10+(color*15)+1,21,color*15+19,29,color)
  37.             Delay(10)
  38.         CASE 3
  39.             stoppen:=TRUE
  40.     ENDSELECT
  41.     IF pendown=TRUE
  42.         Line(oldx,oldy,x,y,color)
  43.         oldx:=x
  44.         oldy:=y
  45.         x:=MouseX(window)
  46.         y:=MouseY(window)
  47.     ENDIF
  48. UNTIL stoppen=TRUE
  49. CloseW(window)
  50. CloseS(screen)
  51. ENDPROC
  52.