locked
mahreen miangul JuNe 2020 RRS feed

  • Question

  •          GraphicsWindow.Width = 400
    GraphicsWindow.Height = 300

    GraphicsWindow.PenColor = "Red"
    GraphicsWindow.DrawEllipse(100, 60, 200, 150)

    GraphicsWindow.PenColor = "Red"
    GraphicsWindow.DrawEllipse(130, 80, 50, 50)

    GraphicsWindow.PenColor = "Red"
    GraphicsWindow.DrawEllipse(220, 80, 50, 50)

    GraphicsWindow.PenColor = "Red"
    GraphicsWindow.DrawEllipse(180, 110, 40, 60)

    GraphicsWindow.PenColor = "Red"
    GraphicsWindow.DrawEllipse(60, 90, 40, 60)

    GraphicsWindow.PenColor = "Red"
    GraphicsWindow.DrawEllipse(300, 90, 40, 60)

    GraphicsWindow.PenColor = "Red"
    GraphicsWindow.DrawEllipse(180, 180, 40, 20)

    one of my first program picture needed Updated by Jibba Jabba's KQL710 also picture needed 
    with thanks                                                                                                                                      mahreen miangul

    Monday, June 1, 2020 6:26 PM

Answers

All replies

  • Hi mahreen miangul, I found the first thread.  And KQL710 seems:

    Screen shot of a program KQL710


    Nonki Takahashi

    Tuesday, June 2, 2020 2:06 PM
  • This is another modification: FQL761.

    Screen shot of a program Face animation


    Nonki Takahashi

    Tuesday, June 2, 2020 2:28 PM
  • Nonki Takahashi you are always a Darling

                                                                                                                           mahreen miangul

    Wednesday, June 3, 2020 11:56 AM
  • added some ld effects: XPJ909

    Wednesday, June 3, 2020 6:49 PM
  • a good one Tryhest please i want to learn the code first the extentions will come by them self will you please help me with the code thankyou.                                                                                                   mahreen miangul

    Thursday, June 4, 2020 11:37 AM
  • some sb-online drawing:

    GraphicsWindow.BackgroundColor="tan"
    GraphicsWindow.PenWidth=0.1
    GraphicsWindow.BrushColor="gold"
    sss=Shapes.AddRectangle(8, 70)
    Shapes.Rotate(sss, 15)
    inn()
    
    Sub inn
      dx=-35
      dy=155
      scale = 0.1
      ps="㎔ാ㍃඘㋠ค㊭ู㉶๭㉃ປ㈔ແ㈅້ㇶ໏㇨໒㇙໓㇆໑ㆶໍㆨ໅㆛຺㆑ອㆊຟㆅຏㆄ๽ㆇ๠㆐฿㆞ธㆯ෱㇙ඣ㈄൝㈩ട㈪ട㈪ഞ㉋೤㉩ತ㉸౼㉼౫㉾౛㉽౑㉹ే㉴ా㉬శ㉣మ㉙఩㉌ధ㈿ద㈇దㇲత㇞ఞ㇔క㇋ఄㆻ௘㆟௽ㅪొㄳಕヺ೟タഩなඋ〘෣⿱ซ⿉ะ⾡๐⽹๭⽒ຆ⼭ປ⼉ອ⻦ຼ⻄໇⺤໏⺅໔⹨໕⹏໕⸹໒⸦ໍ⸔໇⸅຿ⷷີⷫສⷡຝⷍ๼ⷀ๘ⶸำⶵซ⶷෢ⶾබⷉආⷙ൓ⷙ൒ⷬഞ⸂೬⸛಼⸷಍⹗ౡ⹹స⺝ఓ⻃௲⻩௘⼏௅⼢ி⼵஺⽉ஸ⽜ஷ⽶ஹ⾌ா⾟ெ⾯௑⾼௟⿅௮⿊ఁ⿌గ⿊ఫ⿅ీ⾽ౕ⾱౪⾡ಁ⾍ಗ⽵ಯ⽚ೇ⼻ೝ⼙ೲ⻲ഇ⻇ച⺘ബ⹤഼⸭ൌⷱ൚ⷣ൝|╜आ╞࣯╥ࣚ╲ࣆ▄ࢲ▜࢝▶ࢋ◒ࡺ◰࡫☑࡝☲ࡒ♓ࡈ♴ࡁ⚴࠷⛦࠴✃࠶✣࠻✤࠼✥࠼❁ࡃ❚ࡎ❛ࡏ❜ࡏ❰࡜❸ࡤ❾࡮❿࡯➀ࡱ➆ࡺ➊ࢄ➍࢏➎࢝➌ࢱ➈࣋➁ࣩ❷ऌ❝ॗ✿থ✞৵⛼ੂ⛉઺♠ற☯భ☁ಧ◜ങ▾අ▲ම▩෧▤ฒ▢ู▣๕▦๯▬ງ▵ຜ▼ວ◅ັ◐຺◜ເ◸່☗໋☮້♅ໆ♝ເ♵ຸ⚍ຮ⚦ຢ⛙ຂ✍๝❁ิ❵ฆ➩ු⟜ඞ⠎൦⠿ഫ⡯೭⣈౳⤕௿⦦଍⨺ਐ⩿গ⪻न⬓ࡲ⬊࢖⫾ࢹ⫣ࣺ⪐঵⨨ડ⨧ડ⦼ன⦈భ⥘ಬ⥘ಭ⤱ഥ⤒ඒ⤅ස⣽෰⣸ธ⣶฼⣷๑⣺๧⣾๼⤅ຑ⤊ຝ⤑ວ⤢ື⤸ໂ⥃ໄ⥐໅⥫ໂ⦇ຸ⦤ວ⧃ຒ⨀๞⨾ร⪤බ⬈൅⭦೔⮼౧⮻౨ⰴஹⰵஹⰵஸⱋ஛ⱔஓⱝ஑ⱞ஑ⱡ஖ⱡ஛Ⱡ஡ⱚ஫ⱁெⱀைⰿோⰴ௧ⰮఇⰬ౎Ⱞ಩ⰴ೾ⰺൌⰼ඙ⰺ෕ⰴฐⰯหⰨไⰠ๜Ⱅ๳⯼ຠ⯠໏ⰐຼⰾລⱫ຋Ⲗ๮ⲿ๐⳦ั⴩෵ⶉ඗ⷝാⷝി⶚ඉⵐූ⴪෺ⴃพⳛเⲱ๠ⲇ๽ⱝທⰱຮⰆໂⰅໂ⯚໓⮯ໟ⮄໦⭙໩⬫໦⬁ໝ⫘໏⪲ົ⪍ຢ⩫຅⩍๧⨱ๅ|╟ऍ╜उ╜आ|ᨚ௸᫢୏ᬩଗ᭫૤ᰣ੆ᰮ਽ᰭਮᰫ৪ᰮফᰶ९᱃ष᱒ऋᱤ࣡ᱺࢹᲔ࢔Ჵࡪ᳚ࡁᴅࠜᴱ߼ᴱ߻ᵉ߮ᵠߤᵷߜᶎߖᶏߖᶥߑᶼߐ᷒ߒᷩߗḄߢḘ߱ḧࠄḲࠝḵ࠭Ḷ࠽ḴࡏḰࡣḤࢂḓࢠ᷼ࢽᷟࣚᷞࣚᰱ੃ᰶ੼᰿ળ᱋૫᱘ଣᲁுᲧ౟᳆೹᳌ട᳐൅᳒൪᳒ඎ᳐඲᳋෕᳅෷ᲽนᲳำᲦ๑Ზ๱ᲂຒᱭາ᱕໏᰹໩ᰛ໽ᰒ༂ᰈༀᯋ໴᭺໠ᫍອᩨຏᩧຏᩊຆᨬ๾ᨎ๹᧯๵᧓๴ᦸ๵ᦟ๺ᦇກᦆກ᥶ຊᥨຖᥝຩᥔໂᥑ໎ᥐ໚ᥒ໤ᥕ໮ᥥ༅᥸༘᥹༙ᦓ༬᦯༺ᦰ༺ᦱ༺᧓ཉ᧳པᨑཛྷᨰརᩳཪᩴཪ᩵ཪ᪙཮᪽཯᫡཯ᬅ཭ᬆཬᬪཪ᭍ཥ᭯ཞᮑཔᮒཔ᮴ཉᯔ༽᯲༮ᰏ༝ᰘ༘ᰢ༙ᱍ༙ᱸ༖Ტ༏᳌༆ᳵ໹ᴞ໫ᵆ໚ᵮ໇ᶻພḇ๱ẖตẑฝẎศẍไẏ๖ẕ๧ẞ๷Ẫ຅ẫ຅ẻຑồຝỲສ἖ຶἾໂὨ໌ᾑ໔Ᾱ໙‒໠⁝໤ₜ໤⃓໢℃ໜℲ໔→຿⇔ຮ∓ຘ≏๾⊈๠⊿฽⋱ถ⌝෪⍅ඹ⍗ඝ⍦ඁ⍴ൣ⍿ൄ⎇ത⎍ഃ⎑ೠ⎒ಽ⎐ಔ⎊౭⎀ై⍱ధ⍡ఉ⍎௯⌸௖⌟ு⌅ர⋩஡⋌க⊭஍⊍அ≭஀≍୽∫୻∋୿⇱஁⇮ஂ⇬ஃⅺழ⅞ி⅃ே℩ோℑ்℁ோ⃺௉⃺ொ⃺௉⃻௄⃿ீ℀ிℂாℍஶ℟஬ℸ஡⅗க↜஁↽୻⇞୶⇢୵⇥୳∖୚≄ା≰ଟ⊚૾⋁૚⋥શ⌆ઐ⌤੪⌤੩⍀ੂ⍘ਚ⍬ৱ⍾ৈ⎋ঞ⎕ॵ⎛ौ⎝त⎚ࣳ⎖ࣛ⎐ࣅ⎉ࢰ⎀࢝⍶ࢊ⍩ࡹ⍛ࡪ⍋࡜⌹ࡑ⌦ࡇ⌑ࡀ⋺࠻⋣࠸⋊࠷⊳࠸⊛࠻⊄ࡀ≭ࡇ∾࡛∐ࡷ⇣ࢗ↶ࢻ↊ࣥ⅝ओℱॄ℆ॸ⃛র₱৬⁡੥—૟῏୘ᾐ்ὙసἬಔἬಕṇ໅ṇໆṅ໋Ḿ໋ḻ໋Ḻ໊Ḹ໇ḵ໅Ḵ໅ḵໄḵໂḵແἊೂᾍஇΐૡ‑੆⁊঺⁸ृₖࣧ₞ࣈ₡ࢰ₡ࢡ₞࢓ₙࢅₒࡹ₉࡮⁾ࡥ⁲࡞⁥࡙‸ࡎ‣ࡋ‏ࡊῢࡎᾰࡘὼࡦὋࡺἝ࢔ỵࢱợࣂỔࣔỈࣨềࣾềࣿ|Ḿ໾ṃ໾ṇ໽Ḿ໾|ᡝാ᠌඘ឩค᝵ู᜿๭᜾๭ᜌປᛜແᛍ້ᚿ໏ᚰ໒ᚡ໓ᚏ໑ᙿໍᙰ໅ᙣ຺ᙙອᙒຟᙎຏᙌ๽ᙏ๠ᙘ฿ᙙ฿ᙧธᙷ෱ᚢඣᛌ൝ᛍ൝ᛲടᛲഞᜓ೤ᜱತᝁ౼ᝅ౫ᝆ౛ᝅ౑ᝂే᜼ా᜵శᜫమᜡ఩᜕ధᜇదᛏదᚺతᚧఞ᚜కᚔఄᚄ௘ᙧ௽ᘩ౗ᗩಮᖧഃᕥൔᔢජᓠ෬ᒞัᑝ๳ᑃຊᐪພᐒຮᏼຼᏧໆᏔໍᏂ໑Ꮂ໓᎖໐ᎀ້፭຾፞ອፒທፉ຀ፄ๨ፂ๏ፂึፇบፖ඿ጛฅዖ๓ኳ๵኎ດቧອሽໂሩ້ሓ໎ᇽ໒ᇦ໓ᇃ໐ᆴ໌ᆦ໇ᆙເᆍຸᅺ຤ᅨຈᅛ๩ᅔ็ᅑมᅕ෬ᅟභᅱ඀ᆊൈᆨ഑ᇋ೜ᇳಪሞ౻ቍ౏ቿధኴఄዬ௥ጥோ፞ஸ፺ல᎗஭ᎳபᏐனᏮபᐈ஭ᐞரᐰவᐱவᐱஶᑎாᑗுᑙூᑘூᑙூᑡேᑟ்ᑌ௺ᐡౖᏡ೔Ꮲ೔፛ඹ|ᖁാᖀാ|ᆘഭᅅඍჵ෤჎ซႦะၿ๐ၗ๭ူຆညປ࿦ອ࿃ຼྡྷ໇ྂ໏ལ໔ཅ໖༭໕༗໒༃ໍ໲໇໢຿໔ຶ້ສ຾ຝຫ๼ຝ๘ຕำຒซຕ෢ປබວආື൓ື൒້ഞໟ೬໸಼༕಍༵ౡབྷసཻఓྠ௲࿆௘࿬௅࿿ிဓ஻ဦஸ်ஷၓஹၪாၼெႍ௑႙௟Ⴂ௮ႨఁႩగႨఫႣీႚౕႎ౪ၾಁၫಗၓಯ့ೇမೝ࿶ೳ࿏ഇྤചཱུബག഼་ൌ໏൚ເ൝|ॄ৞ऽ৞सড়ऱ৒पসनজऩংब४ल॒ऺऻॅथ॑एॠࣹॲࣤজࢼো࢘৾ࡺ਷ࡠ੠ࡑઊࡅવ࠻ૡ࠳ଏ଼ࠬࠧ୨ࠤஓࠣ௟ࠦన࠰౭࠿ಯࡕ೮ࡱന࢑൝ࢷඎ࣢ඎࣣඥࣹරऑැप෣ॅ෴ॠฅॽม঻ม়ฮ৛ูৼโਞ๊ੁ๐੥๔ઊ๘૗๗଄๔ଲ๏ୠ็஍฾஻ำ௩ลగถ౅ฅ౲ෲಞෝ೉෇ೳථഛඕൃ൹൩൜ඎഽනഞි೼ෲ೙ฐವอಏ่౧๡ా๹కຎ௪ຠிະஒຼ୤ໆଶໍଆ໑૕໓ઙ໑੡ໍਪ໅৶ົকຟ़ຂब๽ठ຋ःຫࣦໆࣉ໚ࢭ໧ࢬ໨࢐໳ࡷ໻ࡡ໿ࡐ༁࠳໿ࠚ໸ࠅ໮߳໠߳ໟ߲ໞߣ໎ߘຼߒວߐຐߒ๺ߘ๧ߣ๗่߲߲็߳ๆࠄูࠗฯࠪษࡀวࡓศࡩฬู࢛भ๻ॅ๒ज़ศংීত඀ূളੑ஼ੑ஻યૂ૟ੋଏঢ়ୁॸ୳ट୳ञ஍ࣷ஧ࣔீࢶ௙࢝|"
      For f=1 To 9
        i=Text.GetIndexOf(ps, "|")
        pts[f]=Text.GetSubText(ps, 1, i-1)
        ps=Text.GetSubTextToEnd(ps, i+1)
      EndFor
      pc=9
      pcl[1]="darkred"
      zz=0
        nSprite=0
        For ff= pc To 1 Step -1
          if ff=1 then
            revv="true"
          EndIf
          ll=pts[ff]
          Sprite_Add()
        EndFor
      Shapes.HideShape(sss)
    EndSub
    
    Sub Sprite_Add
      nSprite = nSprite + 1
      s = scale
      Sprite_ScalePoints()
      ac=Array.GetItemCount(points)
      If ac=2 Then
        s1=2+3
      Else
        s1=3+3
      EndIf
      GraphicsWindow.PenColor=pcl[zz+1]
      GraphicsWindow.BrushColor=pcl[zz+1]
      GraphicsWindow.PenWidth=16
      If revv Then
        stt=ac
        enn=s1
        stp=-3
      Else
        stt=s1
        enn=ac
        stp=3
      EndIf
      For x=stt To enn Step stp
        GraphicsWindow.DrawLine(points[x-3][1], points[x-3][2], points[x][1], points[x][2])
        If x>s1 Then
          GraphicsWindow.FillEllipse( points[x][1]-7, points[x][2]-7,  15, 15)
          Shapes.Move(sss, points[x][1]+10, points[x][2]-70)
        EndIf
        Program.Delay(50)
      EndFor
    EndSub
    
    Sub Sprite_ScalePoints
      points = ""
      ix=0
      For x = 1 To Text.GetLength(ll)-1 Step 2
        ix=ix+1
        points[ix][1]=(text.GetCharacterCode( text.GetSubText (ll, x, 1))-2000)*s-dx-zz*5
        points[ix][2]=(text.GetCharacterCode(text.GetSubText (ll, x+1, 1))-2000)*s+dy-zz*5
      EndFor
    EndSub
    

    Friday, June 5, 2020 9:58 AM
  • ID KQB826 for Tryhest with thanks

                                                                                                                                mahreen miangul

    Friday, June 5, 2020 12:17 PM
  • Grid Blinking Eyes Lady ID TLG464 photo needed 

                                                                                                          mahreen miangul

    Wednesday, June 10, 2020 4:34 PM
  • Chalk Colors Sun guide3 ID TKZ890 rays needed for sunshine.Thank You

                                                                                                              mahreen miangul

                                                                                                        
    Wednesday, June 10, 2020 4:37 PM
  • lady pic:

    Thursday, June 11, 2020 6:59 PM
  • with thanks Tryhest -Arrow Keys Space Bar ID CVB946 is without Image

                                                                                                                                  mahreen miangul

    Thursday, June 11, 2020 7:07 PM
  • baloon shooting:

    Friday, June 12, 2020 5:05 AM
  • nice image with thanks Tryhest
                                                                                                                                   mahreen miangul
    Friday, June 12, 2020 12:09 PM
  • Chalk Colors Sun guide3 ID TKZ890 rays needed for sunshine.Thank You

                                                                                                              mahreen miangul

                                                                                                        

    Hi mahreen, nice chalk colors sun.  I added rays as TKZ890-0.  Thanks.

    Screen shot of a program Chalk Colors Sun 0.4


    Nonki Takahashi

    Wednesday, June 17, 2020 11:07 AM
  • blue princess: VWJ782

    • reduced to 30 code lines only
    • added shadows and fountain fills
    • changed to shapes

    Thursday, July 16, 2020 2:11 PM