+static void draw_savestate_bg(int slot)\r
+{\r
+ struct PicoVideo tmp_pv;\r
+ unsigned short tmp_cram[0x40];\r
+ unsigned short tmp_vsram[0x40];\r
+ void *tmp_vram, *file;\r
+ char *fname;\r
+\r
+ fname = emu_get_save_fname(1, 0, slot);\r
+ if (!fname) return;\r
+\r
+ tmp_vram = malloc(sizeof(Pico.vram));\r
+ if (tmp_vram == NULL) return;\r
+\r
+ memcpy(tmp_vram, Pico.vram, sizeof(Pico.vram));\r
+ memcpy(tmp_cram, Pico.cram, sizeof(Pico.cram));\r
+ memcpy(tmp_vsram, Pico.vsram, sizeof(Pico.vsram));\r
+ memcpy(&tmp_pv, &Pico.video, sizeof(Pico.video));\r
+\r
+ if (strcmp(fname + strlen(fname) - 3, ".gz") == 0) {\r
+ file = gzopen(fname, "rb");\r
+ emu_setSaveStateCbs(1);\r
+ } else {\r
+ file = fopen(fname, "rb");\r
+ emu_setSaveStateCbs(0);\r
+ }\r
+\r
+ if (file) {\r
+ if (PicoAHW & PAHW_MCD) {\r
+ PicoCdLoadStateGfx(file);\r
+ } else {\r
+ areaSeek(file, 0x10020, SEEK_SET); // skip header and RAM in state file\r
+ areaRead(Pico.vram, 1, sizeof(Pico.vram), file);\r
+ areaSeek(file, 0x2000, SEEK_CUR);\r
+ areaRead(Pico.cram, 1, sizeof(Pico.cram), file);\r
+ areaRead(Pico.vsram, 1, sizeof(Pico.vsram), file);\r
+ areaSeek(file, 0x221a0, SEEK_SET);\r
+ areaRead(&Pico.video, 1, sizeof(Pico.video), file);\r
+ }\r
+ areaClose(file);\r
+ }\r
+\r
+ /* do a frame and fetch menu bg */\r
+ pemu_forced_frame(POPT_EN_SOFTSCALE);\r
+ plat_video_menu_enter(1);\r
+\r
+ memcpy(Pico.vram, tmp_vram, sizeof(Pico.vram));\r
+ memcpy(Pico.cram, tmp_cram, sizeof(Pico.cram));\r
+ memcpy(Pico.vsram, tmp_vsram, sizeof(Pico.vsram));\r
+ memcpy(&Pico.video, &tmp_pv, sizeof(Pico.video));\r
+ free(tmp_vram);\r
+}\r
+\r
+static void draw_savestate_menu(int menu_sel, int is_loading)\r
+{\r
+ int i, x, y, w, h;\r
+\r
+ if (state_slot_flags & (1 << menu_sel))\r
+ draw_savestate_bg(menu_sel);\r
+\r
+ w = (13 + 2) * me_mfont_w;\r
+ h = (1+2+10+1) * me_mfont_h;\r
+ x = g_screen_width / 2 - w / 2;\r
+ if (x < 0) x = 0;\r
+ y = g_screen_height / 2 - h / 2;\r
+ if (y < 0) y = 0;\r
+\r
+ plat_video_menu_begin();\r
+\r
+ text_out16(x, y, is_loading ? "Load state" : "Save state");\r
+ y += 3 * me_mfont_h;\r
+\r
+ menu_draw_selection(x - me_mfont_w * 2, y + menu_sel * me_mfont_h, (13 + 2) * me_mfont_w + 4);\r
+\r
+ /* draw all 10 slots */\r
+ for (i = 0; i < 10; i++, y += me_mfont_h)\r
+ {\r
+ text_out16(x, y, "SLOT %i (%s)", i, (state_slot_flags & (1 << i)) ? "USED" : "free");\r
+ }\r
+ text_out16(x, y, "back");\r
+\r
+ plat_video_menu_end();\r
+}\r
+\r
+static int menu_loop_savestate(int is_loading)\r
+{\r
+ static int menu_sel = 10;\r
+ int menu_sel_max = 10;\r
+ unsigned long inp = 0;\r
+\r
+ state_check_slots();\r
+\r
+ for (;;)\r
+ {\r
+ draw_savestate_menu(menu_sel, is_loading);\r
+ inp = in_menu_wait(PBTN_UP|PBTN_DOWN|PBTN_MOK|PBTN_MBACK, 100);\r
+ if (inp & PBTN_UP) {\r
+ do {\r
+ menu_sel--;\r
+ if (menu_sel < 0)\r
+ menu_sel = menu_sel_max;\r
+ } while (!(state_slot_flags & (1 << menu_sel)) && menu_sel != menu_sel_max && is_loading);\r
+ }\r
+ if (inp & PBTN_DOWN) {\r
+ do {\r
+ menu_sel++;\r
+ if (menu_sel > menu_sel_max)\r
+ menu_sel = 0;\r
+ } while (!(state_slot_flags & (1 << menu_sel)) && menu_sel != menu_sel_max && is_loading);\r
+ }\r
+ if (inp & PBTN_MOK) { // save/load\r
+ if (menu_sel < 10) {\r
+ state_slot = menu_sel;\r
+ if (emu_save_load_game(is_loading, 0)) {\r
+ me_update_msg(is_loading ? "Load failed" : "Save failed");\r
+ return 0;\r
+ }\r
+ return 1;\r
+ }\r
+ return 0;\r
+ }\r
+ if (inp & PBTN_MBACK)\r
+ return 0;\r
+ }\r
+}\r
+\r
+// -------------- key config --------------\r
+\r
+static char *action_binds(int player_idx, int action_mask, int dev_id)\r
+{\r
+ int k, count, can_combo, type;\r
+ const int *binds;\r
+\r
+ static_buff[0] = 0;\r
+\r
+ binds = in_get_dev_binds(dev_id);\r
+ if (binds == NULL)\r
+ return static_buff;\r
+\r
+ count = in_get_dev_info(dev_id, IN_INFO_BIND_COUNT);\r
+ can_combo = in_get_dev_info(dev_id, IN_INFO_DOES_COMBOS);\r
+\r
+ type = IN_BINDTYPE_EMU;\r
+ if (player_idx >= 0) {\r
+ can_combo = 0;\r
+ type = IN_BINDTYPE_PLAYER12;\r
+ }\r
+ if (player_idx == 1)\r
+ action_mask <<= 16;\r
+\r
+ for (k = 0; k < count; k++)\r
+ {\r
+ const char *xname;\r
+ int len;\r
+\r
+ if (!(binds[IN_BIND_OFFS(k, type)] & action_mask))\r
+ continue;\r
+\r
+ xname = in_get_key_name(dev_id, k);\r
+ len = strlen(static_buff);\r
+ if (len) {\r
+ strncat(static_buff, can_combo ? " + " : ", ",\r
+ sizeof(static_buff) - len - 1);\r
+ len += can_combo ? 3 : 2;\r
+ }\r
+ strncat(static_buff, xname, sizeof(static_buff) - len - 1);\r
+ }\r
+\r
+ return static_buff;\r
+}\r
+\r
+static int count_bound_keys(int dev_id, int action_mask, int bindtype)\r
+{\r
+ const int *binds;\r
+ int k, keys = 0;\r
+ int count;\r
+\r
+ binds = in_get_dev_binds(dev_id);\r
+ if (binds == NULL)\r
+ return 0;\r
+\r
+ count = in_get_dev_info(dev_id, IN_INFO_BIND_COUNT);\r
+ for (k = 0; k < count; k++)\r
+ {\r
+ if (binds[IN_BIND_OFFS(k, bindtype)] & action_mask)\r
+ keys++;\r
+ }\r
+\r
+ return keys;\r
+}\r
+\r
+static void draw_key_config(const me_bind_action *opts, int opt_cnt, int player_idx,\r
+ int sel, int dev_id, int dev_count, int is_bind)\r
+{\r
+ char buff[64], buff2[32];\r
+ const char *dev_name;\r
+ int x, y, w, i;\r
+\r
+ w = ((player_idx >= 0) ? 20 : 30) * me_mfont_w;\r
+ x = g_screen_width / 2 - w / 2;\r
+ y = (g_screen_height - 4 * me_mfont_h) / 2 - (2 + opt_cnt) * me_mfont_h / 2;\r
+ if (x < me_mfont_w * 2)\r
+ x = me_mfont_w * 2;\r
+\r
+ plat_video_menu_begin();\r
+ if (player_idx >= 0)\r
+ text_out16(x, y, "Player %i controls", player_idx + 1);\r
+ else\r
+ text_out16(x, y, "Emulator controls");\r
+\r
+ y += 2 * me_mfont_h;\r
+ menu_draw_selection(x - me_mfont_w * 2, y + sel * me_mfont_h, w + 2 * me_mfont_w);\r
+\r
+ for (i = 0; i < opt_cnt; i++, y += me_mfont_h)\r
+ text_out16(x, y, "%s : %s", opts[i].name,\r
+ action_binds(player_idx, opts[i].mask, dev_id));\r
+\r
+ dev_name = in_get_dev_name(dev_id, 1, 1);\r
+ w = strlen(dev_name) * me_mfont_w;\r
+ if (w < 30 * me_mfont_w)\r
+ w = 30 * me_mfont_w;\r
+ if (w > g_screen_width)\r
+ w = g_screen_width;\r
+\r
+ x = g_screen_width / 2 - w / 2;\r
+\r
+ if (!is_bind) {\r
+ snprintf(buff2, sizeof(buff2), "%s", in_get_key_name(-1, -PBTN_MOK));\r
+ snprintf(buff, sizeof(buff), "%s - bind, %s - clear", buff2,\r
+ in_get_key_name(-1, -PBTN_MA2));\r
+ text_out16(x, g_screen_height - 4 * me_mfont_h, buff);\r
+ }\r
+ else\r
+ text_out16(x, g_screen_height - 4 * me_mfont_h, "Press a button to bind/unbind");\r
+\r
+ if (dev_count > 1) {\r
+ text_out16(x, g_screen_height - 3 * me_mfont_h, dev_name);\r
+ text_out16(x, g_screen_height - 2 * me_mfont_h, "Press left/right for other devs");\r
+ }\r
+\r
+ plat_video_menu_end();\r
+}\r
+\r
+static void key_config_loop(const me_bind_action *opts, int opt_cnt, int player_idx)\r
+{\r
+ int i, sel = 0, menu_sel_max = opt_cnt - 1;\r
+ int dev_id, dev_count, kc, is_down, mkey;\r
+ int unbind, bindtype, mask_shift;\r
+\r
+ for (i = 0, dev_id = -1, dev_count = 0; i < IN_MAX_DEVS; i++) {\r
+ if (in_get_dev_name(i, 1, 0) != NULL) {\r
+ dev_count++;\r
+ if (dev_id < 0)\r
+ dev_id = i;\r
+ }\r
+ }\r
+\r
+ if (dev_id == -1) {\r
+ lprintf("no devs, can't do config\n");\r
+ return;\r
+ }\r
+\r
+ mask_shift = 0;\r
+ if (player_idx == 1)\r
+ mask_shift = 16;\r
+ bindtype = player_idx >= 0 ? IN_BINDTYPE_PLAYER12 : IN_BINDTYPE_EMU;\r
+\r
+ for (;;)\r
+ {\r
+ draw_key_config(opts, opt_cnt, player_idx, sel, dev_id, dev_count, 0);\r
+ mkey = in_menu_wait(PBTN_UP|PBTN_DOWN|PBTN_LEFT|PBTN_RIGHT|PBTN_MBACK|PBTN_MOK|PBTN_MA2, 100);\r
+ switch (mkey) {\r
+ case PBTN_UP: sel--; if (sel < 0) sel = menu_sel_max; continue;\r
+ case PBTN_DOWN: sel++; if (sel > menu_sel_max) sel = 0; continue;\r
+ case PBTN_LEFT:\r
+ for (i = 0, dev_id--; i < IN_MAX_DEVS; i++, dev_id--) {\r
+ if (dev_id < 0)\r
+ dev_id = IN_MAX_DEVS - 1;\r
+ if (in_get_dev_name(dev_id, 1, 0) != NULL)\r
+ break;\r
+ }\r
+ continue;\r
+ case PBTN_RIGHT:\r
+ for (i = 0, dev_id++; i < IN_MAX_DEVS; i++, dev_id++) {\r
+ if (dev_id >= IN_MAX_DEVS)\r
+ dev_id = 0;\r
+ if (in_get_dev_name(dev_id, 1, 0) != NULL)\r
+ break;\r
+ }\r
+ continue;\r
+ case PBTN_MBACK: return;\r
+ case PBTN_MOK:\r
+ if (sel >= opt_cnt)\r
+ return;\r
+ while (in_menu_wait_any(30) & PBTN_MOK);\r
+ break;\r
+ case PBTN_MA2:\r
+ in_unbind_all(dev_id, opts[sel].mask << mask_shift, bindtype);\r
+ continue;\r
+ default:continue;\r
+ }\r
+\r
+ draw_key_config(opts, opt_cnt, player_idx, sel, dev_id, dev_count, 1);\r
+\r
+ /* wait for some up event */\r
+ for (is_down = 1; is_down; )\r
+ kc = in_update_keycode(&dev_id, &is_down, -1);\r
+\r
+ i = count_bound_keys(dev_id, opts[sel].mask << mask_shift, bindtype);\r
+ unbind = (i > 0);\r
+\r
+ /* allow combos if device supports them */\r
+ if (i == 1 && bindtype == IN_BINDTYPE_EMU &&\r
+ in_get_dev_info(dev_id, IN_INFO_DOES_COMBOS))\r
+ unbind = 0;\r
+\r
+ in_bind_key(dev_id, kc, opts[sel].mask << mask_shift, bindtype, unbind);\r
+ }\r
+}\r
+\r
+// PicoPad[] format: MXYZ SACB RLDU\r
+me_bind_action me_ctrl_actions[15] =\r
+{\r
+ { "UP ", 0x0001 },\r
+ { "DOWN ", 0x0002 },\r
+ { "LEFT ", 0x0004 },\r
+ { "RIGHT ", 0x0008 },\r
+ { "A ", 0x0040 },\r
+ { "B ", 0x0010 },\r
+ { "C ", 0x0020 },\r
+ { "A turbo", 0x4000 },\r
+ { "B turbo", 0x1000 },\r
+ { "C turbo", 0x2000 },\r
+ { "START ", 0x0080 },\r
+ { "MODE ", 0x0800 },\r
+ { "X ", 0x0400 },\r
+ { "Y ", 0x0200 },\r
+ { "Z ", 0x0100 }\r
+};\r
+\r
+me_bind_action emuctrl_actions[] =\r
+{\r
+ { "Load State ", PEV_STATE_LOAD },\r
+ { "Save State ", PEV_STATE_SAVE },\r
+ { "Prev Save Slot ", PEV_SSLOT_PREV },\r
+ { "Next Save Slot ", PEV_SSLOT_NEXT },\r
+ { "Switch Renderer ", PEV_SWITCH_RND },\r
+ { "Volume Down ", PEV_VOL_DOWN },\r
+ { "Volume Up ", PEV_VOL_UP },\r
+ { "Fast forward ", PEV_FF },\r
+ { "Enter Menu ", PEV_MENU },\r
+ { "Pico Next page ", PEV_PICO_PNEXT },\r
+ { "Pico Prev page ", PEV_PICO_PPREV },\r
+ { "Pico Switch input", PEV_PICO_SWINP },\r
+ { NULL, 0 }\r
+};\r
+\r
+static int key_config_loop_wrap(menu_id id, int keys)\r
+{\r
+ switch (id) {\r
+ case MA_CTRL_PLAYER1:\r
+ key_config_loop(me_ctrl_actions, array_size(me_ctrl_actions), 0);\r
+ break;\r
+ case MA_CTRL_PLAYER2:\r
+ key_config_loop(me_ctrl_actions, array_size(me_ctrl_actions), 1);\r
+ break;\r
+ case MA_CTRL_EMU:\r
+ key_config_loop(emuctrl_actions, array_size(emuctrl_actions) - 1, -1);\r
+ break;\r
+ default:\r
+ break;\r
+ }\r
+ return 0;\r
+}\r
+\r
+static const char *mgn_dev_name(menu_id id, int *offs)\r
+{\r
+ const char *name = NULL;\r
+ static int it = 0;\r
+\r
+ if (id == MA_CTRL_DEV_FIRST)\r
+ it = 0;\r
+\r
+ for (; it < IN_MAX_DEVS; it++) {\r
+ name = in_get_dev_name(it, 1, 1);\r
+ if (name != NULL)\r
+ break;\r
+ }\r
+\r
+ it++;\r
+ return name;\r
+}\r
+\r
+static int mh_saveloadcfg(menu_id id, int keys);\r
+static const char *mgn_savecfg(menu_id id, int *offs);\r
+\r
+static menu_entry e_menu_keyconfig[] =\r
+{\r
+ mee_handler_id("Player 1", MA_CTRL_PLAYER1, key_config_loop_wrap),\r
+ mee_handler_id("Player 2", MA_CTRL_PLAYER2, key_config_loop_wrap),\r
+ mee_handler_id("Emulator controls", MA_CTRL_EMU, key_config_loop_wrap),\r
+ mee_onoff ("6 button pad", MA_OPT_6BUTTON_PAD, PicoOpt, POPT_6BTN_PAD),\r
+ mee_range ("Turbo rate", MA_CTRL_TURBO_RATE, currentConfig.turbo_rate, 1, 30),\r
+ mee_handler_mkname_id(MA_OPT_SAVECFG, mh_saveloadcfg, mgn_savecfg),\r
+ mee_handler_id("Save cfg for loaded game", MA_OPT_SAVECFG_GAME, mh_saveloadcfg),\r
+ mee_label (""),\r
+ mee_label ("Input devices:"),\r
+ mee_label_mk (MA_CTRL_DEV_FIRST, mgn_dev_name),\r
+ mee_label_mk (MA_CTRL_DEV_NEXT, mgn_dev_name),\r
+ mee_label_mk (MA_CTRL_DEV_NEXT, mgn_dev_name),\r
+ mee_label_mk (MA_CTRL_DEV_NEXT, mgn_dev_name),\r
+ mee_label_mk (MA_CTRL_DEV_NEXT, mgn_dev_name),\r
+ mee_label_mk (MA_CTRL_DEV_NEXT, mgn_dev_name),\r
+ mee_label_mk (MA_CTRL_DEV_NEXT, mgn_dev_name),\r
+ mee_end,\r
+};\r
+\r
+static int menu_loop_keyconfig(menu_id id, int keys)\r
+{\r
+ static int sel = 0;\r
+\r
+ me_enable(e_menu_keyconfig, MA_OPT_SAVECFG_GAME, rom_loaded);\r
+ me_loop(e_menu_keyconfig, &sel, NULL);\r
+ return 0;\r
+}\r
+\r
+// ------------ SCD options menu ------------\r
+\r
+static const char *mgn_cdopt_ra(menu_id id, int *offs)\r
+{\r
+ *offs = -5;\r
+ if (PicoCDBuffers <= 0)\r
+ return " OFF";\r
+ sprintf(static_buff, "%5iK", PicoCDBuffers * 2);\r
+ return static_buff;\r
+}\r
+\r
+static int mh_cdopt_ra(menu_id id, int keys)\r
+{\r
+ if (keys & PBTN_LEFT) {\r
+ PicoCDBuffers >>= 1;\r
+ if (PicoCDBuffers < 2)\r
+ PicoCDBuffers = 0;\r
+ } else {\r
+ if (PicoCDBuffers <= 0)\r
+ PicoCDBuffers = 1;\r
+ PicoCDBuffers <<= 1;\r
+ if (PicoCDBuffers > 8*1024)\r
+ PicoCDBuffers = 8*1024; // 16M\r
+ }\r
+ return 0;\r
+}\r
+\r
+static menu_entry e_menu_cd_options[] =\r
+{\r
+ mee_onoff("CD LEDs", MA_CDOPT_LEDS, currentConfig.EmuOpt, 0x0400),\r
+ mee_onoff("CDDA audio", MA_CDOPT_CDDA, PicoOpt, POPT_EN_MCD_CDDA),\r
+ mee_onoff("PCM audio", MA_CDOPT_PCM, PicoOpt, POPT_EN_MCD_PCM),\r
+ mee_cust ("ReadAhead buffer", MA_CDOPT_READAHEAD, mh_cdopt_ra, mgn_cdopt_ra),\r
+ mee_onoff("SaveRAM cart", MA_CDOPT_SAVERAM, PicoOpt, POPT_EN_MCD_RAMCART),\r
+ mee_onoff("Scale/Rot. fx (slow)", MA_CDOPT_SCALEROT_CHIP, PicoOpt, POPT_EN_MCD_GFX),\r
+ mee_onoff("Better sync (slow)", MA_CDOPT_BETTER_SYNC, PicoOpt, POPT_EN_MCD_PSYNC),\r
+ mee_end,\r
+};\r
+\r
+static int menu_loop_cd_options(menu_id id, int keys)\r
+{\r
+ static int sel = 0;\r
+ me_loop(e_menu_cd_options, &sel, NULL);\r
+ return 0;\r
+}\r
+\r
+// ------------ adv options menu ------------\r
+\r
+static menu_entry e_menu_adv_options[] =\r
+{\r
+ mee_onoff ("SRAM/BRAM saves", MA_OPT_SRAM_STATES, currentConfig.EmuOpt, EOPT_EN_SRAM),\r
+ mee_onoff ("Disable sprite limit", MA_OPT2_NO_SPRITE_LIM, PicoOpt, POPT_DIS_SPRITE_LIM),\r
+ mee_onoff ("Emulate Z80", MA_OPT2_ENABLE_Z80, PicoOpt, POPT_EN_Z80),\r
+ mee_onoff ("Emulate YM2612 (FM)", MA_OPT2_ENABLE_YM2612, PicoOpt, POPT_EN_FM),\r
+ mee_onoff ("Emulate SN76496 (PSG)", MA_OPT2_ENABLE_SN76496,PicoOpt, POPT_EN_PSG),\r
+ mee_onoff ("gzip savestates", MA_OPT2_GZIP_STATES, currentConfig.EmuOpt, EOPT_GZIP_SAVES),\r
+ mee_onoff ("Don't save last used ROM", MA_OPT2_NO_LAST_ROM, currentConfig.EmuOpt, EOPT_NO_AUTOSVCFG),\r
+ mee_onoff ("Disable idle loop patching",MA_OPT2_NO_IDLE_LOOPS,PicoOpt, POPT_DIS_IDLE_DET),\r
+ mee_onoff ("Disable frame limiter", MA_OPT2_NO_FRAME_LIMIT,currentConfig.EmuOpt, EOPT_NO_FRMLIMIT),\r
+ MENU_GP2X_OPTIONS_ADV\r
+ mee_end,\r
+};\r
+\r
+static int menu_loop_adv_options(menu_id id, int keys)\r
+{\r
+ static int sel = 0;\r
+ me_loop(e_menu_adv_options, &sel, NULL);\r
+ return 0;\r
+}\r
+\r
+// ------------ gfx options menu ------------\r
+\r
+static int mh_opt_render(menu_id id, int keys)\r
+{\r
+ plat_video_toggle_renderer((keys & PBTN_RIGHT) ? 1 : 0, 1);\r
+ return 0;\r
+}\r
+\r
+static menu_entry e_menu_gfx_options[] =\r
+{\r
+ mee_cust ("Renderer", MA_OPT_RENDERER, mh_opt_render, mgn_opt_renderer),\r
+ MENU_GP2X_OPTIONS_GFX\r
+ mee_end,\r
+};\r
+\r
+static int menu_loop_gfx_options(menu_id id, int keys)\r
+{\r
+ static int sel = 0;\r
+ me_loop(e_menu_gfx_options, &sel, NULL);\r
+ return 0;\r
+}\r
+\r
+// ------------ options menu ------------\r
+\r
+static menu_entry e_menu_options[];\r
+\r
+static int sndrate_prevnext(int rate, int dir)\r
+{\r
+ static const int rates[] = { 8000, 11025, 16000, 22050, 44100 };\r
+ int i;\r
+\r
+ for (i = 0; i < 5; i++)\r
+ if (rates[i] == rate) break;\r
+\r
+ i += dir ? 1 : -1;\r
+ if (i > 4) {\r
+ if (!(PicoOpt & POPT_EN_STEREO)) {\r
+ PicoOpt |= POPT_EN_STEREO;\r
+ return rates[0];\r
+ }\r
+ return rates[4];\r
+ }\r
+ if (i < 0) {\r
+ if (PicoOpt & POPT_EN_STEREO) {\r
+ PicoOpt &= ~POPT_EN_STEREO;\r
+ return rates[4];\r
+ }\r
+ return rates[0];\r
+ }\r
+ return rates[i];\r
+}\r
+\r
+static void region_prevnext(int right)\r
+{\r
+ // jp_ntsc=1, jp_pal=2, usa=4, eu=8\r
+ static const int rgn_orders[] = { 0x148, 0x184, 0x814, 0x418, 0x841, 0x481 };\r
+ int i;\r
+\r
+ if (right) {\r
+ if (!PicoRegionOverride) {\r
+ for (i = 0; i < 6; i++)\r
+ if (rgn_orders[i] == PicoAutoRgnOrder) break;\r
+ if (i < 5) PicoAutoRgnOrder = rgn_orders[i+1];\r
+ else PicoRegionOverride=1;\r
+ }\r
+ else\r
+ PicoRegionOverride <<= 1;\r
+ if (PicoRegionOverride > 8)\r
+ PicoRegionOverride = 8;\r
+ } else {\r
+ if (!PicoRegionOverride) {\r
+ for (i = 0; i < 6; i++)\r
+ if (rgn_orders[i] == PicoAutoRgnOrder) break;\r
+ if (i > 0) PicoAutoRgnOrder = rgn_orders[i-1];\r
+ }\r
+ else\r
+ PicoRegionOverride >>= 1;\r
+ }\r
+}\r
+\r
+static int mh_opt_misc(menu_id id, int keys)\r
+{\r
+ int i;\r
+\r
+ switch (id) {\r
+ case MA_OPT_SOUND_QUALITY:\r
+ PsndRate = sndrate_prevnext(PsndRate, keys & PBTN_RIGHT);\r
+ break;\r
+ case MA_OPT_REGION:\r
+ region_prevnext(keys & PBTN_RIGHT);\r
+ break;\r
+ case MA_OPT_CONFIRM_STATES:\r
+ i = ((currentConfig.EmuOpt>>9)&1) | ((currentConfig.EmuOpt>>10)&2);\r
+ i += (keys & PBTN_LEFT) ? -1 : 1;\r
+ if (i < 0) i = 0; else if (i > 3) i = 3;\r
+ i |= i << 1; i &= ~2;\r
+ currentConfig.EmuOpt &= ~0xa00;\r
+ currentConfig.EmuOpt |= i << 9;\r
+ break;\r
+ default:\r
+ break;\r
+ }\r
+ return 0;\r
+}\r
+\r
+static int mh_saveloadcfg(menu_id id, int keys)\r
+{\r
+ int ret;\r
+\r
+ if (keys & (PBTN_LEFT|PBTN_RIGHT)) { // multi choice\r
+ config_slot += (keys & PBTN_LEFT) ? -1 : 1;\r
+ if (config_slot < 0) config_slot = 9;\r
+ else if (config_slot > 9) config_slot = 0;\r
+ me_enable(e_menu_options, MA_OPT_LOADCFG, config_slot != config_slot_current);\r
+ return 0;\r
+ }\r
+\r
+ switch (id) {\r
+ case MA_OPT_SAVECFG:\r
+ case MA_OPT_SAVECFG_GAME:\r
+ if (emu_write_config(id == MA_OPT_SAVECFG_GAME ? 1 : 0))\r
+ me_update_msg("config saved");\r
+ else\r
+ me_update_msg("failed to write config");\r
+ break;\r
+ case MA_OPT_LOADCFG:\r
+ ret = emu_read_config(1, 1);\r
+ if (!ret) ret = emu_read_config(0, 1);\r
+ if (ret) me_update_msg("config loaded");\r
+ else me_update_msg("failed to load config");\r
+ break;\r
+ default:\r
+ return 0;\r
+ }\r
+\r
+ return 1;\r
+}\r
+\r
+static int mh_restore_defaults(menu_id id, int keys)\r
+{\r
+ emu_set_defconfig();\r
+ me_update_msg("defaults restored");\r
+ return 1;\r
+}\r
+\r
+static const char *mgn_opt_fskip(menu_id id, int *offs)\r
+{\r
+ if (currentConfig.Frameskip < 0)\r
+ return "Auto";\r
+ sprintf(static_buff, "%d", currentConfig.Frameskip);\r
+ return static_buff;\r
+}\r
+\r
+static const char *mgn_opt_sound(menu_id id, int *offs)\r
+{\r
+ const char *str2;\r
+ *offs = -8;\r
+ str2 = (PicoOpt & POPT_EN_STEREO) ? "stereo" : "mono";\r
+ sprintf(static_buff, "%5iHz %s", PsndRate, str2);\r
+ return static_buff;\r
+}\r
+\r
+static const char *mgn_opt_region(menu_id id, int *offs)\r
+{\r
+ static const char *names[] = { "Auto", " Japan NTSC", " Japan PAL", " USA", " Europe" };\r
+ static const char *names_short[] = { "", " JP", " JP", " US", " EU" };\r
+ int code = PicoRegionOverride;\r
+ int u, i = 0;\r
+\r
+ *offs = -6;\r
+ if (code) {\r
+ code <<= 1;\r
+ while ((code >>= 1)) i++;\r
+ if (i > 4)\r
+ return "unknown";\r
+ return names[i];\r
+ } else {\r
+ strcpy(static_buff, "Auto:");\r
+ for (u = 0; u < 3; u++) {\r
+ code = (PicoAutoRgnOrder >> u*4) & 0xf;\r
+ for (i = 0; code; code >>= 1, i++)\r
+ ;\r
+ strcat(static_buff, names_short[i]);\r
+ }\r
+ return static_buff;\r
+ }\r
+}\r
+\r
+static const char *mgn_opt_c_saves(menu_id id, int *offs)\r
+{\r
+ switch ((currentConfig.EmuOpt >> 9) & 5) {\r
+ default: return "OFF";\r
+ case 1: return "writes";\r
+ case 4: return "loads";\r
+ case 5: return "both";\r
+ }\r
+}\r
+\r
+static const char *mgn_savecfg(menu_id id, int *offs)\r
+{\r
+ strcpy(static_buff, "Save global config");\r
+ if (config_slot != 0)\r
+ sprintf(static_buff + strlen(static_buff), " (profile: %i)", config_slot);\r
+ return static_buff;\r
+}\r
+\r
+static const char *mgn_loadcfg(menu_id id, int *offs)\r
+{\r
+ sprintf(static_buff, "Load cfg from profile %i", config_slot);\r
+ return static_buff;\r
+}\r
+\r
+static menu_entry e_menu_options[] =\r
+{\r
+ mee_range ("Save slot", MA_OPT_SAVE_SLOT, state_slot, 0, 9),\r
+ mee_range_cust("Frameskip", MA_OPT_FRAMESKIP, currentConfig.Frameskip, -1, 16, mgn_opt_fskip),\r
+ mee_cust ("Region", MA_OPT_REGION, mh_opt_misc, mgn_opt_region),\r
+ mee_onoff ("Show FPS", MA_OPT_SHOW_FPS, currentConfig.EmuOpt, EOPT_SHOW_FPS),\r
+ mee_onoff ("Enable sound", MA_OPT_ENABLE_SOUND, currentConfig.EmuOpt, EOPT_EN_SOUND),\r
+ mee_cust ("Sound Quality", MA_OPT_SOUND_QUALITY, mh_opt_misc, mgn_opt_sound),\r
+ mee_cust ("Confirm savestate", MA_OPT_CONFIRM_STATES,mh_opt_misc, mgn_opt_c_saves),\r
+ mee_range (cpu_clk_name, MA_OPT_CPU_CLOCKS, currentConfig.CPUclock, 20, 900),\r
+ mee_handler ("[Display options]", menu_loop_gfx_options),\r
+ mee_handler ("[Advanced options]", menu_loop_adv_options),\r
+ mee_handler ("[Sega/Mega CD options]", menu_loop_cd_options),\r
+ mee_handler_mkname_id(MA_OPT_SAVECFG, mh_saveloadcfg, mgn_savecfg),\r
+ mee_handler_id("Save cfg for current game only", MA_OPT_SAVECFG_GAME, mh_saveloadcfg),\r
+ mee_handler_mkname_id(MA_OPT_LOADCFG, mh_saveloadcfg, mgn_loadcfg),\r
+ mee_handler ("Restore defaults", mh_restore_defaults),\r
+ mee_end,\r
+};\r
+\r
+static int menu_loop_options(menu_id id, int keys)\r
+{\r
+ static int sel = 0;\r
+\r
+ me_enable(e_menu_options, MA_OPT_SAVECFG_GAME, rom_loaded);\r
+ me_enable(e_menu_options, MA_OPT_LOADCFG, config_slot != config_slot_current);\r
+\r
+ me_loop(e_menu_options, &sel, NULL);\r
+\r
+ if (PicoRegionOverride)\r
+ // force setting possibly changed..\r
+ Pico.m.pal = (PicoRegionOverride == 2 || PicoRegionOverride == 8) ? 1 : 0;\r
+\r
+ return 0;\r
+}\r
+\r
+// ------------ debug menu ------------\r
+\r
+#include <pico/debug.h>\r
+\r
+extern void SekStepM68k(void);\r
+\r
+static void mplayer_loop(void)\r
+{\r
+ pemu_sound_start();\r
+\r
+ while (1)\r
+ {\r
+ PDebugZ80Frame();\r
+ if (in_menu_wait_any(0) & PBTN_MA3)\r
+ break;\r
+ pemu_sound_wait();\r
+ }\r
+\r
+ pemu_sound_stop();\r
+}\r
+\r
+static void draw_text_debug(const char *str, int skip, int from)\r
+{\r
+ const char *p;\r
+ int line;\r
+\r
+ p = str;\r
+ while (skip-- > 0)\r
+ {\r
+ while (*p && *p != '\n')\r
+ p++;\r
+ if (*p == 0 || p[1] == 0)\r
+ return;\r
+ p++;\r
+ }\r
+\r
+ str = p;\r
+ for (line = from; line < g_screen_height / me_sfont_h; line++)\r
+ {\r
+ smalltext_out16(1, line * me_sfont_h, str, 0xffff);\r
+ while (*p && *p != '\n')\r
+ p++;\r
+ if (*p == 0)\r
+ break;\r
+ p++; str = p;\r
+ }\r
+}\r
+\r
+static void draw_frame_debug(void)\r
+{\r
+ char layer_str[48] = "layers: ";\r
+ if (PicoDrawMask & PDRAW_LAYERB_ON) memcpy(layer_str + 8, "B", 1);\r
+ if (PicoDrawMask & PDRAW_LAYERA_ON) memcpy(layer_str + 10, "A", 1);\r
+ if (PicoDrawMask & PDRAW_SPRITES_LOW_ON) memcpy(layer_str + 12, "spr_lo", 6);\r
+ if (PicoDrawMask & PDRAW_SPRITES_HI_ON) memcpy(layer_str + 19, "spr_hi", 6);\r
+\r
+ memset(g_screen_ptr, 0, g_screen_width * g_screen_height * 2);\r
+ pemu_forced_frame(0);\r
+ smalltext_out16(4, 1, "build: " __DATE__ " " __TIME__, 0xffff);\r
+ smalltext_out16(4, g_screen_height - me_sfont_h, layer_str, 0xffff);\r
+}\r
+\r
+static void debug_menu_loop(void)\r
+{\r
+ int inp, mode = 0;\r
+ int spr_offs = 0, dumped = 0;\r
+ char *tmp;\r
+\r
+ while (1)\r
+ {\r
+ switch (mode)\r
+ {\r
+ case 0: plat_video_menu_begin();\r
+ tmp = PDebugMain();\r
+ plat_debug_cat(tmp);\r
+ draw_text_debug(tmp, 0, 0);\r
+ if (dumped) {\r
+ smalltext_out16(g_screen_width - 6 * me_sfont_h,\r
+ g_screen_height - me_mfont_h, "dumped", 0xffff);\r
+ dumped = 0;\r
+ }\r
+ break;\r
+ case 1: draw_frame_debug(); break;\r
+ case 2: memset(g_screen_ptr, 0, g_screen_width * g_screen_height * 2);\r
+ pemu_forced_frame(0);\r
+ menu_darken_bg(g_screen_ptr, g_screen_width * g_screen_height, 0);\r
+ PDebugShowSpriteStats((unsigned short *)g_screen_ptr + (g_screen_height/2 - 240/2)*g_screen_width +\r
+ g_screen_width/2 - 320/2, g_screen_width); break;\r
+ case 3: memset(g_screen_ptr, 0, g_screen_width * g_screen_height * 2);\r
+ PDebugShowPalette(g_screen_ptr, g_screen_width);\r
+ PDebugShowSprite((unsigned short *)g_screen_ptr + g_screen_width*120 + g_screen_width/2 + 16,\r
+ g_screen_width, spr_offs);\r
+ draw_text_debug(PDebugSpriteList(), spr_offs, 6);\r
+ break;\r
+ }\r
+ plat_video_menu_end();\r
+\r
+ inp = in_menu_wait(PBTN_MOK|PBTN_MBACK|PBTN_MA2|PBTN_MA3|PBTN_L|PBTN_R |\r
+ PBTN_UP|PBTN_DOWN|PBTN_LEFT|PBTN_RIGHT, 70);\r
+ if (inp & PBTN_MBACK) return;\r
+ if (inp & PBTN_L) { mode--; if (mode < 0) mode = 3; }\r
+ if (inp & PBTN_R) { mode++; if (mode > 3) mode = 0; }\r
+ switch (mode)\r
+ {\r
+ case 0:\r
+ if (inp & PBTN_MOK)\r
+ SekStepM68k();\r
+ if (inp & PBTN_MA3) {\r
+ while (inp & PBTN_MA3)\r
+ inp = in_menu_wait_any(-1);\r
+ mplayer_loop();\r
+ }\r
+ if ((inp & (PBTN_MA2|PBTN_LEFT)) == (PBTN_MA2|PBTN_LEFT)) {\r
+ mkdir("dumps", 0777);\r
+ PDebugDumpMem();\r
+ while (inp & PBTN_MA2) inp = in_menu_wait_any(-1);\r
+ dumped = 1;\r
+ }\r
+ break;\r
+ case 1:\r
+ if (inp & PBTN_LEFT) PicoDrawMask ^= PDRAW_LAYERB_ON;\r
+ if (inp & PBTN_RIGHT) PicoDrawMask ^= PDRAW_LAYERA_ON;\r
+ if (inp & PBTN_DOWN) PicoDrawMask ^= PDRAW_SPRITES_LOW_ON;\r
+ if (inp & PBTN_UP) PicoDrawMask ^= PDRAW_SPRITES_HI_ON;\r
+ if (inp & PBTN_MOK) {\r
+ PsndOut = NULL; // just in case\r
+ PicoSkipFrame = 1;\r
+ PicoFrame();\r
+ PicoSkipFrame = 0;\r
+ while (inp & PBTN_MOK) inp = in_menu_wait_any(-1);\r
+ }\r
+ break;\r
+ case 3:\r
+ if (inp & PBTN_DOWN) spr_offs++;\r
+ if (inp & PBTN_UP) spr_offs--;\r
+ if (spr_offs < 0) spr_offs = 0;\r
+ break;\r
+ }\r
+ }\r
+}\r
+\r
+// ------------ main menu ------------\r
+\r
+static char *romsel_run(void)\r
+{\r
+ char *ret, *sel_name;\r
+\r
+ sel_name = malloc(sizeof(rom_fname_loaded));\r
+ if (sel_name == NULL)\r
+ return NULL;\r
+ strcpy(sel_name, rom_fname_loaded);\r
+\r
+ ret = menu_loop_romsel(sel_name, sizeof(rom_fname_loaded));\r
+ free(sel_name);\r
+ return ret;\r
+}\r
+\r
+static int main_menu_handler(menu_id id, int keys)\r
+{\r
+ char *ret_name;\r
+\r
+ switch (id)\r
+ {\r
+ case MA_MAIN_RESUME_GAME:\r
+ if (rom_loaded)\r
+ return 1;\r
+ break;\r
+ case MA_MAIN_SAVE_STATE:\r
+ if (rom_loaded)\r
+ return menu_loop_savestate(0);\r
+ break;\r
+ case MA_MAIN_LOAD_STATE:\r
+ if (rom_loaded)\r
+ return menu_loop_savestate(1);\r
+ break;\r
+ case MA_MAIN_RESET_GAME:\r
+ if (rom_loaded) {\r
+ emu_reset_game();\r
+ return 1;\r
+ }\r
+ break;\r
+ case MA_MAIN_LOAD_ROM:\r
+ ret_name = romsel_run();\r
+ if (ret_name != NULL) {\r
+ lprintf("selected file: %s\n", ret_name);\r
+ engineState = PGS_ReloadRom;\r
+ return 1;\r
+ }\r
+ break;\r
+ case MA_MAIN_CREDITS:\r
+ draw_menu_credits();\r
+ in_menu_wait(PBTN_MOK|PBTN_MBACK, 70);\r
+ break;\r
+ case MA_MAIN_EXIT:\r
+ engineState = PGS_Quit;\r
+ return 1;\r
+ case MA_MAIN_PATCHES:\r
+ if (rom_loaded && PicoPatches) {\r
+ menu_loop_patches();\r
+ PicoPatchApply();\r
+ me_update_msg("Patches applied");\r
+ }\r
+ break;\r
+ default:\r
+ lprintf("%s: something unknown selected\n", __FUNCTION__);\r
+ break;\r
+ }\r
+\r
+ return 0;\r
+}\r
+\r
+static menu_entry e_menu_main[] =\r
+{\r
+ mee_label ("PicoDrive " VERSION),\r
+ mee_label (""),\r
+ mee_label (""),\r
+ mee_label (""),\r
+ mee_handler_id("Resume game", MA_MAIN_RESUME_GAME, main_menu_handler),\r
+ mee_handler_id("Save State", MA_MAIN_SAVE_STATE, main_menu_handler),\r
+ mee_handler_id("Load State", MA_MAIN_LOAD_STATE, main_menu_handler),\r
+ mee_handler_id("Reset game", MA_MAIN_RESET_GAME, main_menu_handler),\r
+ mee_handler_id("Load new ROM/ISO", MA_MAIN_LOAD_ROM, main_menu_handler),\r
+ mee_handler_id("Change options", MA_MAIN_OPTIONS, menu_loop_options),\r
+ mee_handler_id("Configure controls", MA_MAIN_OPTIONS, menu_loop_keyconfig),\r
+ mee_handler_id("Credits", MA_MAIN_CREDITS, main_menu_handler),\r
+ mee_handler_id("Patches / GameGenie",MA_MAIN_PATCHES, main_menu_handler),\r
+ mee_handler_id("Exit", MA_MAIN_EXIT, main_menu_handler),\r
+ mee_end,\r
+};\r
+\r
+void menu_loop(void)\r
+{\r
+ static int sel = 0;\r
+\r
+ me_enable(e_menu_main, MA_MAIN_RESUME_GAME, rom_loaded);\r
+ me_enable(e_menu_main, MA_MAIN_SAVE_STATE, rom_loaded);\r
+ me_enable(e_menu_main, MA_MAIN_LOAD_STATE, rom_loaded);\r
+ me_enable(e_menu_main, MA_MAIN_RESET_GAME, rom_loaded);\r
+ me_enable(e_menu_main, MA_MAIN_PATCHES, PicoPatches != NULL);\r
+\r
+ plat_video_menu_enter(rom_loaded);\r
+ in_set_blocking(1);\r
+ me_loop(e_menu_main, &sel, menu_main_plat_draw);\r
+\r
+ if (rom_loaded) {\r
+ if (engineState == PGS_Menu)\r
+ engineState = PGS_Running;\r
+ /* wait until menu, ok, back is released */\r
+ while (in_menu_wait_any(50) & (PBTN_MENU|PBTN_MOK|PBTN_MBACK));\r
+ }\r
+\r
+ in_set_blocking(0);\r
+}\r
+\r
+// --------- CD tray close menu ----------\r
+\r
+static int mh_tray_load_cd(menu_id id, int keys)\r
+{\r
+ cd_img_type cd_type;\r
+ char *ret_name;\r
+ int ret = -1;\r
+\r
+ ret_name = romsel_run();\r
+ if (ret_name == NULL)\r
+ return 0;\r
+\r
+ cd_type = emu_cd_check(NULL, ret_name);\r
+ if (cd_type != CIT_NOT_CD)\r
+ ret = Insert_CD(ret_name, cd_type);\r
+ if (ret != 0) {\r
+ me_update_msg("Load failed, invalid CD image?");\r
+ return 0;\r
+ }\r
+\r
+ engineState = PGS_RestartRun;\r
+ return 1;\r
+}\r
+\r
+static int mh_tray_nothing(menu_id id, int keys)\r
+{\r
+ return 1;\r
+}\r
+\r
+static menu_entry e_menu_tray[] =\r
+{\r
+ mee_label ("The unit is about to"),\r
+ mee_label ("close the CD tray."),\r
+ mee_label (""),\r
+ mee_label (""),\r
+ mee_handler("Load CD image", mh_tray_load_cd),\r
+ mee_handler("Insert nothing", mh_tray_nothing),\r
+};\r
+\r
+int menu_loop_tray(void)\r
+{\r
+ int ret = 1, sel = 0;\r
+\r
+ plat_video_menu_enter(rom_loaded);\r
+\r
+ in_set_blocking(1);\r
+ me_loop(e_menu_tray, &sel, NULL);\r
+\r
+ if (engineState != PGS_RestartRun) {\r
+ engineState = PGS_RestartRun;\r
+ ret = 0; /* no CD inserted */\r
+ }\r
+\r
+ while (in_menu_wait_any(50) & (PBTN_MENU|PBTN_MOK|PBTN_MBACK));\r
+ in_set_blocking(0);\r
+\r
+ return ret;\r
+}\r
+\r
+#endif // !UIQ3\r
+\r
+void me_update_msg(const char *msg)\r
+{\r
+ strncpy(menu_error_msg, msg, sizeof(menu_error_msg));\r
+ menu_error_msg[sizeof(menu_error_msg) - 1] = 0;\r
+\r
+ menu_error_time = plat_get_ticks_ms();\r
+ lprintf("msg: %s\n", menu_error_msg);\r
+}\r
+\r
+// ------------ util ------------\r
+\r
+/* GP2X/wiz for now, probably extend later */\r
+void menu_plat_setup(int is_wiz)\r
+{\r
+ int i;\r
+\r
+ if (!is_wiz) {\r
+ me_enable(e_menu_gfx_options, MA_OPT_TEARING_FIX, 0);\r
+ return;\r
+ }\r
+\r
+ me_enable(e_menu_adv_options, MA_OPT_ARM940_SOUND, 0);\r
+ me_enable(e_menu_gfx_options, MA_OPT2_GAMMA, 0);\r
+ me_enable(e_menu_gfx_options, MA_OPT2_A_SN_GAMMA, 0);\r
+\r
+ i = me_id2offset(e_menu_gfx_options, MA_OPT_SCALING);\r
+ e_menu_gfx_options[i].max = 1; /* only off and sw */\r
+}\r
+\r
+/* TODO: rename */\r
+void menu_darken_bg(void *dst, int pixels, int darker)\r
+{\r
+ unsigned int *screen = dst;\r
+ pixels /= 2;\r
+ if (darker)\r
+ {\r
+ while (pixels--)\r
+ {\r
+ unsigned int p = *screen;\r
+ *screen++ = ((p&0xf79ef79e)>>1) - ((p&0xc618c618)>>3);\r
+ }\r
+ }\r
+ else\r
+ {\r
+ while (pixels--)\r
+ {\r
+ unsigned int p = *screen;\r
+ *screen++ = (p&0xf79ef79e)>>1;\r
+ }\r
+ }\r
+}\r
+\r
+/* hidden options for config engine only */\r
+static menu_entry e_menu_hidden[] =\r
+{\r
+ mee_onoff("Accurate sprites", MA_OPT_ACC_SPRITES, PicoOpt, 0x080),\r
+ mee_end,\r
+};\r
+\r
+static menu_entry *e_menu_table[] =\r
+{\r
+ e_menu_options,\r
+ e_menu_gfx_options,\r
+ e_menu_adv_options,\r
+ e_menu_cd_options,\r
+ e_menu_keyconfig,\r
+ e_menu_hidden,\r
+};\r
+\r
+static menu_entry *me_list_table = NULL;\r
+static menu_entry *me_list_i = NULL;\r
+\r
+menu_entry *me_list_get_first(void)\r
+{\r
+ me_list_table = me_list_i = e_menu_table[0];\r
+ return me_list_i;\r
+}\r
+\r
+menu_entry *me_list_get_next(void)\r
+{\r
+ int i;\r
+\r
+ me_list_i++;\r
+ if (me_list_i->name != NULL)\r
+ return me_list_i;\r
+\r
+ for (i = 0; i < array_size(e_menu_table); i++)\r
+ if (me_list_table == e_menu_table[i])\r
+ break;\r
+\r
+ if (i + 1 < array_size(e_menu_table))\r
+ me_list_table = me_list_i = e_menu_table[i + 1];\r
+ else\r
+ me_list_table = me_list_i = NULL;\r
+\r
+ return me_list_i;\r
+}\r