Astoko's

Blog yang untuk hanya sekedar iseng . . .

program BELAH_KETUPAT;
uses wincrt;
var
x,y,k,z : integer;
begin
write('Masukkan batas nilai : ');readln(x);
write('Hasil belah ketupat : ');
for k:=1 to x do
begin
writeln(' ');
for z :=1 to x-k do
begin
write(' ');
end;
for y := k downto 1 do
begin
write(y,' ');
end;
for y:=1 to k do
begin
write(y,' ');
end;
end;
for k:=x-1 downto 1 do
begin
writeln(' ');
for z:=1 to x-k do
begin
write(' ');
end;
for y:=k downto 1 do
begin
write(y,' ');
end;
for y:=1 to k do
begin
write(y,' ');
end;
end;
end.

Transformasi adalah proses perubahan, perpindahan suatu objek sehingga objek tersebut memiliki semacam bentuk atau posisi yang baru. Pada OpenGL terdapat beberapa tipe Transformasi diantaranya adalah :

  1. Modeling Transformation : memodelkan transformasi dengan cara menggerakkan objek disekitar layar dan juga merubah objek dalam satuan koordinat lokal menjadi koordinat yang umum. Maksudnya adalah proses transformasi tertuju pada posisi dan orientasi pada pergerakan, perputaran, dan ukuran objek
  2. Viewing Transformation : tipe transformasi ini memanfaatkan posisi kamera dan cara pandang objek tersebut sehingga jika dilakukan transformasi, maka yang akan melakukan transformasi adalah kamera atau cara pandang objek tersebut
  3. Project Transformation : Transformasi ini berfokus pada isi/volume dari objek tersebut dan batasan pandangan dari layar yang ada.
  4. Viewport Transformation : Transformasi ini memetakan koordinat yang terbuat kaena transformasi perspektif pada permukaan layar, Kita juga bisa membayangkan ini sebegai hasil akhir yang mampu memperbesar ataupun memperkecil objek tersebut, atau yang sering kita lakukan adalah seperti melakukan zoom in atau zoom out pada suatu objek, karena pada dasarnya ukuran dari objek tersebut tidak berubah, melainkan cara pandang kita memaksa kita untuk melihat objek tersebut menjadi objek yang lebih besar.

Pada dasarnya, operasi yang dapat dilakukan dengan menggunakan model transformasi ada 3, yaitu :

  1. Translation : Pemindahan Objek ke posisi yang baru
  2. Rotation : Proses memutarkan objek
  3. Scaling : Memperbesar dan Memperkecil Objek, disini kita bisa merubah ukuran objek tersebut tidak harus seragam antara panjang, lebar atau tingginya, sehingga kita bebas untuk me-resize objek yang telah kita buat



// coba coba.cpp : Defines the entry point for the console application.

//

#include "stdafx.h"

#include "GL/glut.h"

void tampil_semua(int x, int j, int i){

if(x==1||x==5||x==9||x==11||x==15||x==21||x==25||

x==31||x==35||x==37||x==41||x==45||x==47||x==51||

x==57||x==61||x==67||x==71||x==73||x==77||x==81 )

{glColor3f(1.0,1.0,1.0); //warna kotak

glBegin(GL_QUADS);

glVertex2d(0+10*i,0+10*j);

glVertex2d(10+10*i,0+10*j);

glVertex2d(10+10*i,10+10*j);

glVertex2d(0+10*i,10+10*j);

glEnd();

glFlush();

glColor3f(0.0,0.0,0.0); //simbol

glColor3f(1.0,0.0,0.0);// BINTANG 1

glBegin(GL_POLYGON);

glVertex2d(3.25+10*i,6+10*j);

glVertex2d(5+10*i,4.75+10*j);

glVertex2d(6.75+10*i,6+10*j);

glEnd();

glColor3f(1.0,0.0,0.0);// BINTANG 2

glBegin(GL_POLYGON);

glVertex2d(5+10*i,7.25+10*j);

glVertex2d(3.75+10*i,3.25+10*j);

glVertex2d(5+10*i,4.75+10*j);

glEnd();

glColor3f(1.0,0.0,0.0);// BINTANG 3

glBegin(GL_POLYGON);

glVertex2d(5+10*i,7.25+10*j);

glVertex2d(5+10*i,4.75+10*j);

glVertex2d(6.35+10*i,3.25+10*j);

glEnd();

glColor3f(0.0,0.0,1.0);// BULAN 1B

glBegin(GL_POLYGON);

glVertex2d(7+10*i,6+10*j);

glVertex2d(7+10*i,4+10*j);

glVertex2d(8.5+10*i,4+10*j);

glVertex2d(8.5+10*i,6+10*j);

glEnd();

glColor3f(0.0,0.0,1.0);// BULAN 2B

glBegin(GL_POLYGON);

glVertex2d(6+10*i,7.5+10*j);

glVertex2d(7+10*i,6+10*j);

glVertex2d(8.5+10*i,6+10*j);

glVertex2d(7.5+10*i,7.5+10*j);

glEnd();

glColor3f(0.0,0.0,1.0);// BULAN 3B

glBegin(GL_POLYGON);

glVertex2d(7+10*i,4+10*j);

glVertex2d(6+10*i,2.5+10*j);

glVertex2d(7.5+10*i,2.5+10*j);

glVertex2d(8.5+10*i,4+10*j);

glEnd();

glColor3f(0.0,0.0,1.0);// BULAN 4B

glBegin(GL_POLYGON);

glVertex2d(5.5+10*i,8.25+10*j);

glVertex2d(6+10*i,7.5+10*j);

glVertex2d(7.5+10*i,7.5+10*j);

glEnd();

glColor3f(0.0,0.0,1.0);// BULAN 5B

glBegin(GL_POLYGON);

glVertex2d(6+10*i,2.5+10*j);

glVertex2d(5.5+10*i,2+10*j);

glVertex2d(7.5+10*i,2.5+10*j);

glEnd();

glColor3f(0.0,0.0,1.0);// BULAN 1A

glBegin(GL_POLYGON);

glVertex2d(1.5+10*i,6+10*j);

glVertex2d(1.5+10*i,4+10*j);

glVertex2d(3+10*i,4+10*j);

glVertex2d(3+10*i,6+10*j);

glEnd();

glColor3f(0.0,0.0,1.0);// BULAN 2A

glBegin(GL_POLYGON);

glVertex2d(2.25+10*i,7.5+10*j);

glVertex2d(1.5+10*i,6+10*j);

glVertex2d(3+10*i,6+10*j);

glVertex2d(3.75+10*i,7.5+10*j);

glEnd();

glColor3f(0.0,0.0,1.0);// BULAN 3A

glBegin(GL_POLYGON);

glVertex2d(1.5+10*i,4+10*j);

glVertex2d(2+10*i,2.5+10*j);

glVertex2d(3.75+10*i,2.5+10*j);

glVertex2d(3+10*i,4+10*j);

glEnd();

glColor3f(0.0,0.0,1.0);// bulan 4A

glBegin(GL_POLYGON);

glVertex2d(4+10*i,8.25+10*j);

glVertex2d(2.25+10*i,7.5+10*j);

glVertex2d(3.75+10*i,7.5+10*j);

glEnd();

glColor3f(0.0,0.0,1.0);// bulan 5A

glBegin(GL_POLYGON);

glVertex2d(2+10*i,2.5+10*j);

glVertex2d(4+10*i,2+10*j);

glVertex2d(3.75+10*i,2.5+10*j);

glEnd();

glFlush();

}

else if (x==4||x==8||x==10||x==14||x==18||x==20||x==24||x==30||

x==34||x==40||x==44||x==46||x==50||x==54||x==56||x==60||x==66||

x==70||x==76||x==80){glColor3f(1.0,0.0,0.0); //angka satu

glBegin(GL_POLYGON);

glVertex2d(0+10*i,0+10*j);

glVertex2d(10+10*i,0+10*j);

glVertex2d(10+10*i,10+10*j);

glVertex2d(0+10*i,10+10*j);

glEnd();

glFlush();

glColor3f(0.0,0.0,1.0); //bawah

glBegin(GL_POLYGON);

glVertex2d(2+10*i,1+10*j);

glVertex2d(8+10*i,1+10*j);

glVertex2d(8+10*i,2.5+10*j);

glVertex2d(2+10*i,2.5+10*j);

glEnd();

glFlush();

glColor3f(0.0,0.0,1.0);

glBegin(GL_POLYGON);

glVertex2d(6.5+10*i,2.5+10*j);

glVertex2d(8+10*i,2.5+10*j);

glVertex2d(8+10*i,7.5+10*j);

glVertex2d(6.5+10*i,7.5+10*j);

glEnd();

glFlush();

glColor3f(0.0,0.0,1.0); //atas

glBegin(GL_POLYGON);

glVertex2d(2+10*i,7.5+10*j);

glVertex2d(8+10*i,7.5+10*j);

glVertex2d(8+10*i,9+10*j);

glVertex2d(2+10*i,9+10*j);

glEnd();

glFlush();

glColor3f(0.0,0.0,1.0);

glBegin(GL_POLYGON);

glVertex2d(2+10*i,2.5+10*j);

glVertex2d(3.5+10*i,2.5+10*j);

glVertex2d(3.5+10*i,7.5+10*j);

glVertex2d(2+10*i,7.5+10*j);

glEnd();

glFlush();

}

else if (x==3||x==7||x==13||x==17||x==19||x==23||x==27||

x==29||x==33||x==39||x==43||x==49||x==53||x==55||x==59||x==63||

x==65||x==69||x==75||x==79){glColor3f(1.0,1.0,1.0); //angka nol

glBegin(GL_POLYGON);

glVertex2d(0+10*i,0+10*j);

glVertex2d(10+10*i,0+10*j);

glVertex2d(10+10*i,10+10*j);

glVertex2d(0+10*i,10+10*j);

glEnd();

glFlush();

glColor3f(0.0,0.0,1.0); //bawah

glBegin(GL_POLYGON);

glVertex2d(2+10*i,1+10*j);

glVertex2d(8+10*i,1+10*j);

glVertex2d(8+10*i,2.5+10*j);

glVertex2d(2+10*i,2.5+10*j);

glEnd();

glFlush();

glColor3f(0.0,0.0,1.0);

glBegin(GL_POLYGON);

glVertex2d(6.5+10*i,2.5+10*j);

glVertex2d(8+10*i,2.5+10*j);

glVertex2d(8+10*i,7.5+10*j);

glVertex2d(6.5+10*i,7.5+10*j);

glEnd();

glFlush();

glColor3f(0.0,0.0,1.0); //atas

glBegin(GL_POLYGON);

glVertex2d(2+10*i,7.5+10*j);

glVertex2d(8+10*i,7.5+10*j);

glVertex2d(8+10*i,9+10*j);

glVertex2d(2+10*i,9+10*j);

glEnd();

glFlush();

glColor3f(0.0,0.0,1.0);

glBegin(GL_POLYGON);

glVertex2d(2+10*i,4.5+10*j);

glVertex2d(3.5+10*i,4.5+10*j);

glVertex2d(3.5+10*i,7.5+10*j);

glVertex2d(2+10*i,7.5+10*j);

glEnd();

glFlush();

glColor3f(0.0,0.0,1.0); //datar bawah

glBegin(GL_POLYGON);

glVertex2d(2+10*i,4.5+10*j);

glVertex2d(8+10*i,4.5+10*j);

glVertex2d(8+10*i,5.5+10*j);

glVertex2d(2+10*i,5.5+10*j);

glEnd();

glFlush();

}

else {glColor3f(1.0,0.0,0.0);glBegin(GL_QUADS); // angka empat

glVertex2d(0+10*i,0+10*j);

glVertex2d(10+10*i,0+10*j);

glVertex2d(10+10*i,10+10*j);

glVertex2d(0+10*i,10+10*j);

glEnd();

glFlush();

glColor3f(0.0,0.0,1.0); //samping kanan

glBegin(GL_POLYGON);

glVertex2d(6.5+10*i,9.0+10*j);

glVertex2d(8+10*i,9.0+10*j);

glVertex2d(8+10*i,2.0+10*j);

glVertex2d(6.5+10*i,2.0+10*j);

glEnd();

glFlush();

glColor3f(0.0,0.0,1.0); //tengah

glBegin(GL_POLYGON);

glVertex2d(2+10*i,5.5+10*j);

glVertex2d(8+10*i,5.5+10*j);

glVertex2d(8+10*i,6.5+10*j);

glVertex2d(2+10*i,6.5+10*j);

glEnd();

glFlush();

glColor3f(0.0,0.0,1.0); //samping kiri

glBegin(GL_POLYGON);

glVertex2d(2+10*i,6.5+10*j);

glVertex2d(3+10*i,6.5+10*j);

glVertex2d(3+10*i,9.0+10*j);

glVertex2d(2+10*i,9.0+10*j);

glEnd();

glFlush();

}

}

void myInit(void) {

glMatrixMode(GL_PROJECTION);

glLoadIdentity();

gluOrtho2D(0.0, 90.0, 0.0, 90.0); // menset ukuran kotak

glMatrixMode(GL_MODELVIEW);

glLoadIdentity();

}

void tampilsemua(){

int x=0;

for(int i=0;i<9;i++){

for(int j=0;j<9;j++){

x++;

tampil_semua(x,j,i);

}

}

}

int main(int argc, char** argv)

{

glutInit(&argc, argv);

glutInitDisplayMode(GLUT_SINGLE | GLUT_RGB);

glutInitWindowSize(800, 800); // set ukuran window 800 x 800 pixels

glutInitWindowPosition(100,100);

glutCreateWindow("OpenGl 2D_09.04.111.00094");

glutDisplayFunc(tampilsemua);

myInit();

glutMainLoop();

}


// Tugas_Komgraf_1.cpp : Defines the entry point for the console application.

//


#include "stdafx.h"


#include

void Display(void)

{

glClear(GL_COLOR_BUFFER_BIT);

glLoadIdentity();

glBegin(GL_POLYGON);

glColor3f(1.0,1.0,1.0);

glVertex3f(-0.5,-0.5,-3.0);

glColor3f(1.0,1.0,0.0);

glVertex3f(0.5,-0.5,-3.0);

glColor3f(0.0,0.0,1.0);

glVertex3f(0.5,0.5,-3.0);

glEnd();

glFlush();

}

void Reshape(int x, int y)

{

if (y == 0 || x == 0) return;

glMatrixMode(GL_PROJECTION);

glLoadIdentity();

gluPerspective(40.0,(GLdouble)x/(GLdouble)y,0.5,20.0);

glMatrixMode(GL_MODELVIEW);

glViewport(0,0,x,y);

}

int main (int argc, char **argv)

{

glutInit(&argc, argv);

glutInitDisplayMode(GLUT_SINGLE | GLUT_RGB);

glutInitWindowSize(300,300);

glutCreateWindow("Intro");

glClearColor(0.0,0.0,0.0,0.0);

glutDisplayFunc(Display);

glutReshapeFunc(Reshape);

glutMainLoop();

return 0;

}





OpenGL (Open Graphics Library) adalah spesifikasi standar yang mendefinisikan sebuah cross-bahasa, cross-platform API untuk menulis aplikasi yang menghasilkan komputer 2D dan 3D grafis. Antarmuka terdiri dari lebih dari 250 panggilan fungsi yang berbeda yang dapat digunakan untuk menggambar tiga dimensi yang kompleks adegan-adegan dari primitif sederhana. OpenGL dikembangkan oleh Silicon Graphics Inc (SGI) pada tahun 1992 [2] dan secara luas digunakan dalam CAD, virtual reality, visualisasi ilmiah, visualisasi informasi, dan simulasi penerbangan. Hal ini juga digunakan dalam video game, di mana bersaing dengan Direct3D on Microsoft Windows platform (lihat vs OpenGL Direct3D). OpenGL dikelola oleh sebuah teknologi nirlaba konsorsium yaitu Khronos Group.


OpenGL adalah suatu graphics library yang sebagian bersifat open source, dapat dipakai pada banyak platform (Windows ataupun Linux) dan dapat digunakan pada berbagai jenis compiler bahasa pemrograman seperti C++, Delphi ataupun VB. Jadi dengan kata lain OpenGL adalah sebuah library tambahan yang dapat ditambahkan dalam berbagai platform dan bahasa pemrograman yang berbasis graphics.
Dalam membuat sebuah graphics dalam Visual C++ tidak dapat naksimal karena kurang mendukungnya library-library yang dimiliki Visual C++ untuk membuat sebuah graphics, maka dibutuhkan suatu library graphics seperti OpenGL. Selain alasan ditas penggunaan OpenGL pada Visual C++ adalah untuk memudahkan dan agar lebih efisien dalam pembuatan sebuah graphics.
Oleh karena itu dsini saya akan mencoba memberikan cara – cara menambahkan atau mengkonfigurasi OpenGL pada Visual C++. Dalam hal ini Visual C++ yang digunakan adalah Visual C++ 6.0.

Komputer grafik Pertemuan 1


Dalam computer ada 2 mode yaitu mode grafik dan mode teks. Mode grafik terdiri dari vector yang tersusun atas formula matematika dan raster (bitmap) yang tersusun dari pixel.

Computer grafik sangat banyak dibutuhkan dalam kehidupan sehari-hari. Beberapa pihak yang membutuhkan penerapan computer grafik diantaranya :

  • Movie industry : penggunaan motion capture untuk animasi pada film

  • Game developer : computer grafik untuk pembuatan game

  • Medical : misalnya untuk mendeteksi jenis kelamin bayi, penerapan sinar X (rontgen)

  • Science :

  • Engineering developer :


Semua gambar vector berdasar pada aljabar linier, sehingga tidak terpengaruh pada scratch, yang artinya gambar vector tidak akan mengalami penurunan gambar pada saat gambar diperbesar. Aplikasi gambar vector pada lomputer grafik adalah :

  • Simulators (flight, driving)

  • Mechanical CAD (computer aided design)

  • Architevtural vizualitation

  • Advertising


Contoh nyata penggunaan computer grafik :

Kinect, adalah merupakan suatu titik pada gambar yang digunakan sebagai kontrol untuk menggerakkan animasi/model pada game konsol X-Box tanpa menggunakan suatu alat apapun, sehingga hanya dengan kita registrasi dengan model lalu setelah terjadi kecocokan apapun gerakan kita maka akan ditirukan oleh model pada game tersebut. (kinect terletak pada persendian tubuh).

Terdapat beberapa keuntungan dari penggunaan computer grafik diantaranya adalah :

  • Biaya yang murah

  • Dapat melakukan apa yang tidak bias dilakukan dalam dunia nyata



USES WINCRT;
FUNCTION F(X:REAL):REAL;
BEGIN
F:=EXP(X)-5*X*X;
END;
VAR E,X0,X1,X2,M : REAL;
X :INTEGER;
BEGIN
CLRSCR;
WRITELN('---------------------------------------------------------');
WRITELN(' PROGRAM METODE SECANT ');
WRITELN(' OLEH: ');
WRITELN(' * ASTOKO YOGA S (09.04.111.00094) ');
WRITELN(' * ZAINAL ARIFIN (09.04.111.00104) ');
WRITELN(' * FITRIANSYAH PERDANA P (09.04.111.00125) ');
WRITELN('_________________________________________________________');
WRITELN('');
E:=0.00001;
WRITE('MASUKKAN X0 = ');READLN(X0);
WRITE('MASUKKAN X1 = ');READLN(X1);
WRITELN;
X:=0;
WRITELN('--------------------------------------------------------------------');
WRITELN(' Iterasi Ke | Xr | Xr+1-Xr |');
REPEAT
X2:=X1-(F(X1)*(X1-X0))/(F(X1)-F(X0));
M:=ABS(X2-X1);
X0:=X1;
X1:=X2;
X:=X+1;
WRITELN('--------------------------------------------------------------------');
WRITELN(' ',X,' | ',X1:0:5,' | ',M:0:5,' |');
UNTIL M < E;
WRITELN('--------------------------------------------------------------------');
WRITELN;
WRITELN('JADI AKARNYA ADALAH = ',X1:0:5);
READLN;
END.

Where did we come from?
Why are we here?
Where do we go when we die?
What lies beyond?
And what lay before?
Is anything certain in life?

They say, "Life is too short"
"The here and the now"
And "You're only given one shot"
But could there be more,
Have I lived before,
Or could this be all that we've got?

If I die tomorrow
I'd be all right
Because I believe
That after we're gone
The spirit carries on

I used to be frightened of dying
I used to think death was the end
But that was before
I'm not scared anymore
I know that my soul will transcend

I may never find all the answers
I may never understand why
I may never prove
What I know to be true
But I know that I still have to try

If I die tomorrow
I'd be all right
Because I believe
That after we're gone
The spirit carries on

[Victoria:]

"Move on, be brave
Don't weep at my grave
Because I am no longer here
But please never let
Your memory of me disappear"

[Nicholas:]

Safe in the light that surrounds me
Free of the fear and the pain
My questioning mind
Has helped me to find
The meaning in my life again
Victoria's real
I finally feel
At peace with the girl in my dreams
And now that I'm here
It's perfectly clear
I found out what all of this means

If I die tomorrow
I'd be all right
Because I believe
That after we're gone
The spirit carries on

About this blog

Pages

Diberdayakan oleh Blogger.

Followers

About Me

Foto saya
Aku adalah aku(nanti kamu tahu sendiri)

Labels

Copyright 2009 - Astoko's

Blogspot Theme designed by: Ray Creations, Ray Hosting.