home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / superdark-2.1a.lha / SuperDark / programmer / prog / proc_main_debug.c < prev    next >
C/C++ Source or Header  |  1993-06-23  |  13KB  |  537 lines
  1. #include    <stdio.h>
  2. #include    <exec/types.h>
  3. #include    <exec/tasks.h>
  4. #include    <exec/ports.h>
  5. #include    <exec/memory.h>
  6. #include    <exec/tasks.h>
  7. #include    <graphics/displayinfo.h>
  8. #include    <graphics/displayinfo.h>
  9. #include    <graphics/gfxmacros.h>
  10. #include    <dos/dosextens.h>
  11. #include    <clib/exec_protos.h>
  12. #include    <hardware/custom.h>
  13. #include    <hardware/dmabits.h>
  14. #include    <intuition/intuitionbase.h>
  15. #include    <intuition/screens.h>
  16. #include    "/includes/struct.h"
  17. #include    "/includes/tom_gadget.h"
  18.  
  19. #ifndef custom
  20. #define custom (*(struct Custom *)0xDFF000)
  21. #endif    /* custom */
  22. #define DEF_MODE      0
  23. #define DEF_MODE_NAME "HighRes"
  24.  
  25.  
  26. static    int    s2depth,width,height;
  27.  
  28. struct my_data    *p_info;
  29. struct    appel_proc    *p_data_proc;
  30. struct    appel_proc    data_proc;
  31. struct    BitMap        b;
  32. static    struct    Screen        *s;
  33. static    struct    Window    *wnd;
  34. static    int    flg_end=FALSE;
  35. UWORD    chip null_pointer[]={0,0,0,0,0,0};
  36.  
  37.  
  38. struct    IntuitionBase    *IntuitionBase;
  39. struct    Library    *GfxBase;
  40. extern    struct    tom_gadget    my_gadg[];
  41. extern    void    __saveds    dark();
  42. extern    void    proc_init();
  43. extern    void    proc_end();
  44. extern    char    *p_text_info;
  45. struct ExtNewScreen newscreen = {
  46.   0,0,0,0,0,0,0,NULL,CUSTOMSCREEN|CUSTOMBITMAP,NULL,(UBYTE *)" ",NULL,NULL
  47. };
  48.  
  49. char    pr_buff[100];
  50.  
  51. /* Note: The folloing SPrintF Routine is taken from the program "FracBlank " */
  52. /* by:                                         */
  53. UWORD PutChar[2] = {0x16C0,0x4E75};
  54.  
  55. /* dirty hack to avoid assembler part :-)
  56.    16C0: move.b d0,(a3)+
  57.    4E75: rts
  58. */
  59.  
  60. #define VOID_STDARGS   void __stdargs
  61.  
  62. /************************************************************************/
  63. /* This exactly the same function than printf, but printf() can't be    */
  64. /* used in a blanker. Use the utility program show_info to see the result */
  65. /* NOTE: Always use long with number, like %ld,%lx and NOT %x or %d    */
  66. /************************************************************************/
  67.  
  68. VOID_STDARGS SDprintf(char *FormatString,...)
  69.  
  70. {
  71.     char    buffer[100];
  72.     if(hd){
  73.         RawDoFmt (FormatString,(APTR)((LONG *)&FormatString+1L),
  74.                (void *)PutChar,buffer);
  75.         MyWrite(buffer);
  76.     }
  77. }
  78.  
  79. /************************************************************************/
  80. /* Some variouse function used for debugging..use them at your own risk    */
  81. /* but do not use any printf function                    */
  82. /************************************************************************/
  83.  
  84. VOID_STDARGS SPrintF(char *pr_buff,char *FormatString,...)
  85.  
  86. {
  87.  RawDoFmt (FormatString,(APTR)((LONG *)&FormatString+1L),
  88.            (void *)PutChar,pr_buff);
  89. }
  90.  
  91. /************************************************************************/
  92.  
  93. mystrlen(char    *pc)
  94. {
  95.     int    ret;
  96.     ret=0;
  97.     while(*pc++!=0){
  98.         ret++;
  99.     }
  100.     return    ret;
  101. }
  102.  
  103. /************************************************************************/
  104.  
  105. void    MyWrite(char    *pc)
  106. {
  107.     if(hd!=0)Write(hd,pc,mystrlen(pc));
  108. }
  109. void    My_Print(struct RastPort *rp,UWORD x,UWORD y,char    *pc)
  110. {
  111.     Move(rp,x,y);
  112.     Text(rp,pc,mystrlen(pc));
  113. }
  114.  
  115. /****************************************************************/
  116. /* This old function should not be used now...            */
  117. /****************************************************************/
  118.  
  119. int    find_res(USHORT flg_depth,SHORT *p_depth,SHORT *p_tx,SHORT *p_ty,ULONG *p_d_id)
  120. {
  121.  struct ModeNode *ModeNode;
  122.  struct ModeNode *ModeNodeFound;
  123.  
  124.  ModeNode=(struct ModeNode *)p_data_proc->ml->lh_Head;
  125.  ModeNodeFound=ModeNode;
  126.  
  127.  while (ModeNode->mn_Node.ln_Succ)
  128.   {
  129.     if(flg_depth){
  130.         if(*p_depth<ModeNode->MaxDepth){
  131.             *p_depth=ModeNode->MaxDepth;
  132.             if(*p_tx<=ModeNode->MaxX){
  133.                 *p_tx=ModeNode->MaxX;
  134.                 if(*p_ty<=ModeNode->MaxY){
  135.                     *p_ty=ModeNode->MaxY;
  136.                 }
  137.             }
  138.             ModeNodeFound=ModeNode;
  139.         }
  140.     }else{
  141.         if(*p_tx<=ModeNode->MaxX){
  142.             *p_tx=ModeNode->MaxX;
  143.             if(*p_ty<=ModeNode->MaxY){
  144.                 *p_ty=ModeNode->MaxY;
  145.                 if(*p_depth<ModeNode->MaxDepth){
  146.                     *p_depth=ModeNode->MaxDepth;
  147.                 }
  148.             }
  149.             ModeNodeFound=ModeNode;
  150.         }
  151.     }
  152.     ModeNode=(struct ModeNode *)ModeNode->mn_Node.ln_Succ;
  153.   }
  154.   *p_depth=ModeNodeFound->MaxDepth;
  155.  
  156.   *p_tx=ModeNodeFound->MaxX;
  157.   *p_ty=ModeNodeFound->MaxY;
  158.  
  159.   *p_d_id=ModeNodeFound->DisplayID;
  160.  
  161.   return TRUE;
  162. }
  163.  
  164. /********************************************************** get_modes() *****/
  165.  
  166. /********************************************************/
  167. /* We get the current modes availables in this computer */
  168. /********************************************************/
  169.  
  170. struct    List    *get_modes()
  171. {
  172.  struct List *ModeList;
  173.  ULONG DisplayID;
  174.  struct DimensionInfo DimInfo;
  175.  struct NameInfo NameInfo;
  176.  struct ModeNode *ModeNode;
  177.  
  178.  if (ModeList=AllocMem(sizeof(struct List),MEMF_PUBLIC)) NewList (ModeList);
  179.  else return NULL;
  180.  
  181.  DisplayID=INVALID_ID;
  182.  while ((DisplayID=NextDisplayInfo(DisplayID))!=INVALID_ID){
  183.   if ((DisplayID&MONITOR_ID_MASK)&&(ModeNotAvailable(DisplayID)==0L)){
  184.    if (GetDisplayInfoData(NULL,(UBYTE *)&DimInfo,sizeof(struct DimensionInfo),
  185.                           DTAG_DIMS,DisplayID)){
  186.     if (DimInfo.MaxDepth>1){
  187.      if (GetDisplayInfoData(NULL,(UBYTE *)&NameInfo,sizeof(struct NameInfo),
  188.                             DTAG_NAME,DisplayID)){
  189.       if (ModeNode=AllocMem(sizeof(struct ModeNode),MEMF_PUBLIC))
  190.        {
  191.  
  192.     ModeNode->MaxDepth=DimInfo.MaxDepth;
  193.     ModeNode->MinX=DimInfo.Nominal.MinX+1;
  194.     ModeNode->MaxX=DimInfo.Nominal.MaxX+1;
  195.     ModeNode->MinY=DimInfo.Nominal.MinY+1;
  196.     ModeNode->MaxY=DimInfo.Nominal.MaxY+1;
  197.  
  198.         (void)strcpy(ModeNode->Name,
  199.                      NameInfo.Name);
  200.     ModeNode->mn_Node.ln_Name=ModeNode->Name;
  201.         ModeNode->DisplayID=DisplayID;
  202.  
  203.     printf("%20s ",NameInfo.Name);
  204.     printf("M.depth:%d mx:%02d my:%02d MX:%03d MY:%03d ",DimInfo.MaxDepth,
  205.                 DimInfo.Nominal.MinX,
  206.                 DimInfo.Nominal.MinY,
  207.                 DimInfo.Nominal.MaxX,
  208.                 DimInfo.Nominal.MaxY);
  209.     printf("Flags:%lx\n",ModeNode->DisplayID);
  210.  
  211.         AddTail (ModeList,&ModeNode->mn_Node);
  212.       }
  213.      }
  214.     }
  215.    }
  216.   }
  217.  }    
  218.  if (ModeList->lh_Head->ln_Succ==NULL)
  219.   if (ModeNode=AllocMem(sizeof(struct ModeNode),MEMF_PUBLIC))
  220.    {
  221.     (void)strcpy(ModeNode->Name,
  222.                      DEF_MODE_NAME);
  223.     ModeNode->mn_Node.ln_Name=ModeNode->Name;
  224.     ModeNode->DisplayID=DEF_MODE;
  225.     ModeNode->MaxX=640;
  226.     ModeNode->MaxY=256;
  227.     ModeNode->MaxDepth=4;
  228.  
  229.     AddTail (ModeList,&ModeNode->mn_Node);
  230.    }
  231.   else
  232.    {
  233.     FreeMem ((APTR)ModeList,sizeof(struct List));
  234.     return NULL;
  235.    }
  236.  return ModeList;
  237. }
  238.  
  239. /************************************************************* free_modes() */
  240.  
  241.  
  242. /***********************************************/
  243. /* We delete the liste of the available modes */
  244. /***********************************************/
  245.  
  246. void free_modes(struct List *ModeList)
  247.  
  248. {
  249.     struct ModeNode *ModeNode;
  250.  
  251.     while (ModeList->lh_Head->ln_Succ){
  252.         ModeNode=(struct ModeNode *)ModeList->lh_Head;
  253.         RemHead (ModeList);
  254.         FreeMem ((APTR)ModeNode,sizeof(struct ModeNode));
  255.     }
  256.     FreeMem ((APTR)ModeList,sizeof(struct List));
  257. }
  258. /*******************************************************************/
  259. /* This function is used instead of CloseScreen, because if we are */
  260. /* in the random mode, we don't close immediatly the screen, but   */
  261. /* we give it back to superdark, so he can use it to create next   */
  262. /* screen                               */
  263. /*******************************************************************/
  264.  
  265. DCloseScreen(struct Screen *s)
  266. {
  267.     if(s){
  268.         while(s->FirstWindow)CloseWindow(s->FirstWindow);
  269.         CloseScreen(s);
  270.     }
  271. }
  272. /*******************************************************************/
  273.  
  274. int blank()
  275. {
  276.   int    i,col;
  277.   struct    Screen    *s2;
  278.   struct ViewPort      *vp2;
  279.   static struct TagItem screen_item[2]={{SA_DisplayID,0},TAG_END};
  280.  
  281.   /* We set the sprite off, with 2 different methodes:    */
  282.   /* Software (not always work) and Hardware (tricky..) */
  283.  
  284. /*
  285.   if (my_gadg[GID_SPRITE].value){
  286. */
  287.     OFF_SPRITE
  288.     for (i=0L; i<8L; i++){
  289.          custom.spr[i].ctl=0;
  290.     }
  291. /*
  292.   }else{
  293. */
  294. /*
  295.   }
  296. */
  297.  data_proc.s=0;
  298.  
  299.   s2 = IntuitionBase->FirstScreen;
  300.   vp2 = &s2->ViewPort;
  301.   s2depth = s2->BitMap.Depth;
  302.   
  303.   newscreen.Type|=NS_EXTENDED;
  304.   newscreen.LeftEdge = s2->LeftEdge;
  305.   newscreen.TopEdge = s2->TopEdge;
  306.   newscreen.Width = s2->Width;
  307.   newscreen.Height = s2->Height;
  308.   newscreen.DetailPen = s2->DetailPen;
  309.   newscreen.BlockPen = s2->BlockPen;
  310.   newscreen.Depth = s2depth;
  311.   newscreen.ViewModes = vp2->Modes;
  312.   newscreen.DefaultTitle=NULL;
  313.   newscreen.Extension=screen_item;
  314.  
  315.   width=news