صدا/ویو audio/wav

واردسازی صدا
واردسازی صدا.ویو
واردسازی فشرده سازی

تابع ریشه:
    ناپایا کلیپ := صدا.جدید(22050، 2، 100)
    صدا.تنظیم نمونه(کلیپ، 7، 1، 0.5)
    بافه := ویو.کدگذاری ویو با بیت(کلیپ، 24)
    سرچاپ ویو.ویو است(بافه.data، بافه.len)، ویو.ویو است(بافه.data، 4)
    ناپایا شکل := ویو.قالب {}
    سرچاپ ویو.خواندن قالب(بافه.data، بافه.len، شکل)
    سرچاپ شکل.کدک برابر ویو.کدک پی‌سی‌ام، شکل.کانال ها، شکل.نرخ، شکل.بیت ها، شکل.همترازی بلوک، شکل.نرخ بایت
    فهرست := ویو.تکه‌ها(بافه.data، بافه.len)
    سرچاپ فهرست.طول()
    ناپایا یکتکه := ویو.تکه {}
    سرچاپ ویو.یافتن تکه(بافه.data، بافه.len، ویو.برچسب("data")، یکتکه)، یکتکه.جابجایی، یکتکه.اندازه
    ناپایا گم := ویو.تکه {}
    سرچاپ ویو.یافتن تکه(بافه.data، بافه.len، ویو.برچسب("cue ")، گم)
    ناپایا درستی := نادرست
    آگاه := ویو.بررسی ویو(بافه.data، بافه.len، درستی)
    سرچاپ درستی، آگاه.نرخ، آگاه.کانال ها، آگاه.بیت ها، آگاه.فریم ها، آگاه.بی اتلاف
    ناپایا درستی۲ := نادرست
    برگشته := ویو.کدگشایی ویو(بافه.data، بافه.len، درستی۲)
    سرچاپ درستی۲، برگشته.فریم ها، برگشته.بیت ها، صدا.نمونه(برگشته، 7، 1)
    فشرده سازی.آزادسازی بافر(بافه)
    صدا.آزادسازی(کلیپ)
پایان

واردسازی صدا
واردسازی صدا.ویو
واردسازی فشرده سازی
واردسازی ریاضی

تابع ریشه:
    سرچاپ صدا.پی‌سی‌ام به میولا(0)، صدا.میولا به پی‌سی‌ام(صدا.پی‌سی‌ام به میولا(0))
    سرچاپ صدا.پی‌سی‌ام به میولا(16000)، صدا.میولا به پی‌سی‌ام(144)
    سرچاپ صدا.پی‌سی‌ام به ای‌لا(16000)، صدا.ای‌لا به پی‌سی‌ام(186)
    سرچاپ صدا.پی‌سی‌ام به ای‌لا(0)، صدا.ای‌لا به پی‌سی‌ام(213)

    ناپایا نزدیک := 0
    ناپایا دورتر := 0
    ناپایا مقدار := -32768
    تا مقدار کوچکتر 32768:
        فرق := ریاضی.قدرمطلق صحیح(صدا.میولا به پی‌سی‌ام(صدا.پی‌سی‌ام به میولا(مقدار)) - مقدار)
        اگر ریاضی.قدرمطلق صحیح(مقدار) کوچکتربرابر 256:
            اگر فرق بزرگتر نزدیک:
                نزدیک = فرق
            پایان
        پایان
        اگر فرق بزرگتر دورتر:
            دورتر = فرق
        پایان
        مقدار += 7
    پایان
    سرچاپ نزدیک، دورتر

    ناپایا کلیپ := صدا.جدید(8000، 2، 50)
    صدا.تنظیم نمونه(کلیپ، 10، 0، 0.5)
    میو := ویو.کدگذاری میولا(کلیپ)
    ایل := ویو.کدگذاری ای‌لا(کلیپ)
    سرچاپ فشرده سازی.طول بافر(میو)، فشرده سازی.طول بافر(ایل)، فشرده سازی.طول بافر(ویو.کدگذاری ویو با بیت(کلیپ، 16))
    ناپایا درستی := نادرست
    برگشته := ویو.کدگشایی ویو(میو.data، میو.len، درستی)
    سرچاپ درستی، برگشته.فریم ها، برگشته.کانال ها، برگشته.بیت ها
    سرچاپ ریاضی.قدرمطلق(صدا.نمونه(برگشته، 10، 0) - 0.5) کوچکتر 0.01
    فشرده سازی.آزادسازی بافر(میو)
    فشرده سازی.آزادسازی بافر(ایل)
    صدا.آزادسازی(کلیپ)
پایان

واردسازی صدا
واردسازی صدا.ویو
واردسازی فشرده سازی
واردسازی مسیر پرونده
واردسازی حافظه
واردسازی سیستم عامل

تابع ریشه:
    ناپایا کلیپ := صدا.جدید(8000، 1، 100)
    صدا.تنظیم نمونه(کلیپ، 0، 0، 0.5)
    صدا.تنظیم نمونه(کلیپ، 1، 0، -0.25)
    سرچاپ فشرده سازی.طول بافر(ویو.کدگذاری ویو با بیت(کلیپ، 8))، فشرده سازی.طول بافر(ویو.کدگذاری ویو با بیت(کلیپ، 16))
    سرچاپ فشرده سازی.طول بافر(ویو.کدگذاری ویو با بیت(کلیپ، 24))، فشرده سازی.طول بافر(ویو.کدگذاری ویو با بیت(کلیپ، 32))
    سرچاپ فشرده سازی.طول بافر(ویو.کدگذاری ویو اعشاری(کلیپ))
    سرچاپ فشرده سازی.طول بافر(ویو.کدگذاری ویو(کلیپ))
    کلیپ.بیت ها = 24
    سرچاپ فشرده سازی.طول بافر(ویو.کدگذاری ویو(کلیپ))
    سرچاپ فشرده سازی.طول بافر(ویو.کدگذاری ویو با بیت(کلیپ، 12))، فشرده سازی.طول بافر(ویو.کدگذاری ویو(صدا.قطعه {}))

    نشانی := مسیر پرونده.پیوند(سیستم عامل.پوشه موقت()، "salam_wav_write.wav")
    دیرکن حافظه.آزادسازی(نشانی برگردان تهی*)
    سرچاپ ویو.ذخیره ویو با بیت(کلیپ، نشانی، 24)
    ناپایا درستی := نادرست
    دیسکی := ویو.بازکردن ویو(نشانی، درستی)
    سرچاپ درستی، دیسکی.فریم ها، دیسکی.بیت ها، صدا.نمونه(دیسکی، 0، 0)، صدا.نمونه(دیسکی، 1، 0)
    ناپایا درستی۲ := نادرست
    آگاه := ویو.بررسی پرونده ویو(نشانی، درستی۲)
    سرچاپ درستی۲، آگاه.فریم ها، آگاه.بیت ها

    نشانیف := مسیر پرونده.پیوند(سیستم عامل.پوشه موقت()، "salam_wav_write_f32.wav")
    دیرکن حافظه.آزادسازی(نشانیف برگردان تهی*)
    سرچاپ ویو.ذخیره ویو اعشاری(کلیپ، نشانیف)
    ناپایا درستی۳ := نادرست
    دیسکف := ویو.بازکردن ویو(نشانیف، درستی۳)
    سرچاپ درستی۳، دیسکف.بیت ها، صدا.نمونه(دیسکف، 1، 0)

    ناپایا رفته := نادرست
    نبود := مسیر پرونده.پیوند(سیستم عامل.پوشه موقت()، "salam_wav_nope.wav")
    دیرکن حافظه.آزادسازی(نبود برگردان تهی*)
    ویو.بازکردن ویو(نبود، رفته)
    سرچاپ رفته
    صدا.آزادسازی(کلیپ)
پایان