DÜNYA

DÜNYA programı, SIMON'S BASIC ile yazılmış bir programdır. Bu programı SIMON'S BASIC'e sahip olan C64 kullanıcıları kadar, C128 ve PLUS/4 sahipleri de grafik komutlarını biraz değiştirerek kullanabilirler.

Programın konusu, Dünya'nın çeşitli açılardan küresel görünümünü çizmektir. Grafik kullanımı sırasında yeterli hıza ulaşabilmek için, SIMON'S BASIC kullanılmıştır.

Figürlerde de göreceğiniz gibi, yerküreyi hem kendi ekseni etrafında çevirmek hem de eksenin kendisini uzay içinde değişik açılara göre döndürmek mümkün olmaktadır. İsterseniz programın nasıl işlediğini biraz görelim.

SATIR 500-510: Bu satırlarda grafiğin hangi grafik biçiminde çizilmesi gerektiği sorulmaktadır. Eğer normal grafik seçilirse sadece tek renkle çizilen, 320 * 200 oranında bir çözünürlüğe (resolution) sahip grafik ekranı kullanılır. Multi-color halinde ise, 4 renkli ancak 160 * 200'lük bir çözünürlük kullanılır.

SATIR 600-700: Programın bu kısmında ise, tüm programda kullanılan sayılar değişkenlerin içine yerleştirilmekte ve normal veya multi-color kullanımına göre değişen sayılar saptanmaktadır. Sayıları değişkenler içine yerleştirmekteki amacımız, programın işlemesini mümkün olduğu kadar çabuklaştırmaktır. Aynı nedenle, programın içinde sıfır kullanılması gereken yerlerde bir nokta kullanılmıştır. Gerçekten de bilgisayarın bir noktayı sıfır olarak algılaması, sıfır rakamını tanımlamasından daha çabuk olmaktadır.

SATIR 710: Bu satırda, çizimi yapılacak yerküreye bakış açısı istenmektedir. Bu iki açının anlamları şöyledir: Dünyaya tam kuzey kutbundan baktığımızı varsayalım. Dönme açısı, bu durumda dünyanın saat ibresi yönünde kaç derece dönmesi gerektiğidir. Eksi bir açı, dünyayı saat ibresinin ters yönünde döndürecektir. Şimdi de kuzey kutbu yukarıda olmak üzere dünyaya karşıdan baktığımızı düşünelim. Eğiklik açısı da bu durumda, eksenin bize göre kaç derece eğik olması gerektiğini verecektir. Pozitif bir sayı kuzey kutbunu bize yaklaştıracak ve güney kutbunu uzaklaştıracak; eksi bir sayı ise kuzey kutbunu bizden uzaklaştırarak güney kutbunu yakınlaştıracaktır.

SATIR 731-732: Eğer belirtilmişse, multi-color grafiğe geçilir ve yerküreyi çevreleyen hafif basık çember çizilir.

SATIR 800-860: Bu satırlarda, ekrana çizilen çemberin doldurulması gerçekleşir. Toplam 22 değişik kara parçası çizilmektedir. Tabii ki bunların sadece o sırada görünen kısımları çizilecektir. İşte bunun için 3000. satırdan itibaren başlayan bir alt-program kullanılır. Bu alt-program, DATA satırlarından okunan enlem ve boylamları ekran koordinatları haline getirir. Satır 830'da da bu ekran koordinatları, eğer çemberin içinde kalıyorlarsa, çizilirler. Bir kara parçasının sınırlarının çizimi bittikten sonra sıra içinin boyanmasına gelir. Her bir kara parçası için yeterli sayıda enlem ve boylam noktası verilmiştir. Bu noktalardan o anda görünen bir tanesi seçilerek o noktadan itibaren boyama işlemi gerçekleşir.

SATIR 1000-1160: Artık sıra enlem ve boylamların çizimine geldi. Önce güney kutbundan kuzey kutbuna doğru

paraleller, sonra da Greenwich'den başlayarak meridyenler çizilir.

SATIR 1160-2999: Eğer multi-color kullanılıyorsa, daha güzel bir görünüm vermek için yerkürenin çevresi koyu mavi ile boyanır. Sonra da kullanıcının bir düğmeye basması beklenir. Bir tuşa basıldığında ise program yeniden çalışmaya başlar. MPS801, VC1525, MPS803 veya bunlar gibi grafik basabilen yazıcısı olanlarınız, bu satırlarda yapacakları ufak bir değişiklikle istedikleri zaman grafiklerini kağıda aktarabilirler. Bunun için 2999. satır aşağıdaki gibi değiştirmek gerekir:

Ayrıca 1160. satırdaki 2999 da 2998 olarak değiştirilmeli. Artık grafik bittiğinde "p" tuşuna basmak dünya resmini kağıda geçirecektir.

SATIR 3000-3070: Bu alt-program kendisine gönderilen enlem ve boylamların ekran koordinatlarına çevirir ve z değişkeni içerisinde de bu koordinatın çizilip çizilmeyeceği bulunur. Eğer bu değişken pozitif bir sayı ise çizim yapılır.

SATIR 4000-4188: Toplam 22 kara parçasına ait enlem ve boylamlar. Her biri için önce kaç tane enlem-boylam çifti olduğu yazmaktadır. İlk iki sayı, o kara parçasının başlangıç koordinatları. O parçayı çevreleyen sınırların koordinatlarından sonra, o kara parçasının içinde bulunan bazı noktaların koordinatları da, kara parçasının içinin boyanmasında kullanılır.

SATIR 4000-4007: Güney Amerika SATIR 4100-4106: Afrika SATIR 4107-4108: Madagaskar SATIR 4109-4116: Antarktika SATIR 4117-4121: Avustralya SATIR 4122-4124: Yeni Zelanda SATIR 4125-4127: Yeni Gine SATIR 4128-4129: Borneo SATIR 4130-4131: Sumatra SATIR 4132-4143: Kuzey Amerika SATIR 4144-4145: Newfundland SATIR 4146-4147: Küba SATIR 4148-4150: Baffin SATIR 4151-4152: Victoria SATIR 4153-4154: Ellismere SATIR 4155-4157: Grönland SATIR 4158-4177: Avrasya SATIR 4178-4179: Ingiltere SATIR 4180-4181: Irlanda SATIR 4182-4183: Izlanda SATIR 4184-4186: Japonya SATIR 4187-4188: Sri Lanka