تبلیغات تبلیغات
29آبان
P1x = 50 P1y = 50 P2x = 100 P2y = 50 P3x = 100 P3y = 100 P4x = 50 P4y = 100 GraphicsWindow.Show() '------------------------- Khat 1 x1 = P1x y1 = P1y x2 = P2x y2 = P2y DDA() '------------------------- Khat 2 x1 = P2x y1 = P2y x2 = P3x y2 = P3y DDA() '------------------------- Khat 3 x1 = P3x y1 = P3y x2 = P4x y2 = P4y DDA() '------------------------- Khat 4 x1 = P4x y1 = P4y x2 = P1x y2 = P1y DDA() '------------------------ Fill fcolor = "#FF0000" bcolor = "#0000FF" Stack.PushValue("x", 75) Stack.PushValue("y", 75) Fill() Sub DDA dx = x2 - x1 dy = y2 - y1 If Math.Abs(dx) > Math.Abs(dy) Then steps = Math.Abs(dx) Else steps = Math.Abs(dy) EndIf xinc = dx / steps yinc = dy / steps x = x1 y = y1 GraphicsWindow.SetPixel(Math.Round(x), Math.Round(y), "Blue") For i = 0 To steps x = x + xinc y = y + yinc GraphicsWindow.SetPixel(Math.Round(x), Math.Round(y), "Blue") EndFor 'GraphicsWindow.BrushColor = "Red" 'GraphicsWindow.DrawText(x1, y1, "(" + x1 + "," + y1 + ")") 'GraphicsWindow.DrawText(x2, y2, "(" + x2 + "," + y2 + ")") EndSub
Sub Fill While Stack.GetCount("x") > 0 x = Stack.PopValue("x") y = Stack.PopValue("y") color = GraphicsWindow.GetPixel(x,y) If (color <> bcolor And color <> fcolor) Then GraphicsWindow.SetPixel(x,y, fcolor) Stack.PushValue("x", x) Stack.PushValue("y", y + 1) Stack.PushValue("x", x + 1) Stack.PushValue("y", y) Stack.PushValue("x", x) Stack.PushValue("y", y - 1) Stack.PushValue("x", x - 1) Stack.PushValue("y", y) EndIf EndWhile EndSub 20اذر
P1x = 50 P1y = 50 P2x = 100 P2y = 50 P3x = 75 P3y = 75 DrawTriangle() Tx = 0 Ty = 0 For move = 1 To 100 Tx = move Ty = 0 GraphicsWindow.Clear() MoveTriangle() Program.Delay(100) EndFor '================================================= '================ DRAW TRIABGLE ================== '================================================= Sub DrawTriangle '------------------------- Khat 1 x1 = P1x y1 = P1y x2 = P2x y2 = P2y DDA() '------------------------- Khat 2 x1 = P2x y1 = P2y x2 = P3x y2 = P3y DDA() '------------------------- Khat 3 x1 = P1x y1 = P1y x2 = P3x y2 = P3y DDA() EndSub '================================================= '================ MOVE TRIANGLE ================== '================================================= Sub MoveTriangle '------------------------- Khat 1 x1 = P1x + Tx y1 = P1y + Ty x2 = P2x + Tx y2 = P2y + Ty DDA() '------------------------- Khat 2 x1 = P2x + Tx y1 = P2y + Ty x2 = P3x + Tx y2 = P3y + Ty DDA() '------------------------- Khat 3 x1 = P1x + Tx y1 = P1y + Ty x2 = P3x + Tx y2 = P3y + Ty DDA() EndSub '================================================= '================ DRAW LINE ================== '================================================= Sub DDA dx = x2 - x1 dy = y2 - y1 If Math.Abs(dx) > Math.Abs(dy) Then steps = Math.Abs(dx) Else steps = Math.Abs(dy) EndIf xinc = dx / steps yinc = dy / steps x = x1 y = y1 GraphicsWindow.SetPixel(Math.Round(x), Math.Round(y), "Blue") For i = 0 To steps x = x + xinc y = y + yinc GraphicsWindow.SetPixel(Math.Round(x), Math.Round(y), "Blue") EndFor EndSub 27 آذر
P1x = 50 P1y = 50 P2x = 150 P2y = 50 P3x = 75 P3y = 75 DrawTriangle() Tx = 0 Ty = 0 'MoveTriangle() Xr = 75 Yr = 75 For teta = 1 To 45 t = -teta * (Math.Pi / 180) RotateTriangle() Program.Delay(100) GraphicsWindow.Clear() EndFor '================================================= '================ ROTATE TRIABGLE ================== '================================================= Sub RotateTriangle x1 = Math.Cos(t) * P1x - Math.Sin(t) * P1y + Xr * (1 - Math.Cos(t)) + Yr * Math.Sin(t) y1 = Math.Sin(t) * P1x + Math.Cos(t) * P1y + Yr * (1 - Math.Cos(t)) - Xr * Math.Sin(t) x2 = Math.Cos(t) * P2x - Math.Sin(t) * P2y + Xr * (1 - Math.Cos(t)) + Yr * Math.Sin(t) y2 = Math.Sin(t) * P2x + Math.Cos(t) * P2y + Yr * (1 - Math.Cos(t)) - Xr * Math.Sin(t) DDA() '------------------------- Khat 2 x1 = Math.Cos(t) * P2x - Math.Sin(t) * P2y + Xr * (1 - Math.Cos(t)) + Yr * Math.Sin(t) y1 = Math.Sin(t) * P2x + Math.Cos(t) * P2y + Yr * (1 - Math.Cos(t)) - Xr * Math.Sin(t) x2 = Math.Cos(t) * P3x - Math.Sin(t) * P3y + Xr * (1 - Math.Cos(t)) + Yr * Math.Sin(t) y2 = Math.Sin(t) * P3x + Math.Cos(t) * P3y + Yr * (1 - Math.Cos(t)) - Xr * Math.Sin(t) DDA() '------------------------- Khat 3 x1 = Math.Cos(t) * P1x - Math.Sin(t) * P1y + Xr * (1 - Math.Cos(t)) + Yr * Math.Sin(t) y1 = Math.Sin(t) * P1x + Math.Cos(t) * P1y + Yr * (1 - Math.Cos(t)) - Xr * Math.Sin(t) x2 = Math.Cos(t) * P3x - Math.Sin(t) * P3y + Xr * (1 - Math.Cos(t)) + Yr * Math.Sin(t) y2 = Math.Sin(t) * P3x + Math.Cos(t) * P3y + Yr * (1 - Math.Cos(t)) - Xr * Math.Sin(t) DDA() EndSub '================================================= '================ DRAW TRIABGLE ================== '================================================= Sub DrawTriangle '------------------------- Khat 1 x1 = P1x y1 = P1y x2 = P2x y2 = P2y DDA() '------------------------- Khat 2 x1 = P2x y1 = P2y x2 = P3x y2 = P3y DDA() '------------------------- Khat 3 x1 = P1x y1 = P1y x2 = P3x y2 = P3y DDA() EndSub '================================================= '================ MOVE TRIANGLE ================== '================================================= Sub MoveTriangle '------------------------- Khat 1 x1 = P1x + Tx y1 = P1y + Ty x2 = P2x + Tx y2 = P2y + Ty DDA() '------------------------- Khat 2 x1 = P2x + Tx y1 = P2y + Ty x2 = P3x + Tx y2 = P3y + Ty DDA() '------------------------- Khat 3 x1 = P1x + Tx y1 = P1y + Ty x2 = P3x + Tx y2 = P3y + Ty DDA() EndSub '================================================= '================ DRAW LINE ================== '================================================= Sub DDA dx = x2 - x1 dy = y2 - y1 If Math.Abs(dx) > Math.Abs(dy) Then steps = Math.Abs(dx) Else steps = Math.Abs(dy) EndIf xinc = dx / steps yinc = dy / steps x = x1 y = y1 GraphicsWindow.SetPixel(Math.Round(x), Math.Round(y), "Blue") For i = 0 To steps x = x + xinc y = y + yinc GraphicsWindow.SetPixel(Math.Round(x), Math.Round(y), "Blue") EndFor EndSub آرزو
آرزو دیشب ممیخواستم بنویسم نشد شد 65 روز تمام ،65 روزی که دو هفته اولش عالی بود هیچ وقت خرید ونک و یادم نمیره ولی تموم شد با تلفن یکی که فکر میکنم اسمش آرزو بود تموم شد یکی که بر عکس من بلد بود به خاطر نگه داشتن چیزهایی که داره مبارزه کنه تموم شد من مثل همیشه نجنگیدم به نفع حریف کنار رفتم حریفی که مطمینم براش فرق نمیکرد کی کنارش باشه من به نفع اون دوتا حقیقت و نگفتم من کوتاه اومدم کوتاه اومدم گریه کردم گریه کردم گریه کردم خدایا چرا؟چیز زیادی ازت خواستم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ گریه کردم و اون رفت حتی بدون یه معذرت خواهی ساده آره اون رفت و من باز تنهام تنهای تنهای تنها داغونم اول این سرماخوردگی کذایی بعد بابای لعنتی ام به اضافه همه اینا خ.و.ن.ر.ی.ز.ی.شد.ی.د دیشبم که امیر و آرزو اضافه شدن دارم از پا در میام @@@@@@@@@@@@@@@@@@@@@@@@@@@@ مریضم خیلی مریض بد جوری ضعف دارم یه هفته است غذا نخوردم دقیقا از جمعه هفته قبل شاید دو سه تا بشقاب سوپ و چندتا قاشق برنج یه عالمه آنتی ببیوتیک و سرماخوردگی و شربت و دارو به علاوه کلی حرص و غصه و دعوا و گریه خیلی ضعیفم کرده اونم رفته دیگه منتظر نیستم حتی ازم معذرت خواهی هم نکرد
نوع مطلب :خاطره
شانس
موندم من چرا انقدر بد شانسم
اون از بابام که شب به شب ج.ن.د.ه ف.ا.ی.ش.ح.ه میکشه به هیکلم این از رفیقم که معلوم نیس من و اندازه هیچم قبول نداره
نوع مطلب :درد و دل
امیر امروز اسمت و بعد از 4 سال دوباره سیو کردم
نوع مطلب :خاطره
پیک نیک دیروز بعد از مدتها رفته بودم پیک نیک البته یه پیک نیک دو نفره
نوع مطلب :خاطره
aaaaaaaaaaaaaaaaaaa بچه شدم بچه شدم
نوع مطلب :خاطره
دلم برات تنگ شده
دلم برات تنگ شده شاید لک زده نمیدونم والله دلم واسه تو تنگه یا واسه خیالت خبر ندارم،رفته بودم خرید فروشنده برگشت سمتم واسه قیمت دادن نسم بند اومد چشماش رنگ چشمات بود گریه ام گرفت بستنی تو دستم کوفتم شد یعنی دلم برات تنگ شده؟اصلا من دل دارم؟اصلا تو وجود داری دوستی که همراهم بود گفت زیاد سرم گرم بوده تو از دستم لیز خوردی غلط کردم غلط کردم بیا خواهش میکنم تو رو خدا بیا و زنگ تفریح این جهنم باش
نوع مطلب :برای تو
بازم دعوا
بازم دلم واسه خودم میسوزه!!!!!!!!!!!!!!!! صبح بعد یه جنگ مفصل با بابام رفتم که برم سر کار تو راه داشتم فکر میکردم با شرایط جدید شاید بهتر بود تغییر رشته میدادم و میومدم تهران بعد فکر کردم با این رشته شاید من تنها ادامه دهنده تقریبی رشته بابا و بابا بزرگم هستم گفتم اشکالی نداره واسه دل بابایی که هرگز واسه دل من کاری نکرده این سختی یک سال مونده رو تحمل کنم واسه دلخوشی خودم هم میگم این گرایش فارغ التحصیل کمتر داره شاید بازار کارش بهتر باشه الان ساعت 9 شبه بابام داره با شدیدترین لحن ممکن رشته تحصیلیم و نقد میکنه دلم شکسته خوب منم دل دارم یه جنگ صبح یه دعوا الان تازه وسطش یه دل شکسته که هیچ کس ندیدتش
نوع مطلب :خاطره
پاییز
هوا داره سرد میشه داره میشه فصل تو هوای تو من نگران دستاتم
نوع مطلب :درد و دل
کفش
برای اولین بار تو عمرم...........................
خسته ام تنهام دلم یه آغوش گرم میخواهد
نوع مطلب :خاطره
منم
اگه یکی بهت بگه سگ چی کار میکنی؟ اگه یکی هی بهت بگه سگ چی کار میکنی؟ اگه دلت بشکنه چی کار میکنی؟ اگه هیچ کس دوست نداشته باشه چی کار میکنی؟ اگه.............................................
نوع مطلب :خاطره
بابا من بابا میخام ....................................................................
نوع مطلب :درد و دل
درباره وبلاگ:آرشیو:طبقه بندی:آخرین پستها:پیوندها:نویسندگان:ابر برچسبها:آمار وبلاگ:
The Theme Being Used Is MihanBlog Created By ThemeBox
|
[Automated by GetSmile] 
