// شغل باستخدام: aspl run docs/examples/raylib/نافذة-وإدخال.لبات
// اكتب نصا أو انقر أو مرر لتغيير اللون. غير الحجم لطباعة الأبعاد الجديدة.
// يطلب مفتاح الهروب الإغلاق. يتوقف المثال أيضا بعد 180 إطارا.
استورد أساسي::رايليب.

دالة ابدأ_الرئيسية() -> ص64 {
    دع أعلام = رايليب::اضبط_أعلام_الإعداد(رايليب::علم_نافذة_قابلة_للتحجيم).
    دع معدل_الإطارات = رايليب::اضبط_معدل_الإطارات(60).
    إذا لا أعلام::نجاح أو لا معدل_الإطارات::نجاح { أرجع 1. }
    دع مفتوح = رايليب::هيئ_نافذة(640, 360, "ASPL input / إدخال رايليب").
    إذا لا مفتوح::نجاح { اطبع(مفتوح::الخطأ::الرسالة). أرجع 2. }
    دع مفتاح_خروج = رايليب::اضبط_مفتاح_الخروج(رايليب::مفتاح_هروب).
    إذا لا مفتاح_خروج::نجاح { اطبع(مفتاح_خروج::الخطأ::الرسالة). أرجع 3. }
    متغير إطار: ص64 = 0.
    متغير لون = رايليب::أزرق_سماوي.
    طالما إطار < 180 {
        دع إغلاق_جار = رايليب::هل_يجب_إغلاق_النافذة().
        إذا لا إغلاق_جار::نجاح { اطبع(إغلاق_جار::الخطأ::الرسالة). أرجع 4. }
        إذا إغلاق_جار::قيمة { أرجع 0. }
        دع منقور = رايليب::هل_ضغط_زر_الفأرة(رايليب::زر_فأرة_أيسر).
        دع مضغوط = رايليب::هل_ضغط_المفتاح(رايليب::مفتاح_مسافة).
        دع عجلة = رايليب::حركة_عجلة_الفأرة().
        إذا لا منقور::نجاح أو لا مضغوط::نجاح أو لا عجلة::نجاح { أرجع 5. }
        إذا منقور::قيمة أو مضغوط::قيمة أو عجلة::قيمة لا يطابق 0.0 { لون = رايليب::عنابي. }
        دع مدخل = رايليب::المحرف_المدخل().
        دع مفتاح = رايليب::المفتاح_المضغوط().
        إذا لا مدخل::نجاح أو لا مفتاح::نجاح { أرجع 6. }
        إذا مدخل::قيمة لا يطابق 0 {
            لون = رايليب::أخضر_داكن.
            اطبع("Unicode / محرف: "). اطبع(نسق_ص64(ص64(مدخل::قيمة))). اطبع("\س").
        }
        دع محجم = رايليب::هل_تغير_حجم_النافذة().
        إذا لا محجم::نجاح { أرجع 7. }
        إذا محجم::قيمة أو إطار يطابق 0 {
            دع عرض = رايليب::عرض_الشاشة(). دع ارتفاع = رايليب::ارتفاع_الشاشة().
            دع عرض_الرسم = رايليب::عرض_التصيير(). دع ارتفاع_الرسم = رايليب::ارتفاع_التصيير().
            إذا لا عرض::نجاح أو لا ارتفاع::نجاح أو لا عرض_الرسم::نجاح أو لا ارتفاع_الرسم::نجاح { أرجع 8. }
            اطبع("Screen / شاشة: "). اطبع(نسق_ص64(ص64(عرض::قيمة))). اطبع("x"). اطبع(نسق_ص64(ص64(ارتفاع::قيمة))).
            اطبع(" render="). اطبع(نسق_ص64(ص64(عرض_الرسم::قيمة))). اطبع("x"). اطبع(نسق_ص64(ص64(ارتفاع_الرسم::قيمة))). اطبع("\س").
        }
        دع مبدوء = رايليب::ابدأ_الرسم().
        إذا لا مبدوء::نجاح { اطبع(مبدوء::الخطأ::الرسالة). أرجع 9. }
        // تعمل الملاحظات المأخوذة أيضا أثناء إطار رسم مفتوح.
        دع موضع = رايليب::موضع_الفأرة(). دع فرق = رايليب::تغير_موضع_الفأرة().
        إذا لا موضع::نجاح أو لا فرق::نجاح { أرجع 10. }
        دع ممسوح = رايليب::امسح_الخلفية(لون).
        إذا لا ممسوح::نجاح { اطبع(ممسوح::الخطأ::الرسالة). أرجع 11. }
        دع منته = رايليب::أنه_الرسم().
        إذا لا منته::نجاح { اطبع(منته::الخطأ::الرسالة). أرجع 12. }
        إطار = إطار + 1.
    }
    دع مغلق = رايليب::أغلق_النافذة().
    إذا لا مغلق::نجاح { اطبع(مغلق::الخطأ::الرسالة). أرجع 13. }
    أرجع 0.
}