Yayınlama: 11 Temmuz 2020
LINE
Ekranda belirtilen 2 koordinat noktası arasına çizgi, dikdörtgen veya içi dolu
dikdörtgen çizer.
Kullanımı:
LINE [[STEP] (x1,y1)]-[STEP] (x2,y2) [,[renk][,[B[F]][,stil]]](x1,y1) : Çizginin başlangıç noktası. (x1,y1) belirtilmediğinde bir önceki komutun aktif noktası alınır. Bir öncesinde nokta ile ilgili bir komut yoksa ekranın orta noktası alınır.
SCREEN 12 LINE -(0,0) 'ekranın orta noktasından 0,0 noktasına çizgi çizer
(x2,y2) : Çizginin bitiş noktası
STEP : Bir önceki çizim komutunun noktası 0,0 noktası olarak referans
alınır. Göreceli koordinat sistemi içindir.
renk: Çizgi ya da dolgu rengi
B : Çapraz köşeleri (x1 , y1) ve (x2 , y2) olan dikdörtgeni çizer
BF : Çapraz köşeleri (x1 , y1) ve (x2 , y2) olan içi renk ile
dolu dikdörtgeni çizer.
stil : Çizgi stili. Düz, noktalı veya kesik çizgi.
BF kullanıldığında stil dikkate alınmaz.
Örnek 1:
SCREEN 7 CLS LINE (0, 10)-(100, 10), 12 '(0,10) ile (100,10) arası türkuaz çizgi LINE -(50, 60), 13 'x1,y1 belirtilmediği için 'önceki çizginin x2,y2 (100,10) değerleri alındı '(100,10) ile (50,60) arasına kırmızı çizgi LINE -(0, 10), 14 '(50,60) ile (0,10) arasına sarı çizgi
SCREEN 13 LINE (0, 0)-(30, 30), 12 'kırmızı düz çizgi LINE -STEP(100, 60), 1, BF 'mavi içi dolu dikdörtgen LINE -STEP(60, -80), 14, B, 255 ' kesik çizgili sarı dikdörtgen LINE -(130, 130), 11 'türkuaz düz çizgi LINE -(0, 130), 10, , 64 'yeşil noktalı çizgi
Örnek 3:
SCREEN 12
CONST pi = 3.141593#
VIEW (80, 0)-(560, 479)
WINDOW (-1, -1)-(1, 1)
FOR x = 0 TO 360 STEP 3
x2 = SIN(x * pi / 180)
y2 = COS(x * pi / 180)
LINE (0, 0)-(x2, y2), 10
' üstteki satırı aşağıdaki satırdaki gibi (0, 0) ı silerek deneyin
' LINE -(x2, y2), 10
NEXT
SLEEP
Örnek 4: Line ile Çokgen Çizimi
'Polygon
SCREEN 12
CONST pi = 3.1415926535#
VIEW (80, 0)-(560, 479)
WINDOW (-1, -1)-(1, 1)
FOR k = 3 TO 12 'kenar sayısı
CLS 0
FOR x = 0 TO 360 STEP 360 / k
radyan = x * pi / 180
x2 = SIN(radyan)
y2 = COS(radyan)
IF x = 0 THEN r = 0 ELSE r = 10
LINE -(x2, y2), r
NEXT
LOCATE 15, 37
PRINT "ÇOKGEN"; k
SLEEP
NEXT
Örnek 5:
SCREEN 13
FOR x = 0 TO 319 STEP 5
r = r + 1
LINE (x, 0)-(x + 5, 199), r, BF
NEXT
Örnek 6: Sinüs Dalgası
'Sinus Wave
'Mesut Akcan. 2020
SCREEN 12
pik = 3.141593# / 180
WINDOW (0, 0)-(360, 100)
g = 30 'genlik
FOR p = 1 TO 10 'periyot
CLS
PRINT "Periyot:"; p
LINE (360, 50)-(0, 50), 7, , 63
FOR x = 0 TO 360
y = 50 + SIN(p * x * pik) * g
LINE -(x, y), 10
NEXT
SLEEP
NEXT
Örnek 7:
SCREEN 12
CONST pi = 3.141593
VIEW (80, 0)-(560, 479)
WINDOW (-1, -1)-(1, 1)
CIRCLE (0, 0), .9
DO
FOR x = 0 TO 360 STEP 6
LOCATE 1, 1: PRINT x / 6
x2 = SIN(x * pi / 180) * .8
y2 = COS(x * pi / 180) * .8
LINE (0, 0)-(x1, y1), 7
LINE (0, 0)-(x2, y2), 10
x1 = x2
y1 = y2
SLEEP 1
IF INKEY$ = CHR$(27) THEN EXIT DO
NEXT
LOOP
CIRCLE
Grafik ekranda verilen yarıçap ve koordinata daire, yay veya elips çizer.
Kullanımı:
CIRCLE [STEP] (x,y),yarıçap[,[renk][,[başlama][,[bitiş][,en-boy]]]]STEP : Bir önceki nokta 0,0 kabul edilir. Bir önceki nokta yoksa ekranın ortası alınır.
yarıçap : Çizilecek daire yarıçap ölçüsü.
renk : Çizgi rengi
başlama , bitiş : 0 - (2 * pi) arası bir değer girilir. Daire ya da
elipsin bir parçasını (yay) çizmek için kullanılır. Verilen değer negatif
olursa yayın uç noktaları merkez ile birleştirilir (pasta dilimi)
en-boy : varsayılan değeri 1 dir. En boy oranı 1 olduğunda daire
çizilir. 1 den farklı değerler ile elips çizilir.
Örnek 1:
SCREEN 12 CONST pi = 3.14159 CIRCLE STEP(0, 0), 240, 11 CIRCLE (0, 0), 100, 12 CIRCLE (100, 100), 100, 14 CIRCLE (320, 160), 100, 13, , , .5 CIRCLE (320, 330), 100, 14, -pi, -pi / 2 CIRCLE (310, 320), 100, 4, -pi / 2, -pi CIRCLE (320, 90), 80, 15, -2 * pi, -pi CIRCLE (440, 250), 80, 11, -3 * pi / 2, -pi / 2 CIRCLE (440, 250), 100, 13, 3 * pi / 2, pi / 2
Örnek 2:
SCREEN 12
CONST pi = 3.14159#
FOR n = 0 TO 360 STEP 10
rd = n * pi / 180
x = SIN(rd) * 75 + 320
y = COS(rd) * 75 + 240
CIRCLE (x, y), 150, 12
NEXT
| Önceki Bölüm: 15: Grafik işlemleri-3 | Sonraki Bölüm: 17: Grafik işlemleri-5 |
Hiç yorum yok:
Yorum Gönder