#define METHOD_SAFE 0 // SAFEな描画方法
#define METHOD_FAST 1 // FASTな描画方法
#define VERTICAL_RESOLUTION 10　// Y方向の解像度。1ドット=10とする。

// グローバル変数
UInt32 last_animated_tick; //　最後に描画を行った時刻(Ticks値）
Int16 num_stars; // 画面内の星の数
StarType *list_stars; // 星を管理する構造体へのポインタ

Int16 gMethod; // 現在の描画方法（METHOD_SAFE or METHOD_FAST）
Boolean gAnimating; // 画面描画がON(true)かOFF（false)か

　　if ( ( width != 160) || ( height != 160 ) || ( depth != 8)){
　　　　FrmAlert( NonsupportedScreenAlert);
　　　　return -1;
　　}

　　return errNone;
}

　　switch (eventP->eType)
　　{
　　　　case nilEvent: // nilEventを受けたらアニメーション処理を呼び出す
　　　　　　MainFormDoAnimate();
　　　　break;

　　　　case menuEvent:
　　　　　　return MainFormDoCommand(eventP->data.menu.itemID);

　　　　case frmOpenEvent:
　　　　　　frmP = FrmGetActiveForm();
　　　　　　FrmDrawForm(frmP);
　　　　　　MainFormInit(frmP);
　　　　　　handled = true;
　　　　　　break;

　　　　case frmUpdateEvent:
　　　　/*
　　　　 * To do any custom drawing here, first call
　　　　 * FrmDrawForm(), then do your drawing, and
　　　　 * then set handled to true.
　　　　*/
　　　　break;

　　　　case ctlSelectEvent:
　　　　　　if ( eventP->data.ctlSelect.controlID == MainStartButton){
　　　　　　// アニメーションのON/OFFを反転
　　　　　　　　gAnimating = !gAnimating;
　　　　　　　　handled = true;
　　　　　　} else if ( eventP->data.ctlSelect.controlID == MainBenchmarkButton){
　　　　　　// ベンチマークを実行
　　　　　　　　DoBenchmark( gMethod);
　　　　　　}
　　　　　　break;

　　　　case popSelectEvent:
　　　　　　if ( eventP->data.popSelect.controlID == MainMethodPopTrigger ){
　　　　　　// 描画方法を変更
　　　　　　　　if ( eventP->data.popSelect.selection == 0 ){
　　　　　　　　　　gMethod = METHOD_FAST;
　　　　　　　　} else {
　　　　　　　　　　gMethod = METHOD_SAFE;
　　　　　　　　}
　　　　　　}
　　　　　　break;
　　　　}

　　　　return handled;
　　}

　　// 星の記憶領域を確保
　　list_stars = MemPtrNew( sizeof (StarType ) * num_stars);

　　// 星の初期化
　　　　for ( i = 0 ; i < num_stars; i++){
　　　　　　star = list_stars+i;

　　　　　　// 座標を乱数で決定
　　　　　　star->x = SysRandom(0) % 160;
　　　　　　star->y = ( SysRandom(0) % 125 + 20) * VERTICAL_RESOLUTION;
　　　　　　// Y方向の速度を乱数で決定
　　　　　　star->y_speed = SysRandom(0) % 6 + 2;
　　　　　　// 点滅間隔を乱数で決定
　　　　　　star->flash_interval = SysRandom(0) % 20 + 10 ;
　　　　　　// 点滅時刻の初期値を乱数で決定
　　　　　　star->time_remain_to_flash = SysRandom(0) % 10;
　　　　　　//　表示状態を乱数で決定
　　　　　　star->current_state_of_flash =SysRandom(0) % 2;
　　　　　　// 色を乱数で決定
　　　　　　star->color = SysRandom(0) % 216;
　　　　}

　　　　// 方法の初期値は高速（画面直接書き換え）
　　　　gMethod = METHOD_FAST;

　　　　// はじめはアニメーションはオフ
　　　　gAnimating = false;
}

　　//　アニメーションがONになっていなければ終了
　　if ( gAnimating == false)
　　　　return;

　　// 前回アニメーションをした時から、必要な時間がたっているか？
　　// たっていなければ終了
　　if ( TimGetTicks() < last_animated_tick + ANIMATE_INTERVAL )
　　　　return;

　　// 最後にアニメーションをした時刻を記憶
　　last_animated_tick = TimGetTicks();

　　// アニメーションを実行
　　MoveStars( gMethod );
}

　　// 直接書き換え用のアドレスの取得
　　win = WinGetDisplayWindow(); //　画面のWindowを取得
　　bitmap = WinGetBitmap( win ); // 画面のBitmapを取得
　　bits = BmpGetBits( bitmap ); // 画面のピクセルが格納されているアドレスを取得

　　// すべての星について繰り返す
　　for ( i = 0 ; i < num_stars; i++){
　　star = list_stars + i;

　　//　現在画面に表示されていたら、それを消去する。
　　if ( star->current_state_of_flash){
　　//　画面の直接書き換え
　　if ( method == METHOD_FAST){
　　　　*(bits + ToOffset(star->x, star->y) ) = 0; // Clear
　　// Win系PalmOS関数を使う方法
　　} else if ( method == METHOD_SAFE){
　　　　WinSetForeColor(0);
　　　　WinPaintPixel( star->x, star->y / VERTICAL_RESOLUTION );
　　　　}
　　}

　　// 下へ移動する。
　　star->y += star->y_speed;

　　// 画面の下端に達していたら、画面上部へ
　　if ( star->y > 145 * VERTICAL_RESOLUTION){
　　　　star->y = 20 * VERTICAL_RESOLUTION;
　　}

　　// 点滅間隔を減らす。
　　star->time_remain_to_flash --;

　　　　// 点滅をするタイミングになった？
　　　　if ( star->time_remain_to_flash <= 0){
　　　　// 表示状態を反転
　　　　　　star->current_state_of_flash = ( star->current_state_of_flash)?0:1;
　　　　　　// 点滅間隔を初期化
　　　　　　star->time_remain_to_flash = star->flash_interval;
　　　　}

　　　　// 表示状態であれば、画面に描画
　　　　if ( star->current_state_of_flash){
　　　　// 画面の直接書き換え
　　　　if ( method == METHOD_FAST){
　　　　　　*(bits + ToOffset(star->x, star->y) ) = star->color;
　　　　// Win系PalmOS関数を使う方法
　　　　} else if ( method == METHOD_SAFE){
　　　　　　WinSetForeColor(star->color);
　　　　　　WinPaintPixel( star->x, star->y / VERTICAL_RESOLUTION);
　　　　　　}
　　　　}
　　}
}

　次がBenchmarkを行うDoBenchmarkです。

　　// 速度計測
　　static void DoBenchmark( Int16 method)
　　{
　　　　UInt32 start, stop;
　　　　UInt16 total_sec;
　　　　UInt16 loop;
　　　　char msg[32];

　　FrmCustomAlert( CustomAlert," Start benchmarking.", "","");

　　// 開始時刻を取得
　　start = TimGetTicks();

　　// 200回繰り返す
　　for ( loop = 0; loop < 200; loop++){
　　　　MoveStars( gMethod);
　　　　}

　　// 終了時刻を取得
　　stop = TimGetTicks();

　　// Ticksを秒に変換
　　total_sec = (stop - start) / SysTicksPerSecond();

　　// 結果を表示
　　StrPrintF(msg, "Total %d secs", total_sec);
　　FrmCustomAlert( CustomAlert, msg,"","");
　　}

MoveStarsを200回呼び出し、その前後で時刻を取得することでかかった秒数を計算しています。

　最後がAppEventLoopです。

　　static void AppEventLoop(void)
　　{
　　　　UInt16 error;
　　　　EventType event;

　　　　do
　　　　{
　　　　// アニメーションを行うためにタイムアウト値を1Ticks(=0.01秒）に設定
　　　　EvtGetEvent(&event, 1);

　　　　if (! SysHandleEvent(&event)){
　　　　　　if (! MenuHandleEvent(0, &event, &error)){
　　　　　　　　if (! AppHandleEvent(&event)){
　　　　　　　　　　FrmDispatchEvent(&event);
　　　　　　　　　　}
　　　　　　　　}
　　　　　　}
　　　　} while (event.eType != appStopEvent);
　　}

　MEDIUMという描画方法を用意しました。これが仮想的な画面を用いた、比較的高速で互換性が高い方法です。
　次に追加されるグローバル変数です。

// 追加分
Boolean supportHighDensity; // High Density利用可？
Boolean supportHRLibrary; // ハイレゾライブラリ利用可？
Boolean direct_access_to_screen; // 画面直接アクセスが可能か？

WindowType *fake_screen_window=0; // SAFE&FASTで利用する仮想画面のWindow構造体
BitmapType *fake_screen_bitmap=0; // SAFE&FASTで利用する仮想画面のBitmap構造体

　　// 初期化
　　supportHighDensity = false;
　　supportHRLibrary = false;

　　// High Density機能の有無をチェック
　　{
　　　　UInt32 version;
　　　　Err err;

　　　　// Window Managerのバージョンが4以降ならHigh Density機能は有効
　　　　// High Densityが有効＝画面がハイレゾ　ではないことに注意
　　　　//（例：treo600はHigh Density対応でかつ画面は標準解像度）
　　　　err = FtrGet(sysFtrCreator,sysFtrNumWinVersion, &version);
　　　　if ( version >= 4){
　　　　　　supportHighDensity = true;
　　　　　　}
　　　　}

　　　　// SONYのハイレゾライブラリの有無をチェック
　　　　{
　　　　if ((err = SysLibFind(sonySysLibNameHR, &hrLibRefNum))) {
　　　　　　if (err == sysErrLibNotFound) {
　　　　　　/* couldn't find lib. Try to load it */
　　　　　　　　err = SysLibLoad( 'libr', sonySysFileCHRLib, &hrLibRefNum );
　　　　　　}
　　　　}
　　　　if (!err ) { // HRLibrary Exists
　　　　　　supportHRLibrary = true;
　　　　}
　　}

　　if ( supportHighDensity){
　　// High Densityが有効な場合、画面のピクセル数の取得
　　　　UInt32 temp;
　　　　// 画面のサイズを取得
　　　　WinScreenGetAttribute( winScreenWidth, &temp);
　　　　width = temp;
　　　　WinScreenGetAttribute( winScreenHeight, &temp);
　　　　height = temp;
　　//　画面のカラーを取得
　　　　WinScreenMode (winScreenModeGet ,0 , 0, &depth, &enableColor);

　　} else if (supportHRLibrary) { // OS 3.5 or 4.X Clie
　　// ハイレゾライブラリが有効で、High Densityが無効な場合、画面のピクセル数の取得
　　HROpen( hrLibRefNum );
　　HRWinGetDisplayExtent( hrLibRefNum, &width , &height );
　　// ハイレゾ画面になっていたら、ローレゾ画面に変更する。（メモリー直接書き換えが可能なように）
　　if ( width == 320){
　　　　UInt32 w, h;

　　　　w = h = 160;
　　　　HRWinScreenMode ( hrLibRefNum,winScreenModeSet, &w, &h, &depth, &enableColor );
　　　　// 変更が成功したかどうかを判断するために再度取得
　　　　HRWinGetDisplayExtent( hrLibRefNum, &width , &height );
　　}
　　// 色深度を取得
　　WinScreenMode (winScreenModeGet , 0 , 0, &depth, &enableColor);
　　HRClose( hrLibRefNum );
　　} else {
　　// ハイレゾライブラリもHigh Densityもない。
　　　　WinGetDisplayExtent( &width , &height );
　　　　WinScreenMode (winScreenModeGet ,0 , 0, &depth, &enableColor);
　　}

　　//　8bit Color以外のときは8bitに変更しようと試みる
　　if ( ( enableColor == true ) && (depth != 8) ){
　　　　depth = 8;
　　　　WinScreenMode (winScreenModeSet ,0 , 0, &depth, &enableColor);
　　// 変更が成功したかどうかを知るために再度取得
　　　　WinScreenMode (winScreenModeGet ,0 , 0, &depth, &enableColor);
　　}

　　// ピクセル数が160x160で8Bit Colorの場合のみ画面直接書き換えが可能
　　if ( ( width == 160) && ( height == 160 ) && ( depth == 8)){
　　　　direct_access_to_screen = true;
　　　　} else {
　　　　direct_access_to_screen = false;
　　}

　　// Meduim方式用の仮想画面を用意する
　　// 160x160 8Bit Colorのビットマップを用意する
　　fake_screen_bitmap = BmpCreate( 160,160,8,0, &err);
　　// 上記Bitmapへ描画するためのWindowを作成する。
　　fake_screen_window = WinCreateBitmapWindow( fake_screen_bitmap, & err);

　　return errNone;
}

　　　　//　現在画面に表示されていたら、それを消去する。
　　　　if ( star->current_state_of_flash){
　　　　//　画面の直接書き換え
　　　　　　if ( ( method == METHOD_FAST ) || ( method == METHOD_MEDIUM) ){
　　　　　　　　*(bits + ToOffset(star->x, star->y) ) = 0; // Clear
　　　　　　// Win系PalmOS関数を使う方法
　　　　　　} else if ( method == METHOD_SAFE){
　　　　　　　　WinSetForeColor(0);
　　　　　　　　WinPaintPixel( star->x, star->y / VERTICAL_RESOLUTION );
　　　　　　}
　　　　}

　　// 下へ移動する。
　　star->y += star->y_speed;

　　// 画面の下端に達していたら、画面上部へ
　　if ( star->y > 145 * VERTICAL_RESOLUTION){
　　　　star->y = 20 * VERTICAL_RESOLUTION;
　　}

　　// 点滅間隔を減らす。
　　star->time_remain_to_flash --;

　　// 点滅をするタイミングになった？
　　if ( star->time_remain_to_flash <= 0){
　　　　// 表示状態を反転
　　　　star->current_state_of_flash = ( star->current_state_of_flash)?0:1;
　　　　// 点滅間隔を初期化
　　　　star->time_remain_to_flash = star->flash_interval;
　　}

　　// 表示状態であれば、画面に描画
　　if ( star->current_state_of_flash){
　　　　// 画面の直接書き換え
　　　　if ( ( method == METHOD_FAST ) || ( method == METHOD_MEDIUM) ){
　　　　　　*(bits + ToOffset(star->x, star->y) ) = star->color;
　　　　　　// Win系PalmOS関数を使う方法
　　　　} else if ( method == METHOD_SAFE){
　　　　　　WinSetForeColor(star->color);
　　　　　　WinPaintPixel( star->x, star->y / VERTICAL_RESOLUTION);
　　　　　　}
　　　　}
　　}

　　// 描画が完了した。Mediumの場合、仮想画面から実画面へのコピーを行う。
　　// 画面解像度、色数などはここで自動的に変換される。
　　if ( method == METHOD_MEDIUM ){
　　　　RectangleType rect= { { 0, 20} , { 160,125}};

　　　　WinCopyRectangle( fake_screen_window , WinGetDisplayWindow() , &rect , 0,20,winPaint);
　　　　}

　　}