/***************************************************************************************/
/*                                                                                     */
/*  SCS editor Version 2                                                               */
/*  File : EmptyNode.pkg                                                               */
/*  Version : 3 juillet 2000                                                           */
/*  Handling of a virtual ObjNode to order Comps                                       */
/*                                                                                     */
/***************************************************************************************/

fun EMPTYNODE_Create( Channel, cont )=
  let _CRalphaBitmap
        Channel
        _CRbitmap
          Channel
          1
          1
        nil
        nil
        nil
    -> alphaBmp in
    _CONVERTcompBitmapToObjNode
      _CRcompBitmap
        Channel
        cont
        nil
        [0 0]
        OBJ_VISIBLE|OBJ_ENABLE
        nil
        alphaBmp
        0 0 0 0
;;