Գրաֆիկա ծրագրավորման միջավայրում
Տուրբո Պասկալ
EADC ուսուցիչ՝ Նևերովա Ի.Յու.
Դասի պլան.
- Turbo Pascal ծրագրավորման միջավայրում գրաֆիկական ռեժիմի միացման առանձնահատկությունները
- Ծրագրի կառուցվածքի կազմում
- Ընթացակարգերի համար կոորդինատների հաշվարկ
- Ուրվագծով և գունային լցոնմամբ նկարելու առանձնահատկությունները
- Նմուշ ծրագրերի վերանայում
Ի.Գ. Սեմակին, Ա.Պ. Շեստակովը։ Ծրագրավորման հիմունքներ, էջ 88-98, 398-409:
Turbo Pascal լեզվի գրաֆիկական հնարավորությունները - Գրաֆիկական գրադարան
- Գրաֆիկական գրադարանի միացումը ծրագրում նշված է հետևյալ ընթացակարգով.
- Էկրանի գրաֆիկական ռեժիմը սահմանելու համար օգտագործեք հետևյալ ընթացակարգը.
InitGraph (Var Driver, Mode: Integer, Path: String);
Ճանապարհ դեպի գրաֆիկական գրադարան
Վարորդի գործառնական ռեժիմ
Վարորդի կոդը
Գրաֆիկական ծրագրի գործառնական ռեժիմներ
- Տեքստի ռեժիմ. Օգտագործվում է ծրագիր գրելու համար։ Ծրագրի տեքստային ռեժիմից ծրագրի կատարման գրաֆիկական ռեժիմի անցումը կատարվում է RUN պրոցեդուրայով կամ Ctrl+F9 ստեղներով:
- Գրաֆիկական ռեժիմ. Պատկերը կառուցված է առանձին կետերից (պիքսելներից): VGAHi գրաֆիկական դրայվերի գործառնական ռեժիմը համապատասխանում է 640x480 պիքսելային գրաֆիկական ցանցին, 16 գույների ներկապնակով, վարորդի տեսակի ավտոմատ հայտնաբերմամբ և գրաֆիկական ռեժիմի տեղադրմամբ: Դուրս եկեք ծրագրից և ծրագրավորեք տեքստային ռեժիմ՝ սեղմելով Enter ստեղնը:
Ծրագրի կառուցվածքը
Ռիկունոկ ծրագիր; (ծրագրի անվանումը)
Օգտագործում է գրաֆիկը; (միացնելով գրաֆիկական գրադարանը)
Var Dr, Md՝ ամբողջ թիվ; (վարորդի փոփոխականի նկարագրությունը)
Սկիզբ (ծրագրի մարմնի սկիզբ)
Dr:= Հայտնաբերել; (վարորդի տեսակը)
InitGraph (Dr, Md, 'C:\TP 70\BGI'); (միացնել գրաֆիկայի հետ
գրաֆիկական գրադարան)
ReadLn; (ծրագրի հետաձգում)
Վերջ. (ծրագրի ավարտ)
Երկրաչափական պատկերների եզրակացության ընթացակարգերի կոորդինատների հաշվարկ
Բար (50,100,150,150)
Ֆիլելիպս (250,125,25,25)
VGA տիպի մոնիտոր
Օգտագործելով գրաֆիկական ընթացակարգեր
Ծրագիր, որը ցույց է տալիս ճապոնական սպիտակ դրոշը՝ կենտրոնում կարմիր շրջանակով
փիրուզագույն էկրանի ֆոնի վրա:
Var Dr, Md: Integer;
InitGraph (Dr, Md, 'C:\TP70\BGI');
ClearViewPort; (Էկրանի մաքրում, էկրանի ֆոնը սահմանելու համար)
SetBkColor (Cyan); (Էկրանի ֆոնի գույնը դրեք փիրուզագույնի)
SetFillStyle (1, 15); (Ուղղանկյունի լցոնման գույնը՝ ըստ նախշի և գույնի)
Բար (10, 10, 410, 210); (Լրացված ուղղանկյունի նկարում ըստ կոորդինատների)
SetColor (4); (Սահմանելով շրջանագծի գծերի գույնը)
Շրջանակ (210, 110, 30); (Նկարում ենք կենտրոնական կոորդինատով և շառավղով շրջան)
SetFillStyle (1, 4); (Շրջանակը լրացնելու գույնը՝ ըստ նախշի և գույնի)
FloodFill (200, 100, 4); (Փակ ձևը կոորդինատի շուրջ գույնով լրացնելով մինչև եզրագծերը)
ReadLn; (ծրագրի հետաձգում)
CloseGraph ; (դուրս գալ գրաֆիկական ռեժիմից)
Վերջ. (ծրագրի մարմնի ավարտը)
Ծրագիր, որը ցուցադրում է բլոկային դիագրամ
var dr,md:integer;
սկսել dr:=հայտնաբերել;
setlinestyle (0,1,3);
էլիպս (320,40,0,360,50,10);
տող (320,50,320,70);
տող (270,70,390,70); տող (390,70,370,100); տող (370,100,250,100); տող (250,100,270,70); տող (320,100,320,120);
ուղղանկյուն (260,120,380,150);
տող (320,150,320,170); տող (320,170,400,190); տող (400,190,320,210); տող (320,210,240,190); տող (240,190,320,170);
տող (240,190,200,190); տող (200,190,200,210);
ուղղանկյուն (140,210,260,240);
տող (200,240,200,260);
ուղղանկյուն (140,260,260,290);
տող (200,290,200,310);
Գիծ (140,310,260,310); Գիծ (260,310,240,340); Գիծ (240,340,120,340); Գիծ (120,340,140,310); տող (200,340,200,360);
տող (200,360,100,360); տող (100,360,100,170); տող (100,170,320,170); տող (400,190,440,190);
տող (440,190,440,380); տող (440,380,320,380); տող (320,380,320,400);
էլիպս (320,410,0,360,50,10);
settextstyle (7,0,2);
outtextXY(300,75,'F"); outtextXY(300,125"N:=0"); outtextXY(292,178,'N
Ծրագրի կատարման արդյունքը
Գրեք ծրագիր, որը ցույց կտա հետևյալ նկարը
Ծրագիր պարավոզ;
var dr,md:integer;
սկսել dr:=հայտնաբերել;
initgraph (dr, md,"C:\tp70\bgi");
SetFillStyle (1, 2);
Բար (150,30,250,225);
SetFillStyle (1, 1);
Բար (180,55,220,115);
SetFillStyle (1, 2);
Բար (250,120,450,225);
Գիծ (350,65,390,65);
Գիծ (350,65,360,120);
Line (390,65,380,120);
Գիծ (380,120,360,120);
SetFillStyle (1,1);
Ոլորտ(420,245,0,360,20,20);
Ոլորտ(300,245,0,360,20,20);
Ոլորտ(185,245,0,360,20,20);
SetFillStyle (1,7);
Ոլորտ(400,50,0,360,30,10);
Ոլորտ(425,25,0,360,20,10);
Ոլորտ(445,5,0,360,10,5);
Տնային աշխատանք
Աշխատանքային տետրերում Թիվ 4 թեմա կատարել գրաֆիկական պրոցեդուրաների կիրառման 1-ին և 2-րդ առաջադրանքները:
Հիմնական գրաֆիկական ընթացակարգերի աղյուսակը Հավելված 4-ում:
Սլայդ 2
Յուրաքանչյուր պիքսել (կետ) ունի երկու կոորդինատ՝ x և y: Պիկսելի երկրաչափական չափերը որոշվում են մոնիտորի լուծաչափով:
Սլայդ 3
Օրինակ 1. GraphAbc մոդուլի ծրագրի tochka միացման ցուցադրում; օգտագործում է graphabc; (միացնելով GraphAbc մոդուլը) start setwindowsize(640,480);(սահմանում է գրաֆիկական պատուհանի չափը) setpixel(100,120,clBlack); (գրիչի գույնը դնում է սևի և կոորդինատների վրա կետ գծում է (100,120)) վերջ: Այս օրինակում մենք ծանոթացանք setpixel հրամանի օգտագործմանը հատուկ դեպքում: IN ընդհանուր տեսարանայս հրամանն ունի հետևյալ տեսքը՝ setpixel(x:integer,y:integer,c:color) – գծում է կետ կոորդինատներով (x,y) c գույնով: clՍև – սև clՄանուշակագույն – մանուշակագույն clՍպիտակ – սպիտակ clRed – կարմիր clԿանաչ – կանաչ clՇագանակագույն – շագանակագույն clBlue – կապույտ clSkyBlue – բաց կապույտ clԴեղին – դեղին
Սլայդ 4
Երկու կետերը (120,150) և (150,80) կոորդինատներով (120,150) և (150,80) կարմիր գրիչով միացնող հատված գծելու ծրագիրը կարող է այսպիսի տեսք ունենալ. Օրինակ 2. Linii գծային ծրագրի գծման ցուցադրում; օգտագործում է graphabc; սկսել setwindowsize (640,480); setpencolor (clred); (գրիչի գույնը դնում է կարմիր) տող (120,150,300,100); (գծում է հատված (120,150) մինչև (300,100)) վերջ:
Սլայդ 5
Օրինակ 3. Տարբեր գրիչների գույներով գծերի ցուցադրում treugolnik; օգտագործում է graphabc; սկսել setwindowsize (640,480); setpenwidth (5); (սահմանում է ընթացիկ գրչի լայնությունը: Փակագծերում նշված է պիքսելների քանակը, որոնք կազմում են տողի լայնությունը) setpencolor(clred); (գրիչի գույնը դնում է կարմիր) տող (100,200,170,70); (գծում է հատված (100,200) կոորդինատներով կետից մինչև կոորդինատներով կետ (170,70)) setpencolor(clGreen); (կոմպլեկտներ կանաչգրիչ) տող (170,70,250,200); (գծում է գիծ (170,70) կետից մինչև կետ (250,200)) setpencolor (clBlue); (սահմանում է գրչի գույնը կապույտ) տողի (250,200,100,200); (գծում է հատված (250,200) կետից մինչև կետ (100,200)) (արդյունքը տարբեր գույներով եռանկյունի է) վերջ:
Սլայդ 6
Կարևոր է հիշել. 1. Գիծ գծելիս կարող եք սահմանել դրա չափը (նրա ծայրերի կոորդինատները), գույնը, լայնությունը (հաստությունը) և ոճը։ 2. GraphAbc մոդուլում տողի ոճը սահմանելու համար կա SetPenStyle (Ոճ) ընթացակարգ, որտեղ Style-ը գրիչի ոճի հաստատուններն են (տես Հավելված 3-ի գլխում): 3. Գիծը կարող է լինել պինդ, կետավոր, գծավոր, կտրված: Փակ գործիչները կարելի է ներկել:
Սլայդ 7
Օրինակ 4. Գծերի միջոցով փակ պատկերներ գծելու և դրանք նկարելու ցուցադրում Ծրագիր treug_zakrash; օգտագործում է graphabc; սկսել setwindowsize (640,480); clearwindow(clWhite);(մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով) setpenwidth(3); (սահմանում է ընթացիկ գրչի լայնությունը) setpenstyle(pssolid); (սահմանում է տողի ոճը - հոծ գիծ) setpencolor(clgreen (գրիչի գույնը սահմանում է կանաչ) տող (100,200,170,70); (գծերը գծում է կանաչ գույնով) տող (170,70,250,200);
տող (250,200,100,200); floodfill (440,120,clred); (Կարմիր ներկում է եռանկյունին) վերջը:
Ծրագրի կատարման արդյունքում գրաֆիկական պատուհանում մոնիտորի էկրանին կհայտնվի կանաչ գույնով գծված և կարմիրով երանգավորված եռանկյունին. Կարևոր է հիշել. 2. Լցման ընթացակարգում floodfill(x,y,c) նշվում է (x,y) կետի կոորդինատը, որը պետք է ընկնի ներկվող պատկերի ներքին տարածքի մեջ։
Սլայդ 9
Ուղղանկյուններ և շրջանակներ կարելի է գծել համապատասխանաբար ուղղանկյուն(x1,y1,x2,y2) և շրջան(x,y,r) հրամաններով: Եկեք նայենք, թե ինչպես կարելի է դա անել՝ օգտագործելով ծրագրի օրինակը, որը գծում է ուղղանկյուն և շրջան: Օրինակ 5. Ուղղանկյունի և շրջանագծի ծրագրային երկրաչափություն գծելու ցուցադրում; օգտագործում է graphabc; սկսել setwindowsize (640,480); setpencolor (clBlue); (սահմանում է կապույտ գրչի գույնը ուղղանկյունի ուրվագիծը նկարելու համար) setpenwidth(6); (սահմանում է գրչի լայնությունը) rectangle(50,50,250,150);(գծում է ուղղանկյուն, որը նշված է հակառակ գագաթների կոորդինատներով) setpencolor(clred); (շրջանակի ուրվագիծը գծելու համար գրչի գույնը սահմանում է կարմիր) շրջանակ (350,100,60); (գծում է շրջան՝ կենտրոնացած կոորդինատների (350,100) և 60 շառավղով) վերջում։
Սլայդ 10
Ուղղանկյուն և շրջանագիծ նկարելու ցուցադրություն և դրանց մակագրության ծրագրի երկրաչափությունը3; օգտագործում է graphabc; սկսել setwindowsize (640,480); clearwindow(clYellow);(ֆոնի գույնը սահմանում է դեղին) setpencolor(clteal); (սահմանում է գրչի կապույտ-կանաչ գույնը) setpenwidth(5); (սահմանում է գծի լայնությունը) setbrushcolor(clove) (սահմանում է վրձնի ձիթապտղի գույնը) ուղղանկյուն (100,100,300,200); (նկարում է ձիթապտղի գույնով լցված ուղղանկյուն) setbrushcolor(clublue) (վրձնի գույնը դնում է կապույտ) շրջանակ (400,150,50); (գծում է կապույտ շրջան) setfontstyle(fsbold);(սահմանում է տառատեսակի ոճը) setfontsize(15);(սահմանում է տառաչափը) setbrushcolor(clwhite);(սահմանում է վրձնի գույնը սպիտակի) setfontcolor(clolive);(սահմանում է ձիթապտղի գույնը տառատեսակի գույնը) տեքստը (100,220 «Ուղղանկյուն»); (մակագրում է) setfontcolor(clublu); (տառատեսակի գույնը սահմանում է կապույտ) textout (380,220, «Circle»); (մակագրություն է անում) վերջ.
Սլայդ 11
Pascal-ի ABC գրաֆիկական պրոցեդուրաները. 1. SetPixel(x,y,color: integer); - գունավոր գույնով ներկում է մեկ պիքսել կոորդինատներով (x,y): 2. Line(x1,y1,x2,y2: ամբողջ թիվ); - գծում է հատված (x1,y1) կետից մինչև (x2,y2): 3. Շրջանակ (x,y,r: ամբողջ թիվ); - գծում է շրջանագիծ կենտրոնով (x,y) կետով և r շառավղով: 4. Ուղղանկյուն (x1,y1,x2,y2: ամբողջ թիվ); -գծում է հակադիր գագաթների կոորդինատներով (x1,y1) և (x2,y2) ուղղանկյուն: 5. TextOut (x,y: ամբողջ թիվ; s: string); - թողարկում է տողը s դիրքում (x,y) (կետը (x,y) նշում է ուղղանկյունի վերին ձախ անկյունը, որը կպարունակի s տողի տեքստը): 6. FloodFill(x,y,գույն՝ ամբողջ թիվ); - գույնով լրացնում է նույն գույնի տարածքը՝ սկսած (x,y) կետից: 7. FillRect(x1,y1,x2,y2: ամբողջ թիվ); - հակադիր գագաթների (x1,y1) և (x2,y2) կոորդինատներով նշված ուղղանկյունը լրացնում է ընթացիկ վրձնի գույնով։
Սլայդ 12
Ի՞նչ կցուցադրվի մոնիտորի էկրանին այս ծրագրերը գործարկելու արդյունքում: ծրագրի գրաֆիկա1; օգտագործում է graphabc; սկսել setpenwidth (10);
setpencolor (clred);
Գիծ (100,100,270,90); Վերջ. Ծրագիր grafika2; օգտագործում է graphabc; սկսել setpenwidth(8);
setpencolor (club); շրջան (200,150,50); Վերջ.
Սլայդ 13
Պատճենեք ձեր նոթատետրում՝ Թեմա՝ Ծրագրավորման լեզվի գրաֆիկական հնարավորությունները։ 1. Ուղի (x1,y1,x2,y2; - հատված (x1,y1)-ից մինչև (x2,y2) 2. Շրջանակ (x, y, r); - շրջան (x,y) կենտրոնով և r շառավղով 3. Ուղղանկյուն (x1,y1,x2,y2) - ուղղանկյուն, որը սահմանվում է հակադիր գագաթների կոորդինատներով (x2,y2) 4. FloodFill(x, y, գույնը); կետ (x,y):
Դիտեք բոլոր սլայդները
Պատուհանների կառավարում
SetWindowSize (w,h);
սահմանում է գրաֆիկական պատուհանի չափերը
SetWindowWidth(w);
սահմանում է գրաֆիկական պատուհանի լայնությունը
SetWindowHeight (h);
սահմանում է գրաֆիկական պատուհանի բարձրությունը
SetWindowTitle ('Title');
փոխում է պատուհանի վերնագիրը
Գրաֆիկի մաքրում
պատուհաններ
ClearWindow;
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
փոխում է պատուհանի վերնագիրը
Մաքրում է գրաֆիկական պատուհանը նշված գույնով:
օգտագործում է GraphABC;
սկսել
ClearWindow (clMoneyGreen);
վերջ.
Կանաչ փողի գույն
Գրաֆիկական
պրիմիտիվներ
Կետ
Գիծ
Ուղղանկյուն
Շրջանակ
Էլիպս
Ոլորտ
Արկ
Կետ
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
SetPixel (x, y, գույն);
օգտագործում է GraphABC;
նկարում է մեկ պիքսել կոորդինատներով (x,y)
գույն
SetPixel (300,200, clred);
Գծեր
LineTo (x,y);
գծում է հատվածը ընթացիկ գրիչի դիրքից մինչև մի կետ
(x,y)
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
դառնում են նաև գրչի կոորդինատները
հավասար է (x,y)
օգտագործում է GraphABC;
նկարում է մեկ պիքսել կոորդինատներով (x,y)
x, y
Սկսել
LineTo (300,200);
MoveTo (x,y);
սահմանում է գծագրման ընթացիկ դիրքը
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
դառնում են նաև գրչի կոորդինատները
դեպի կետ (x,y)
x1, y1
օգտագործում է GraphABC;
նկարում է մեկ պիքսել կոորդինատներով (x,y)
Գիծ (x1, y1, x2, y2);
գծում է հատված (x1,y1) կետով սկիզբ և վերջ
կետում (x2,y2)
MoveTo (x,y);
սահմանում է գծագրման ընթացիկ դիրքը
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
տող (100,50,500,250);
օգտագործում է GraphABC;
գույները
կլԱկվամարին
clBisque
clBlue
clBurlyWood
clՇոկոլադ
cl Cornsilk
clՄուգ կապույտ
clDarkGray
clDarkMagenta
cDarkOrchid
clDarkSeaGreen
clDarkViolet
clDeepSkyBlue
կլԱզուր
clՍև
clBlueViolet
clCadetBlue
clCoral
clCrimson
clDarkCyan
clՄուգԿանաչ
clDarkOliveGreen
մուգ կարմիր
clDarkSlateBlue
clDeepPink
clDimGray
clBeige
clBlanched Almond
clBrown
clChartreuse
cCcornflowerBlue
clCyan
clDarkGoldenrod
clDarkKhaki
cDarkOrange
clDarkTurquoise
clDarkSlateGray
clDarkSalmon
clDodgerBlue
գույները
clFuchsia
clՈսկի
clGreen
clHotPink
կփղոսկր
clLavenderBlush
clLightBlue
clGainsboro
clGoldenrod
clԿանաչԴեղին
clIndianRed
clԽակի
clLawnGreen
clLightCoral
clGhostWhite
clGray
clHoneydew
clIndigo
կլավանդա
clLemonChiffon
cLLightCyan
cLLight GoldenrodYe
cLLightGray
clLightGreen
ցածր
clLightPink
cLLightSalmon
clLightSeaGreen
clLightSkyBlue
clLightSlateGray
cLLightSteelBlue
cLLightYellow
clLime
clLimeGreen
cLinen
clMagenta
clMaroon
clMediumAquamari
clՄիջինԿապույտ
clMedium Orchid
ne
clMediumPurple
clMediumSeaGreen clMediumSlateBlue
clMoneyGreen
clPlum
clMistyRose
clRandom – պատահական
գույնը ողջ գունապնակից
Պասկալի գույները
Գծի գույնը
SetPenColor (գույն);
սահմանում է պարամետրով նշված գրչի գույնը
գույն
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
SetPenColor (clred);
տող (30,30,400,350);
օգտագործում է GraphABC;
Կետավոր գիծ
SetPenStyle (<…>);
սահմանում է գրիչի ոճը
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
setpencolor (clred);
SetPenWidth (4);
SetPenStyle (psSolid); (Solid)
Գիծ (10,75,350,75);
SetPenStyle (psDash); (Dash)
Գիծ (10,100,350,100);
SetPenStyle (psDot); (Կետավոր)
Գիծ (10,125,350,125);
SetPenStyle (psDashDot); (կետերով)
Գիծ (10,150,350,150);
SetPenStyle (psDashDotDot);
(Այլընտրանքային գծիկ)
Գիծ (10,175,350,175);
օգտագործում է GraphABC;
Գծի հաստությունը
SetPenWidth(n);
գրչի լայնությունը (հաստությունը) սահմանում է n
պիքսելներ
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
setpenwidth (20);
setpencolor (clred);
տող (30,30,400,350);
օգտագործում է GraphABC;
Եռանկյուն
Գիծ (x1, y1, x2, y2);
գույն
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
setpenwidth (20);
setpencolor (clred);
տող (300,100,500,300);
lineto (100,300);
lineto (300,100);
ջրհեղեղ (300,200, մլ կանաչ);
օգտագործում է GraphABC;
Ուղղանկյուն
Ուղղանկյուն (x1, y1, x2, y2);
գծում է կոորդինատներով տրված ուղղանկյուն
հակառակ գագաթները (x1,y1) և (x2,y2)
MoveTo (x,y);
սահմանում է գծագրման ընթացիկ դիրքը
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
Ուղղանկյուն (50,50,200,200);
օգտագործում է GraphABC;
Լրացրեք գույնը
FloodFill (x, y, գույն);
գույնով լցնում է նույն գույնի տարածքը՝ սկսած կետից
Գծեր
MoveTo (x,y);
սահմանում է գծագրման ընթացիկ դիրքը
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
Ուղղանկյուն (50,50,200,200);
FloodFill (100,100, clBlue);
օգտագործում է GraphABC;
Խոզանակի լցոնում
SetBrushColor (գույն);
սահմանում է վրձնի գույնը, ձգվում է դեպի փակ
միացում, որի նկարագրությունը հետևում է տեղադրման ընթացակարգին
խոզանակի գույները
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
դառնում են նաև գրչի կոորդինատները
SetBrushColor (clGreen);
Ուղղանկյուն (50,50,300,300);
օգտագործում է GraphABC;
Խոզանակի լցոնում
SetBrushStyle (<…>);
սահմանում է խոզանակի ոճի տեսակը
bsՊինդ
Պինդ խոզանակ (ըստ
լռելյայն)
bs Մաքրել
Թափանցիկ խոզանակ
bsԼյուկ
Գծի խոզանակ
bsԳրադիենտ
Գրադիենտ խոզանակ
Խոզանակի լցոնում
Վրձինների լյուկի ոճերը նշված են թվարկված տիպով
SetBrushHatch (<…>);
Հետևյալ հաստատունները սահմանվում են վրձինների լյուկի ոճերի համար.
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
դառնում են նաև գրչի կոորդինատները
SetBrushStyle (bsHatch);
Ըստ
լռելյայն
ոճը սահմանված է 0 –
ամուր
լցնում
գույն.
SetBrushHatch (bhHorizont
ալ);
Ուղղանկյուն (10,10,100,100);
…
օգտագործում է GraphABC;
Խոզանակի լցոնում
Կաթվածի խոզանակի համար կարող եք լրացուցիչ սահմանել
սեփականություն:
SetHatchBrushBackgroundColor(clGold);
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
դառնում են նաև գրչի կոորդինատները
SetBrushStyle (bsHatch);
Ըստ
լռելյայն
ոճը սահմանված է 0 –
SetHatchBrushBackgroundColor (cl
ամուր
լցնում
Ոսկի);
գույն.
SetBrushColor (clCoral);
SetBrushHatch (bhHorizontal);
Եզրագծի գույնը և հաստությունը
SetPenWidth (w);
SetPenColor (գույն);
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
SetPenColor (clred);
SetPenWidth (20);
Ուղղանկյուն (50,50,200,200);
FloodFill (100,100, clBlue);
օգտագործում է GraphABC;
Շրջանակ
Շրջան (x,y,r);
գծում է շրջան՝ կենտրոնացած (x,y) և
շառավիղ r
r
MoveTo (x,y);
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
Շրջանակ (500,200,100);
Floodfill (500,200, clred);
օգտագործում է GraphABC;
Էլիպս
Էլիպս (x1, y1, x2, y2);
նկարում է իր նկարագրով տրված էլիպս
ուղղանկյուն՝ հակադիր կոորդինատներով
գագաթները (x1,y1) և (x2,y2):
x1, y
1
x1, y
1
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
Էլիպս (50,50,200,350);
Floodfill (50+100,50+100,clred);
Էլիպս (250,150,550,300);
Floodfill (250+100,150+100,clBlue);
օգտագործում է GraphABC;
x2, y
2
x2, y
2
Շրջանակի աղեղ
Arc (x, y, r, a1, a2);
գծում է շրջանաձև աղեղ՝ կենտրոնով (x,y) կետով և r շառավղով,
պարփակված երկու ճառագայթների միջև՝ ձևավորելով a1 և a2 անկյունները
OX առանցքով (a1 և a2 իրական են, նշված են աստիճաններով և
հաշված ժամացույցի սլաքի ուղղությամբ)
r
(x,y)
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
դառնում են նաև գրչի կոորդինատները
SetPenWidth (10);
*
Arc(300,250,150,45,135)
;
օգտագործում է GraphABC;
Ոլորտ
Կարկանդակ (x, y, r, a1, a2);
գծում է շրջանագծի հատվածը, որը սահմանափակված է աղեղով (պարամետրեր
ընթացակարգերն ունեն նույն նշանակությունը, ինչ Arc ընթացակարգում)
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
Կարկանդակ (300,200,100,0,90);
Floodfill (300+10200-10,
clAquamarine);
օգտագործում է GraphABC;
Տեքստի ելք
TextOut (x, y, «string»);
թողարկում է տեքստի տող (x,y) դիրքում (կետը (x,y) նշում է
ուղղանկյան վերին ձախ անկյունը, որը կպարունակի
տեքստ)
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
TextOut (100,30, քառակուսի»);
Ուղղանկյուն (50,50,200,200);
Floodfill (55,55,clBlue);
օգտագործում է GraphABC;
Գործողություններ տառատեսակով
SetFontName ('անուն');
սահմանում է տառատեսակի անունը
SetFontColor (գույն);
սահմանում է տառատեսակի գույնը
SetFontSize (sz);
սահմանում է տառաչափը միավորներով
SetFontStyle (fs);
սահմանում է տառատեսակի ոճը
Տառատեսակի անվանումը
Լռելյայն տառատեսակը դրված է
անունը MS Sans Serif
Ամենատարածված տառատեսակներն են
Times New Roman, Arial և Courier New
Տառատեսակի անունը կարելի է մուտքագրել առանց հաշվի առնելու
գրանցել
Օրինակ.
SetFontName ('Times New Roman');
Տառատեսակի ոճը
fsNormal - նորմալ
Սահմանվում է անվանված հաստատուններով.
fsBold - համարձակ
fsItalic – թեք
fsBoldItalic – թավ շեղ
fsԸնդգծել – ընդգծված
fsBoldUnderline – թավ ընդգծում
fsItalicUnderline – թեք ընդգծված
fsBoldItalicUnderline – թավ շեղ ընդգծում
Օրինակ.
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
դառնում են նաև գրչի կոորդինատները
SetFontName ('Arial');
SetFontSize (20);
SetFontColor (clRed);
TextOut (10,10, «նորմալ»);
SetFontStyle (fsItalic);
SetFontColor (clBlue);
TextOut (10,50, ‘շեղված»);
SetFontStyle (fsBold);
SetFontColor (clRandom);
TextOut (10,90, «թավ»);
SetFontStyle (fsUnderline);
SetFontColor (clRandom);
TextOut (10,130, «ընդգծված»);
SetFontStyle (fsBoldItalicUnderline);
SetFontColor (clRandom);
TextOut (10,170, թավ, շեղ, ընդգծված»);
օգտագործում է GraphABC;
Օգտագործված
գույները
Գույնը կարող է սահմանվել նաև ֆունկցիայի միջոցով
RGB(r,g,b), որտեղ r, g և b են ամբողջ թվեր
տատանվում է 0-ից մինչև 255:
Ֆունկցիան վերադարձնում է մի ամբողջ արժեք, որը
գունային ծածկագիր, որը պարունակում է կարմիր, կանաչ և
կապույտ բաղադրիչներ r, g և b ինտենսիվությամբ
համապատասխանաբար (0-ը համապատասխանում է նվազագույնին
ինտենսիվություն, 255 – առավելագույն):
RGB (255,255,255) – համընկնում
սպիտակ գույն.
RGB (0,0,0) – համապատասխանում է սև գույնին:
Օրինակ.
մաքրում է գրաֆիկական պատուհանը սպիտակ գույնով
ClearWindow (գույն);
Clearwindow (rgb (200,150,250));
TextOut (93,30, քառակուսի »);
Ուղղանկյուն (50,50,200,200);
Floodfill (55,55,clRed);
TextOut (275,30, Ellipse));
Էլիպս (250,50,350,200);
FloodFill (250+50,50+50,clDellow);
