bb.donnay-software.com

Code: Select all

// Рисование кривой
// В примере сплайн рисуется из 13 точек. Сопоставление этих точек произведено с помощью маркера и точки соединены  линиями.
 
   #include "Gra.ch" 
 
   PROCEDURE Main 
      LOCAL aPoints, i 
 
      SetColor("N/W")                     // Закрасить окно светло-серым
      CLS 
 
      aPoints := { {  30, 314 }, ;        // Задать точки X,Y сплайна
                   {  80, 106 }, ; 
                   { 130, 110 }, ; 
                   { 180, 164 }, ; 
                   { 230, 172 }, ; 
                   { 280, 257 }, ; 
                   { 330, 203 }, ; 
                   { 380, 274 }, ; 
                   { 430,  58 }, ; 
                   { 480, 109 }, ; 
                   { 530, 144 }, ; 
                   { 580, 250 }, ; 
                   { 630, 138 }  } 
 
      GraSpline( NIL, aPoints, .F. )      // нарисовать сплайн
 
      GraMarker( NIL, aPoints[1] )        // пометить 1-ю точку

 
      FOR i:=2 TO 13                      // пометить другие точки и соединить их линиями
         GraLine( , , aPoints[i] )        // 
         GraMarker( , aPoints[i] ) 
      NEXT 
 
      Inkey(0)                            // ожидание нажатия клавиши
 

RETURN