home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / COMAL3-1.DMS / in.adf / CITDemos / CITGraphics < prev    next >
Encoding:
Text File  |  1993-03-30  |  1.0 KB  |  57 lines
  1. USE System 
  2. USE CITScreen
  3. USE CITWindow
  4. USE CITGadgets
  5. USE CITGraphics
  6. USE CITView
  7. USE CITText
  8.  
  9. DIM Error OF SHORT
  10.  
  11. DIM Graf OF CITWindow
  12. Graf.Position(0,10)
  13. Graf.Size(640,250)
  14. Graf.Activate
  15. ComalScreen.InsObject(Graf,Error)
  16. IF Error THEN
  17.   STOP "Noget gik galt!" 
  18. ENDIF
  19.  
  20. DIM View OF CITView
  21. View.Size(200,40,UP)
  22. View.Position(150,-(2+40))
  23. Graf.InsObject(View,Error)
  24.  
  25. DIM ViewText OF CITText
  26. View.InsObject(ViewText,Error)
  27.  
  28. DIM StopKnap OF ButtonGadget
  29. StopKnap.Size(100,14)
  30. StopKnap.Position(50,20)
  31. StopKnap.Label("Stop",INSIDE)
  32. View.InsObject(StopKnap,Error)
  33.  
  34. DIM GrafWd OF CITGraphics
  35. GrafWd.Size(500,160,DOWN)
  36. GrafWd.Position(60,20)
  37. GrafWd.Transparent(TRUE)
  38. Graf.InsObject(GrafWd,Error)
  39.  
  40. GrafWd.MoveTo(10,5)
  41. GrafWd.Color(2)
  42. GrafWd.DrawTo(300,200)
  43. GrafWd.Color(3)
  44. GrafWd.DrawTo(600,100)
  45. GrafWd.Color(1)
  46. GrafWd.DrawTo(300,-50)
  47. GrafWd.PenColor(3)
  48. GrafWd.DrawText(294,50,"Note the automatic clipping")
  49.  
  50. ViewText.PenColor(2)
  51. ViewText.Print(30,5,"This is a CITView")
  52.  
  53. WHILE NOT StopKnap.Pressed DO WAIT
  54.  
  55. ComalScreen.RemObject(Graf)
  56.  
  57.