home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / SIGMAT25.DMS / in.adf / ARexxDemos / SIGMAth.REXX < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-01-26  |  3.9 KB  |  170 lines
  1. /*
  2.  * Name:           SIGMAth.REXX
  3.  * Autor:          Stefan Kebekus
  4.  * Datum:          4. Oktober 1990
  5.  *
  6.  * Sinn:           * keinen *
  7.  * Beschreibung:
  8.  *
  9.  * Dieses Programm füttert SIGMAth mit Statistikdaten. Verbindet man
  10.  * die gezeichneten Daten mit Linien, so erhält man den Schriftzug
  11.  * "SIGMAth". Durch Variation des Y-Wertebreiches wird eine einfache
  12.  * Animation erzeugt. Die Animation ist leider nicht vollständig 
  13.  * flackerfrei.
  14.  * Zum Schluss werden dem staunenden Anwender noch die verschiedenen
  15.  * Linienmuster gezeigt, dann wird alles wieder gelöscht.
  16.  *
  17.  */
  18.  
  19. ADDRESS "rexx_SIGMAth"            /* Verbindung zu SIGMAth herstellen */
  20. OPTIONS results                /* ja, wir wollen Ergebnisse (wichtig!) */
  21.  
  22. Clr_Daten                /* Vorhandene Daten löschen */
  23.  
  24.  
  25. /*
  26.  * Jetzt werden die Daten
  27.  * eingefüttert
  28.  *
  29.  */
  30.  
  31. Set_Datum    "2 2.7"            /* S */
  32. Set_Datum    "1 2.5"
  33. Set_Datum    "1 1.7"
  34. Set_Datum    "2 1.3"
  35. Set_Datum    "2 0.5"
  36. Set_Datum    "0 0.3"
  37. Set_Datum    "2 0.5"
  38.  
  39. Set_Datum    "3 0.5"            /* I */
  40. Set_Datum    "3 2.5"
  41. Set_Datum    "3 0.5"
  42.  
  43. Set_Datum    "4 0.5"            /* G */
  44. Set_Datum    "4 2.5"
  45. Set_Datum    "4.5 2.5"
  46. Set_Datum    "4 2.5"
  47. Set_Datum    "4 0.5"
  48. Set_Datum    "4.5 0.5"
  49. Set_Datum    "4.5 1.5"
  50. Set_Datum    "4.2 1.5"
  51. Set_Datum    "4.5 1.5"
  52. Set_Datum    "4.5 0.5"
  53.  
  54. Set_Datum    "5 0.5"            /* M */
  55. Set_Datum    "5.1 2.5"
  56. Set_Datum    "5.5 1.5"
  57. Set_Datum    "5.9 2.5"
  58. Set_Datum    "6 0.5"
  59.  
  60. Set_Datum    "6.5 0.5"        /* A */
  61. Set_Datum    "7 2.5"
  62. Set_Datum    "7.25 1.5"
  63. Set_Datum    "6.75 1.5"
  64. Set_Datum    "7.25 1.5"
  65. Set_Datum    "7.5 0.5"
  66.  
  67. Set_Datum    "8 0.5"            /* t */
  68. Set_Datum    "8 2.5"
  69. Set_Datum    "8 1.5"
  70. Set_Datum    "7.5 1.5"
  71. Set_Datum    "8.5 1.5"
  72. Set_Datum    "8 1.5"
  73. Set_Datum    "8 0.5"
  74.  
  75. Set_Datum    "8.7 0.5"            /* h */
  76. Set_Datum    "8.7 2.5"
  77. Set_Datum    "8.7 1.5"
  78. Set_Datum    "9.3 1.5"
  79. Set_Datum    "9.3 0.5"
  80.  
  81. /*
  82.  * Die Graphik wird vorbereitet....
  83.  *
  84.  */
  85.  
  86. Clr_Graph                /* Vorhandenen Graphen löschen */
  87.  
  88. Y_Grenzen    " 5 10"            /* Y-Grenzen festlegen (so daß noch niemand etwas sieht) */
  89. DatenGraph    " 0 1 1"        /* Und den Graphen schon mal zeichnen lassen */
  90.  
  91. /*
  92.  * ... und in das Bild hineingeschoben
  93.  *
  94.  */
  95.  
  96. do H=0 to 42                /* Jetzt den Graphen hereinscrollen */
  97.     Unten    = 2.2-H*0.1        /* Untere und obere Grenzen */
  98.     Oben    = 8.2-H*0.1        /* langsam senken */
  99.     Y_Grenzen    Unten Oben    /* und immer wieder zeichnen */
  100. end
  101. do i=0 to 2000                /* kleine Warteschleife */
  102. end
  103.  
  104.  
  105. /*
  106.  * Jetzt wird die Schrift verkleinert und vergrößert
  107.  *
  108.  */
  109.  
  110. do H=0 to 20                /* Jetzt verkleinern */
  111.     Unten    = -2 -H*0.4        /* Untere Grenze langsam senken */
  112.     Oben    =  4 +H*0.4        /* Obere Grenze langsam erhöhen */
  113.     Y_Grenzen    Unten Oben    /* und immer wieder zeichnen */
  114. end
  115. do H=0 to 20                /* Jetzt vergrößern */
  116.     Unten    = -2 -(20-H)*0.4    /* Untere Grenze langsam erhöhen */
  117.     Oben    =  4 +(20-H)*0.4    /* Obere Grenze langsam senken */
  118.     Y_Grenzen    Unten Oben    /* und immer wieder zeichnen */
  119. end
  120.  
  121. /*
  122.  * Jetzt werden dem Anwender die verschiedenen
  123.  * Linienmuster vorgeführt
  124.  *
  125.  */
  126.  
  127. DatenGraph    " 1 0 1"        /* keine Verbindungslinien */
  128. do i=0 to 2000                /* kleine Warteschleife */
  129. end
  130. DatenGraph    " 1 1 1"        /* durchgezogene Verbindungslinien */
  131. do i=0 to 2000                /* kleine Warteschleife */
  132. end
  133. DatenGraph    " 1 2 1"        /* gestrichelte Verbindungslinien */
  134. do i=0 to 2000                /* kleine Warteschleife */
  135. end
  136. DatenGraph    " 1 3 1"        /* gestrichelte Verbindungslinien */
  137. do i=0 to 2000                /* kleine Warteschleife */
  138. end
  139. DatenGraph    " 1 4 1"        /* gestrichelte Verbindungslinien */
  140. do i=0 to 2000                /* kleine Warteschleife */
  141. end
  142. DatenGraph    " 1 5 1"        /* gestrichelte Verbindungslinien */
  143. do i=0 to 2000                /* kleine Warteschleife */
  144. end
  145.  
  146. /*
  147.  * Nun wird der Schriftzug aus dem Bild hinausgeschoben
  148.  *
  149.  */
  150.  
  151. DatenGraph    " 1 1 1"        /* Schnell noch mal zeichnen */
  152. do H=0 to 50                /* Jetzt den Graphen herausscrollen */
  153.     Unten    = -4.0-H*0.1        /* Untere und obere Grenzen */
  154.     Oben    =  4.0-H*0.1        /* langsam senken */
  155.     Y_Grenzen    Unten Oben    /* und immer wieder zeichnen */
  156. end
  157. do i=0 to 2000                /* kleine Warteschleife */
  158. end
  159.  
  160.  
  161. /*
  162.  * Jetzt schnell den ganzen Mist löschen,
  163.  * dann ist Schluss
  164.  *
  165.  */
  166.  
  167. Y_Grenzen    "1 -1"            /* feste Y_Grenzen löschen */
  168. Clr_Daten                /* Daten löschen */
  169. Clr_Graph                /* Graphikfenster löschen */
  170.