Startseite Erkunden Hilfe
Anmelden
eric
/
Topspeed_JPI
1
0
Fork 0
Dateien Issues 0 Pull-Requests 0 Wiki
Branch: master
Branches Tags
Topspeed_JPI
/
TS-V3
/
EXAMPLES
/
MIX_MOD.LST

MIX_MOD.LST 6.1 KB
Permalink Verlauf Originalformat

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166 
  1. Listing:
    2. 

  2. 

  3.     1  MODULE MIX_MOD;
    4. 

  4.     2  
    5. 

  5.     3  IMPORT GWinC2M,IO;
    6. 

  6.     4  
    7. 

  7.     5  TYPE
    8. 

  8.     6    A6G=ARRAY[1..6] OF GWinC2M.GCoord;
    9. 

  9. *****                 ^ not supported yet
    10. 

  10. *****                               ^ not supported yet
    11. 

  11.     7    A4G=ARRAY[1..4] OF GWinC2M.GCoord;
    12. 

  12. *****                 ^ not supported yet
    13. 

  13. *****                               ^ not supported yet
    14. 

  14.     8  
    15. 

  15.     9  VAR
    16. 

  16.    10    W:GWinC2M.GWindow;
    17. 

  17. *****              ^ not supported yet
    18. 

  18.    11    it:INTEGER;
    19. 

  19.    12    penx,peny:A6G;
    20. 

  20. *****              ^ not supported yet
    21. 

  21.    13    trix,triy:A4G;
    22. 

  22. *****              ^ not supported yet
    23. 

  23.    14    I:INTEGER;
    24. 

  24.    15  
    25. 

  25.    16  BEGIN
    26. 

  26.    17    W.ct__@Fssssi(0,0,1024,1024,4);
    27. 

  27. *****    ^ not supported yet
    28. 

  28. *****      ^ not supported yet
    29. 

  29. *****                                 ^ not supported yet
    30. 

  30.    18    FOR it:=0 TO 4 DO
    31. 

  31.    19      W.ReSize(it*75,it*75,1024-it*25,1024-it*25);
    32. 

  32. *****      ^ not supported yet
    33. 

  33. *****        ^ not supported yet
    34. 

  34. *****                                                ^ not supported yet
    35. 

  35.    20      W.SetColor(1,0);
    36. 

  36. *****      ^ not supported yet
    37. 

  37. *****        ^ not supported yet
    38. 

  38. *****                    ^ not supported yet
    39. 

  39.    21      W.Clear(-1);
    40. 

  40. *****      ^ not supported yet
    41. 

  41. *****        ^ not supported yet
    42. 

  42. *****                ^ not supported yet
    43. 

  43.    22      penx:=A6G(300,700,1000,512,30,0);
    44. 

  44. *****      ^ not supported yet
    45. 

  45. *****                                     ^ not supported yet
    46. 

  46.    23      peny:=A6G(1000,1000,300,10,300,0);
    47. 

  47. *****      ^ not supported yet
    48. 

  48. *****                                      ^ not supported yet
    49. 

  49.    24      trix:=A4G(300,700,512,0);
    50. 

  50. *****      ^ not supported yet
    51. 

  51. *****                             ^ not supported yet
    52. 

  52.    25      triy:=A4G(800,800,300,0);
    53. 

  53. *****      ^ not supported yet
    54. 

  54. *****                             ^ not supported yet
    55. 

  55.    26      W.Polygon(5,ADR(penx),ADR(peny),-1);
    56. 

  56. *****      ^ not supported yet
    57. 

  57. *****        ^ not supported yet
    58. 

  58. *****                  ^ undeclared identifier
    59. 

  59. *****                      ^ not supported yet
    60. 

  60. *****                            ^ undeclared identifier
    61. 

  61. *****                                ^ not supported yet
    62. 

  62. *****                                        ^ not supported yet
    63. 

  63.    27      W.Polygon(3,ADR(trix),ADR(triy),-1);
    64. 

  64. *****      ^ not supported yet
    65. 

  65. *****        ^ not supported yet
    66. 

  66. *****                  ^ undeclared identifier
    67. 

  67. *****                      ^ not supported yet
    68. 

  68. *****                            ^ undeclared identifier
    69. 

  69. *****                                ^ not supported yet
    70. 

  70. *****                                        ^ not supported yet
    71. 

  71.    28      W.Fill(512,900,-1,TRUE);
    72. 

  72. *****      ^ not supported yet
    73. 

  73. *****        ^ not supported yet
    74. 

  74. *****                            ^ not supported yet
    75. 

  75.    29      W.SetColor(3,-1);
    76. 

  76. *****      ^ not supported yet
    77. 

  77. *****        ^ not supported yet
    78. 

  78. *****                     ^ not supported yet
    79. 

  79.    30      W.CursorPosition(200,512);
    80. 

  80. *****      ^ not supported yet
    81. 

  81. *****        ^ not supported yet
    82. 

  82. *****                              ^ not supported yet
    83. 

  83.    31      GWinC2M.cputs(ADR('C++/Modula-2 Graphics Library Class Interface'+0C));
    84. 

  84. *****      ^ not supported yet
    85. 

  85. *****              ^ not supported yet
    86. 

  86. *****                    ^ undeclared identifier
    87. 

  87. *****                        ^ not supported yet
    88. 

  88. *****                                                                        ^ arithmetic operand must be numeric
    89. 

  89.    32      FOR I:=0 TO 1023 DO
    90. 

  90.    33        W.SetColor(I,-1);
    91. 

  91. *****        ^ not supported yet
    92. 

  92. *****          ^ not supported yet
    93. 

  93. *****                       ^ not supported yet
    94. 

  94.    34        W.Plot(I,I,-1);
    95. 

  95. *****        ^ not supported yet
    96. 

  96. *****          ^ not supported yet
    97. 

  97. *****                     ^ not supported yet
    98. 

  98.    35        W.Plot(I,1024-I,-1)
    99. 

  99. *****        ^ not supported yet
    100. 

  100. *****          ^ not supported yet
    101. 

  101. *****                          ^ not supported yet
    102. 

  102.    36      END;
    103. 

  103.    37      W.SetColor(4,-1);
    104. 

  104. *****      ^ not supported yet
    105. 

  105. *****        ^ not supported yet
    106. 

  106. *****                     ^ not supported yet
    107. 

  107.    38      I:=511;
    108. 

  108.    39      WHILE I>0 DO
    109. 

  109.    40        W.EllipticArc(512,512,I,I,I,I+90);
    110. 

  110. *****        ^ not supported yet
    111. 

  111. *****          ^ not supported yet
    112. 

  112. *****                                        ^ not supported yet
    113. 

  113.    41        I:=I-20
    114. 

  114.    42      END;
    115. 

  115.    43      I:=0;
    116. 

  116.    44      WHILE I<360 DO
    117. 

  117.    45        W.SetColor(I DIV 30,-1);
    118. 

  118. *****        ^ not supported yet
    119. 

  119. *****          ^ not supported yet
    120. 

  120. *****                              ^ not supported yet
    121. 

  121.    46        W.EllipticPie(900,500,100,500,I,I+30,1);
    122. 

  122. *****        ^ not supported yet
    123. 

  123. *****          ^ not supported yet
    124. 

  124. *****                                              ^ not supported yet
    125. 

  125.    47        I:=I+30
    126. 

  126.    48      END;
    127. 

  127.    49      I:=900;
    128. 

  128.    50      WHILE I>0 DO
    129. 

  129.    51        W.SetColor(I DIV 100+1,-1);
    130. 

  130. *****        ^ not supported yet
    131. 

  131. *****          ^ not supported yet
    132. 

  132. *****                                 ^ not supported yet
    133. 

  133.    52        W.Cuboid(1000-I,I,I DIV 10,I DIV 10,I DIV 10,0,0);
    134. 

  134. *****        ^ not supported yet
    135. 

  135. *****          ^ not supported yet
    136. 

  136. *****                                                        ^ not supported yet
    137. 

  137.    53        I:=I-100
    138. 

  138.    54      END;
    139. 

  139.    55      W.CursorPosition(362,512+W.CharHeight());
    140. 

  140. *****      ^ not supported yet
    141. 

  141. *****        ^ not supported yet
    142. 

  142. *****                               ^ not supported yet
    143. 

  143. *****                                 ^ not supported yet
    144. 

  144. *****                                            ^ not supported yet
    145. 

  145.    56      GWinC2M.cputs(ADR('Press any key to continue'+0C));
    146. 

  146. *****      ^ not supported yet
    147. 

  147. *****              ^ not supported yet
    148. 

  148. *****                    ^ undeclared identifier
    149. 

  149. *****                        ^ not supported yet
    150. 

  150. *****                                                    ^ arithmetic operand must be numeric
    151. 

  151.    57      IF (IO.RdKey()=0C) AND (IO.RdKey()=0C) THEN END;
    152. 

  152. *****          ^ not supported yet
    153. 

  153. *****             ^ not supported yet
    154. 

  154. *****                   ^ not supported yet
    155. 

  155. *****                              ^ not supported yet
    156. 

  156. *****                                 ^ not supported yet
    157. 

  157. *****                                       ^ not supported yet
    158. 

  158.    58    END;
    159. 

  159.    59    W.dt__;
    160. 

  160. *****    ^ not supported yet
    161. 

  161. *****      ^ not supported yet
    162. 

  162.    60  END MIX_MOD.
    163. 

  163. 

  164.   100 errors
    165. 

  165. 

  166.