የቱርቦ ፓስካል የፕሮግራም ቋንቋ በማያ ገጹ ላይ የተለያዩ ቅርጾችን በስዕላዊ መንገድ ለመሳል ያስችልዎታል ፡፡ ማንኛውም ግራፊክ ነገር ነጥቦችን ፣ መስመሮችን ፣ አርከስ በመጠቀም ሊሠራ ይችላል ፡፡ ፓስካል ከ 640 x 480 የማያ ጥራት ጋር የራስተር ግራፊክስ ሁነታን ይጠቀማል ስዕሉ ለግራፊክ አሠራሮች እንዲታዩ የነገሩን የመጀመሪያ እና የመጨረሻ ነጥቦችን መጋጠሚያዎች በማቀናበር ያካትታል ፡፡ የእቃው ቀለም ፣ የመስመሮቹ ውፍረት እና እንዲሁም የእነሱ ዘይቤ እንዲሁ የግራፊክ አሠራሮች መለኪያዎች ተደርገዋል ፡፡ ሶፍትዌርን በመጠቀም ለመሳል የፓስካል ግራፊክ ሞጁሉን ማገናኘት ያስፈልግዎታል ፡፡
አስፈላጊ
ቱርቦ ፓስካል የፕሮግራም አከባቢ
መመሪያዎች
ደረጃ 1
የተጠቀሰውን የስዕል ነገር ወደ ውስጡ ንጥረ ነገሮች ይበትጡት ፡፡ ነጠላ መስመሮችን ፣ አርከቦችን ፣ ክቦችን ፣ አራት ማዕዘን እና ነጥቦችን ይምረጡ ፡፡ እነዚህ ቱርቦ ፓስካል አሠራሮችን በመጠቀም ሊሳሉ የሚችሉ ቅርጾች ናቸው ፡፡
ደረጃ 2
በፕሮግራሙ ኮድ መጀመሪያ ላይ የግራፊክስ ሞጁሉን ያገናኙ ፡፡ ይህንን ለማድረግ ይህንን የመሰለ መስመር ይፃፉ ግራፍ ይጠቀማል ፡፡ በመቀጠል የግራፊክስ ሁነታን ለማስጀመር የኢቲጀር ተለዋዋጮችን ይፍጠሩ-var gdet, gm: integer
ደረጃ 3
በፕሮግራሙ አካል ውስጥ ከመጀመሪያው ቁልፍ ቃል በኋላ ተለዋዋጮቹን ያስጀምሩ ፣ አንዳቸውንም ዜሮ እሴት ይመድቡ ፣ ሁለተኛው ደግሞ የመለየት እሴት። በመቀጠልም የግራፊክ ሥዕላዊ ሁኔታን መጀመርን ያመልክቱ ፣ የቅጹን መስመር ያስገቡ Initgraph (gdet, gm,”) ፡፡ የማሳያ መሣሪያውን ያጽዱ-ግልፅ ፡፡
ደረጃ 4
ለመሳል የጀርባውን ቀለም እና የሚሳቡትን የነገሮች የመስመር ቀለም ያዘጋጁ ፡፡ ለዚህም SetBkColor (white) እና SetColor (8) ን ሂደቶች ይጠቀሙ። የሚዘጋጀው ቀለም በቅንፍ ውስጥ ይገለጻል ፡፡ በአጠቃላይ ፓስካል 16 ቀለሞችን ይጠቀማል ፣ እና እያንዳንዳቸው በቁጥርም ሆነ በልዩ ቀለም ሰንጠረዥ በአንድ ቃል ይገለፃሉ።
ደረጃ 5
ከግራ ወደ ቀኝ ከኤክስ ዘንግ እና ከ y ዘንግ ጋር አንድ ማያ ገጸ-ሥዕል በዓይነ ሕሊናዎ ያስቡ ፡፡ በዚህ የአስተባባሪ ስርዓት አመጣጥ ማለትም በማያ ገጹ የላይኛው ግራ ጥግ መጋጠሚያው (0, 0) ነው ፡፡ የመጀመሪያውን ግራፊክ ነገር የተፈለገውን ቦታ መጋጠሚያዎች ያስሉ። በዚህ ልዩ ስርዓት ውስጥ ስዕሎችን ለመሳል ሁሉንም መጋጠሚያዎች ይጥቀሱ ፡፡
ደረጃ 6
የሂደቱን መስመር (x ፣ y ፣ x1 ፣ y1) በመጠቀም አንድ መስመር ይሳሉ ፣ መጋጠሚያዎች x ፣ y የመስመሩ መነሻ ሲሆኑ x1 ፣ y1 ደግሞ መጨረሻው ነው ፡፡ የመስመሩን ውፍረት ይለውጡ ወይም አስፈላጊ ከሆነ ይተይቡ። ይህንን ለማድረግ የ SetLineStyle (0, 0, NormWidth) አሰራርን ይጠቀሙ። የሂደቱ የመጀመሪያ ግቤት መስመሩን ሰረዝ ፣ ወይም የነጥብ መስመር በማድረግ ሊለውጠው ይችላል - ይህን ቁጥር ወደ 1 ወይም 2. ይቀይሩ ሦስተኛው ልኬት የመስመሮቹን ውፍረት ያዘጋጃል ፡፡ በነባሪ የ NormWidth ግቤት ሁል ጊዜ ተዘጋጅቷል - ስስ መስመሮች ፣ ለ ወፍራም መስመሮች ThickWidth ተዘጋጅተዋል። የተቀየረው የመስመር አይነት ይህንን አሰራር ከጠራ በኋላ ይሳባል ፡፡
ደረጃ 7
የ PutPixel (x ፣ y ፣ ቀለም) አሰራርን በመጠቀም በማያ ገጹ ላይ አንድ ነጥብ ያስቀምጡ ፣ እዚህ x እና y ደግሞ የነጥቡ መጋጠሚያዎች ናቸው ፣ እና ቀለሙ ቀለሙ ነው። የተዘጋ ቅርጽ ከመሳልዎ በፊት ፣ መሙላቱን ማዘጋጀት ይችላሉ ፡፡ ይህንን ለማድረግ የ “SetFillStyle” (EmptyFill, 0) ሂደትን ይደውሉ ፣ የመጀመሪያ መለኪያው የቅርጹን ጠንካራ መሙላትን የሚገልጽበት ሲሆን ሁለተኛው ደግሞ የመሙያውን ቀለም ይገልጻል።
ደረጃ 8
አራት ማዕዘን ቅርፅ አራት ማዕዘን ቅርፅ (አራት ማዕዘን (x, y, x2, y2)) በመጠቀም ይሳሉ - መጋጠሚያዎች የቅርጹን የላይኛው ግራ እና የታችኛው የቀኝ ማዕዘኖች ያዘጋጃሉ ፡፡ ክበብን ለመሳል መስመር ክበብ (x, y, R) ይፃፉ ፣ x ፣ y ፣ R የመካከለኛው እና የክቡ ራዲየስ መጋጠሚያዎች እንዲሁም በፒክሴሎች ውስጥ ናቸው ፡፡ አንድ ኤሊፕዝ ለመሳል የበለጠ ከባድ ነው ፣ ለዚህ ብዙ ተጨማሪ መለኪያዎች ጥቅም ላይ ይውላሉ-ኤልሊፕስ (x ፣ y ፣ BegA ፣ EndA ፣ RX ፣ RY) ፡፡ እዚህ x ፣ y የኤልሊፕስ ተመሳሳይ ማዕከል ነው ፣ እና ቤጌ እና ኤንድኤ የኤሊፕቲክ ቀስት የሚጀመርበት እና የሚያበቃበትን አንግል ያመለክታሉ። ተለዋዋጮቹ አርኤክስ ፣ አርኤይ የኤሊፕስ ራዲየሱን በ x እና y መጥረቢያዎች በቅደም ተከተል አቀናብረዋል ፡፡
ደረጃ 9
የተሰጠው ቅርፅ ካለዎት ፣ በተለየ ክፍሎች ለመሳል በጣም ቀላሉ ፣ ለዚህ የ MoveTo እና LineTo አሠራሮችን ይጠቀሙ ፡፡ በመጀመሪያ ፣ የአሁኑን ጠቋሚ ወደሚፈልጉት ቦታ ያንቀሳቅሱ-MoveTo (x, y) ከዚያ መስመርን ከእሱ ወደ ቀጣዩ ነጥብ LineTo (x1, y1) ይሳሉ እና እንደገና የመጀመሪያውን መስመር እስኪያገኙ ድረስ ቀጥ ያለ መስመር LineTo (x2, y2) እና የመሳሰሉትን ይሳሉ ፡፡
ደረጃ 10
በፕሮግራሙ ኮድ ውስጥ በስዕሉ መጨረሻ ላይ የግራፊክስ ሁነታን በመስመሩ ይዝጉ-የተጠጋጋ ፡፡ እንደተለመደው የፕሮግራሙን አካል መጨረሻውን በሚለው ቃል ጨርስ ፡፡ አሁን ኮዱ ተሰብስቦ ለአፈፃፀም ሊሠራ ይችላል ፡፡
