bkpic.c

DOS下SVGA图像编程实例,支持汉字。

//...::: Include :::...
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <alloc.h>
#include <bios.h>
#include <process.h>
#include <dos.h>
#include <windows.h>        //windows.h中有对BMP文件头、信息头的结构体定义
#include <mem.h>

//...::: Global Variable :::...
long Width,Height,OffBits,BitCount,BytesPerLine;
int MouseX, MouseY;
int mouseMinX=24, mouseMaxX=824, mouseMinY=100, mouseMaxY=700;
unsigned long colorx[1000],colory[1000];
//English Font
char Asc_Font[1600]=
{
    0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,//
    0x00,0x00,0x18,0x3c,0x3c,0x3c,0x18,0x18,0x18,0x00,0x18,0x18,0x00,0x00,0x00,0x00,// !
    0x00,0x66,0x66,0x66,0x24,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,// "
    0x00,0x00,0x00,0x6c,0x6c,0xfe,0x6c,0x6c,0x6c,0xfe,0x6c,0x6c,0x00,0x00,0x00,0x00,// #
    0x18,0x18,0x7c,0xc6,0xc2,0xc0,0x7c,0x06,0x06,0x86,0xc6,0x7c,0x18,0x18,0x00,0x00,// $
    0x00,0x00,0x00,0x00,0xc2,0xc6,0x0c,0x18,0x30,0x60,0xc6,0x86,0x00,0x00,0x00,0x00,// %
    0x00,0x00,0x38,0x6c,0x6c,0x38,0x76,0xdc,0xcc,0xcc,0xcc,0x76,0x00,0x00,0x00,0x00,// &
    0x00,0x30,0x30,0x30,0x60,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,// '
    0x00,0x00,0x0c,0x18,0x30,0x30,0x30,0x30,0x30,0x30,0x18,0x0c,0x00,0x00,0x00,0x00,// (
    0x00,0x00,0x30,0x18,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x18,0x30,0x00,0x00,0x00,0x00,// )
    0x00,0x00,0x00,0x00,0x00,0x66,0x3c,0xff,0x3c,0x66,0x00,0x00,0x00,0x00,0x00,0x00,// *
    0x00,0x00,0x00,0x00,0x00,0x18,0x18,0x7e,0x18,0x18,0x00,0x00,0x00,0x00,0x00,0x00,// +
    0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x18,0x18,0x30,0x00,0x00,0x00,// ,
    0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xfe,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,// -
    0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x18,0x00,0x00,0x00,0x00,// .
    0x00,0x00,0x00,0x00,0x02,0x06,0x0c,0x18,0x30,0x60,0xc0,0x80,0x00,0x00,0x00,0x00,// /
    0x00,0x00,0x38,0x6c,0xc6,0xc6,0xd6,0xd6,0xc6,0xc6,0x6c,0x38,0x00,0x00,0x00,0x00,// 0
    0x00,0x00,0x18,0x38,0x78,0x18,0x18,0x18,0x18,0x18,0x18,0x7e,0x00,0x00,0x00,0x00,// 1
    0x00,0x00,0x7c,0xc6,0x06,0x0c,0x18,0x30,0x60,0xc0,0xc6,0xfe,0x00,0x00,0x00,0x00,// 2
    0x00,0x00,0x7c,0xc6,0x06,0x06,0x3c,0x06,0x06,0x06,0xc6,0x7c,0x00,0x00,0x00,0x00,// 3
    0x00,0x00,0x0c,0x1c,0x3c,0x6c,0xcc,0xfe,0x0c,0x0c,0x0c,0x1e,0x00,0x00,0x00,0x00,// 4
    0x00,0x00,0xfe,0xc0,0xc0,0xc0,0xfc,0x06,0x06,0x06,0xc6,0x7c,0x00,0x00,0x00,0x00,// 5
    0x00,0x00,0x38,0x60,0xc0,0xc0,0xfc,0xc6,0xc6,0xc6,0xc6,0x7c,0x00,0x00,0x00,0x00,// 6
    0x00,0x00,0xfe,0xc6,0x06,0x06,0x0c,0x18,0x30,0x30,0x30,0x30,0x00,0x00,0x00,0x00,// 7
    0x00,0x00,0x7c,0xc6,0xc6,0xc6,0x7c,0xc6,0xc6,0xc6,0xc6,0x7c,0x00,0x00,0x00,0x00,// 8
    0x00,0x00,0x7c,0xc6,0xc6,0xc6,0x7e,0x06,0x06,0x06,0x0c,0x78,0x00,0x00,0x00,0x00,// 9
    0x00,0x00,0x00,0x00,0x18,0x18,0x00,0x00,0x00,0x18,0x18,0x00,0x00,0x00,0x00,0x00,// :
    0x00,0x00,0x00,0x00,0x18,0x18,0x00,0x00,0x00,0x18,0x18,0x30,0x00,0x00,0x00,0x00,// ;
    0x00,0x00,0x00,0x06,0x0c,0x18,0x30,0x60,0x30,0x18,0x0c,0x06,0x00,0x00,0x00,0x00,// <
    0x00,0x00,0x00,0x00,0x00,0x7e,0x00,0x00,0x7e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,// =
    0x00,0x00,0x00,0x60,0x30,0x18,0x0c,0x06,0x0c,0x18,0x30,0x60,0x00,0x00,0x00,0x00,// >
    0x00,0x00,0x7c,0xc6,0xc6,0x0c,0x18,0x18,0x18,0x00,0x18,0x18,0x00,0x00,0x00,0x00,// ?
    0x00,0x00,0x00,0x7c,0xc6,0xc6,0xde,0xde,0xde,0xdc,0xc0,0x7c,0x00,0x00,0x00,0x00,// @
    0x00,0x00,0x10,0x38,0x6c,0xc6,0xc6,0xfe,0xc6,0xc6,0xc6,0xc6,0x00,0x00,0x00,0x00,// A
    0x00,0x00,0xfc,0x66,0x66,0x66,0x7c,0x66,0x66,0x66,0x66,0xfc,0x00,0x00,0x00,0x00,// B
    0x00,0x00,0x3c,0x66,0xc2,0xc0,0xc0,0xc0,0xc0,0xc2,0x66,0x3c,0x00,0x00,0x00,0x00,// C
    0x00,0x00,0xf8,0x6c,0x66,0x66,0x66,0x66,0x66,0x66,0x6c,0xf8,0x00,0x00,0x00,0x00,// D
    0x00,0x00,0xfe,0x66,0x62,0x68,0x78,0x68,0x60,0x62,0x66,0xfe,0x00,0x00,0x00,0x00,// E
    0x00,0x00,0xfe,0x66,0x62,0x68,0x78,0x68,0x60,0x60,0x60,0xf0,0x00,0x00,0x00,0x00,// F
    0x00,0x00,0x3c,0x66,0xc2,0xc0,0xc0,0xde,0xc6,0xc6,0x66,0x3a,0x00,0x00,0x00,0x00,// G
    0x00,0x00,0xc6,0xc6,0xc6,0xc6,0xfe,0xc6,0xc6,0xc6,0xc6,0xc6,0x00,0x00,0x00,0x00,// H
    0x00,0x00,0x3c,0x18,0x18,0x18,0x18,0x18,0x18,0x18,0x18,0x3c,0x00,0x00,0x00,0x00,// I
    0x00,0x00,0x1e,0x0c,0x0c,0x0c,0x0c,0x0c,0xcc,0xcc,0xcc,0x78,0x00,0x00,0x00,0x00,// J
    0x00,0x00,0xe6,0x66,0x66,0x6c,0x78,0x78,0x6c,0x66,0x66,0xe6,0x00,0x00,0x00,0x00,// K
    0x00,0x00,0xf0,0x60,0x60,0x60,0x60,0x60,0x60,0x62,0x66,0xfe,0x00,0x00,0x00,0x00,// L
    0x00,0x00,0xc6,0xee,0xfe,0xfe,0xd6,0xc6,0xc6,0xc6,0xc6,0xc6,0x00,0x00,0x00,0x00,// M
    0x00,0x00,0xc6,0xe6,0xf6,0xfe,0xde,0xce,0xc6,0xc6,0xc6,0xc6,0x00,0x00,0x00,0x00,// N
    0x00,0x00,0x7c,0xc6,0xc6,0xc6,0xc6,0xc6,0xc6,0xc6,0xc6,0x7c,0x00,0x00,0x00,0x00,// O
    0x00,0x00,0xfc,0x66,0x66,0x66,0x7c,0x60,0x60,0x60,0x60,0xf0,0x00,0x00,0x00,0x00,// P
    0x00,0x00,0x7c,0xc6,0xc6,0xc6,0xc6,0xc6,0xc6,0xd6,0xde,0x7c,0x0c,0x0e,0x00,0x00,// Q
    0x00,0x00,0xfc,0x66,0x66,0x66,0x7c,0x6c,0x66,0x66,0x66,0xe6,0x00,0x00,0x00,0x00,// R
    0x00,0x00,0x7c,0xc6,0xc6,0x60,0x38,0x0c,0x06,0xc6,0xc6,0x7c,0x00,0x00,0x00,0x00,// S
    0x00,0x00,0x7e,0x7e,0x5a,0x18,0x18,0x18,0x18,0x18,0x18,0x3c,0x00,0x00,0x00,0x00,// T
    0x00,0x00,0xc6,0xc6,0xc6,0xc6,0xc6,0xc6,0xc6,0xc6,0xc6,0x7c,0x00,0x00,0x00,0x00,// U
    0x00,0x00,0xc6,0xc6,0xc6,0xc6,0xc6,0xc6,0xc6,0x6c,0x38,0x10,0x00,0x00,0x00,0x00,// V
    0x00,0x00,0xc6,0xc6,0xc6,0xc6,0xd6,0xd6,0xd6,0xfe,0xee,0x6c,0x00,0x00,0x00,0x00,// W
    0x00,0x00,0xc6,0xc6,0x6c,0x7c,0x38,0x38,0x7c,0x6c,0xc6,0xc6,0x00,0x00,0x00,0x00,// X
    0x00,0x00,0x66,0x66,0x66,0x66,0x3c,0x18,0x18,0x18,0x18,0x3c,0x00,0x00,0x00,0x00,// Y
    0x00,0x00,0xfe,0xc6,0x86,0x0c,0x18,0x30,0x60,0xc2,0xc6,0xfe,0x00,0x00,0x00,0x00,// Z
    0x00,0x00,0x3c,0x30,0x30,0x30,0x30,0x30,0x30,0x30,0x30,0x3c,0x00,0x00,0x00,0x00,// [
    0x00,0x00,0x00,0x80,0xc0,0xe0,0x70,0x38,0x1c,0x0e,0x06,0x02,0x00,0x00,0x00,0x00,//
    0x00,0x00,0x3c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x3c,0x00,0x00,0x00,0x00,// ]
    0x10,0x38,0x6c,0xc6,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,// ^
    0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xff,0x00,0x00,// _
    0x30,0x30,0x18,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,// `
    0x00,0x00,0x00,0x00,0x00,0x78,0x0c,0x7c,0xcc,0xcc,0xcc,0x76,0x00,0x00,0x00,0x00,// a
    0x00,0x00,0xe0,0x60,0x60,0x78,0x6c,0x66,0x66,0x66,0x66,0x7c,0x00,0x00,0x00,0x00,// b
    0x00,0x00,0x00,0x00,0x00,0x7c,0xc6,0xc0,0xc0,0xc0,0xc6,0x7c,0x00,0x00,0x00,0x00,// c
    0x00,0x00,0x1c,0x0c,0x0c,0x3c,0x6c,0xcc,0xcc,0xcc,0xcc,0x76,0x00,0x00,0x00,0x00,// d
    0x00,0x00,0x00,0x00,0x00,0x7c,0xc6,0xfe,0xc0,0xc0,0xc6,0x7c,0x00,0x00,0x00,0x00,// e
    0x00,0x00,0x38,0x6c,0x64,0x60,0xf0,0x60,0x60,0x60,0x60,0xf0,0x00,0x00,0x00,0x00,// f
    0x00,0x00,0x00,0x00,0x00,0x76,0xcc,0xcc,0xcc,0xcc,0xcc,0x7c,0x0c,0xcc,0x78,0x00,// g
    0x00,0x00,0xe0,0x60,0x60,0x6c,0x76,0x66,0x66,0x66,0x66,0xe6,0x00,0x00,0x00,0x00,// h
    0x00,0x00,0x18,0x18,0x00,0x38,0x18,0x18,0x18,0x18,0x18,0x3c,0x00,0x00,0x00,0x00,// i
    0x00,0x00,0x06,0x06,0x00,0x0e,0x06,0x06,0x06,0x06,0x06,0x06,0x66,0x66,0x3c,0x00,// j
    0x00,0x00,0xe0,0x60,0x60,0x66,0x6c,0x78,0x78,0x6c,0x66,0xe6,0x00,0x00,0x00,0x00,// k
    0x00,0x00,0x38,0x18,0x18,0x18,0x18,0x18,0x18,0x18,0x18,0x3c,0x00,0x00,0x00,0x00,// l
    0x00,0x00,0x00,0x00,0x00,0xec,0xfe,0xd6,0xd6,0xd6,0xd6,0xc6,0x00,0x00,0x00,0x00,// m
    0x00,0x00,0x00,0x00,0x00,0xdc,0x66,0x66,0x66,0x66,0x66,0x66,0x00,0x00,0x00,0x00,// n
    0x00,0x00,0x00,0x00,0x00,0x7c,0xc6,0xc6,0xc6,0xc6,0xc6,0x7c,0x00,0x00,0x00,0x00,// o
    0x00,0x00,0x00,0x00,0x00,0xdc,0x66,0x66,0x66,0x66,0x66,0x7c,0x60,0x60,0xf0,0x00,// p
    0x00,0x00,0x00,0x00,0x00,0x76,0xcc,0xcc,0xcc,0xcc,0xcc,0x7c,0x0c,0x0c,0x1e,0x00,// q
    0x00,0x00,0x00,0x00,0x00,0xdc,0x76,0x66,0x60,0x60,0x60,0xf0,0x00,0x00,0x00,0x00,// r
    0x00,0x00,0x00,0x00,0x00,0x7c,0xc6,0x60,0x38,0x0c,0xc6,0x7c,0x00,0x00,0x00,0x00,// s
    0x00,0x00,0x10,0x30,0x30,0xfc,0x30,0x30,0x30,0x30,0x36,0x1c,0x00,0x00,0x00,0x00,// t
    0x00,0x00,0x00,0x00,0x00,0xcc,0xcc,0xcc,0xcc,0xcc,0xcc,0x76,0x00,0x00,0x00,0x00,// u
    0x00,0x00,0x00,0x00,0x00,0x66,0x66,0x66,0x66,0x66,0x3c,0x18,0x00,0x00,0x00,0x00,// v
    0x00,0x00,0x00,0x00,0x00,0xc6,0xc6,0xd6,0xd6,0xd6,0xfe,0x6c,0x00,0x00,0x00,0x00,// w
    0x00,0x00,0x00,0x00,0x00,0xc6,0x6c,0x38,0x38,0x38,0x6c,0xc6,0x00,0x00,0x00,0x00,// x
    0x00,0x00,0x00,0x00,0x00,0xc6,0xc6,0xc6,0xc6,0xc6,0xc6,0x7e,0x06,0x0c,0xf8,0x00,// y
    0x00,0x00,0x00,0x00,0x00,0xfe,0xcc,0x18,0x30,0x60,0xc6,0xfe,0x00,0x00,0x00,0x00,// z
    0x00,0x00,0x0e,0x18,0x18,0x18,0x70,0x18,0x18,0x18,0x18,0x0e,0x00,0x00,0x00,0x00,// {
    0x00,0x00,0x18,0x18,0x18,0x18,0x00,0x18,0x18,0x18,0x18,0x18,0x00,0x00,0x00,0x00,// |
    0x00,0x00,0x70,0x18,0x18,0x18,0x0e,0x18,0x18,0x18,0x18,0x70,0x00,0x00,0x00,0x00,// }
    0x00,0x00,0x76,0xdc,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,// ~
    0x00,0x00,0x00,0x00,0x10,0x38,0x6c,0xc6,0xc6,0xc6,0xfe,0x00,0x00,0x00,0x00,0x00
};



//...::: Start Function Prototype :::...
void selectpage (char);
unsigned char set_SVGA_mode (int);
unsigned int get_SVGA_mode (void);
void loadBMPhead (char*);
void loadBmp (char*);
void PutPoint (int, int, unsigned long);
unsigned long getpixel(int, int);
void getline(int, int);
void putline(int, int, unsigned long);
void hideline(int, int);
void hanzi16 (int, int, int, int, int, unsigned long,char*);
void hanzi24 (int, int, char*, unsigned long);
void cleararea (int, int, int, int, unsigned long);
void DrawLine (int, int, int, int, unsigned long);
void rectangle (int, int, int, int, unsigned long);
void MountMouse (void);
void UnmountMouse(void);
int GetMouseSta (void);
void SetMouseXY(int, int);
void SetMouseBound (int, int, int, int);
unsigned int get_SVGA_mode(void);



//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

void main(void)
{
    char *ptr;
    int xposition1,yposition1,xposition2,yposition2;
    int key,hitflag=0;
    unsigned oldmode;
    int oldx,oldy;

    oldmode = get_SVGA_mode();

    set_SVGA_mode(0x118);
    MountMouse();
    SetMouseBound(24, 823, 100, 699); //设置鼠标边界

     loadBmp("d:\\svga\\40.bmp");   //载入的图片是800×600的24位真彩色图片
     //画边框
     rectangle(0,0,1023,767,0xff0000);
     rectangle(4,4,1019,763,0xffff00);
     rectangle(24,100,823,699,0xffFFff);
     rectangle(23,99,824,700,0xffFFff);
     //写文字
     hanzi16(130,24,3,3,50,0x00FF00,"电雕机版辊图像采集界面");

     hanzi24(864,100,"第一点坐标",0x9696ff);
//  cleararea(864,130,7*16,32,0xffffff);
//  hanzi16(848,130,2,2,32,0x0000ff,"123,456");

     hanzi24(864,190,"第二点坐标",0x9696ff);
//  cleararea(864,220,7*16,32,0xffffff);
//  hanzi16(848,220,2,2,32,0x0000ff,"XXX,XXX");
     hanzi24(864,280,"区域宽度",0xFF0000);
     hanzi24(864,370,"区域高度",0xFF0000);

     hanzi24(24,724,"当前坐标",0xFF0000);
//  cleararea(130,724,4*24,24,0x7247B8);

     MouseX=424,MouseY=400;
     SetMouseXY(MouseX,MouseY);
     asm  mov AX, 1
     asm  int 0x33
     getline(MouseX,MouseY);
     oldx=MouseX,oldy=MouseY;
     putline(MouseX,MouseY,0xff5555);
     while(1)
     {
          if(1==GetMouseSta())
          {
                if(0==hitflag)
    		{
                     xposition1=MouseX-24;yposition1=MouseY-100;
                     sprintf(&*ptr,"%3d,%3d",xposition1,yposition1);delay(100);
                     hanzi16(848,130,2,2,32,0xFFAAAA,ptr);delay(100);

                	 hitflag=1;

    		}
        		else
    		{
                     xposition2=MouseX-24;yposition2=MouseY-100;
                     sprintf(&*ptr,"%3d,%3d",xposition2,yposition2);delay(100);
                     hanzi16(848,220,2,2,32,0xFFAAAA,ptr);delay(100);
                     sprintf(&*ptr,"%3d",xposition2-xposition1);delay(100);
                     hanzi16(848,310,2,2,32,0xFFFFFF,ptr);delay(100);
                     sprintf(&*ptr,"%3d",yposition2-yposition1);delay(100);
                     hanzi16(848,400,2,2,32,0xFFFFFF,ptr);delay(100);

                	 hitflag=0;
    		}
          }

          if((oldx!=MouseX)||(oldy!=MouseY))
          {
                hideline(oldx,oldy);
                asm     mov AX, 2 //隐藏
                asm	int 0x33
                getline(MouseX,MouseY);

                asm    mov AX, 1   //显示
                asm      int 0x33
                putline(MouseX,MouseY,0xff5555);
                oldx=MouseX;
                oldy=MouseY;
//          sprintf(&*ptr,"%d,%d",MouseX,MouseY);
//          hanzi16(10,720,3,3,50,0xFFFFFF,ptr);
//          delay(50);
          }

          if(kbhit())
          {
                key=getch();
                if(key==0x1b) {key=0;break;}
          }
     }

     set_SVGA_mode(oldmode);
     SetMouseBound(0, 639, 0, 479);
     UnmountMouse();
}




//Function Definition
void loadBMPhead(char* file)                            //读BMP文件头
{
     BITMAPFILEHEADER  bmphead;
     BITMAPINFOHEADER  bmi;
     FILE *fp;

     fp=fopen(file,"rb");                                //打开图像文件
     if (fp!= NULL)
     {
          fread(&bmphead,sizeof(BITMAPFILEHEADER),1,fp);  //读位图文件头
          fread(&bmi,sizeof(BITMAPINFOHEADER),1,fp);      //读位图信息头

          OffBits      = bmphead.bfOffBits;
          Width        = (WORD) bmi.biWidth;
          Height       = (WORD) bmi.biHeight;
          BitCount     = bmi.biBitCount;
          BytesPerLine = (Width*BitCount+31)/32*4;        //计算每行字节数

          fclose(fp);                                     //关闭图像文件
     }
}


void selectpage(char page)      //换页函数
{
     union REGS r;
     r.x.ax=0x4f05;
     r.x.bx=0;
     r.x.dx=page;                //选择页面
     int86(0x10,&r,&r);
}


unsigned char set_SVGA_mode(int Vmode)  //设置SVGA屏幕模式
{
     union REGS r;
     r.x.ax=0x4f02;              //设置超级VGA模式
     r.x.bx=Vmode;
     int86(0x10,&r,&r);
     return(r.h.ah);
}


unsigned int get_SVGA_mode(void)    //获取SVGA屏幕模式
{
     union REGS r;
     r.x.ax=0x4f03;
     int86(0x10,&r,&r);
     return(r.x.bx);
}



void loadBmp(char *add)
{
     char buffer[20];        //存文件名
     char sc[1024*3];

     int xStart=24,yStart=100;
     int page_new=0,page_old=0;

     int i,j,k,n,savemode;
     unsigned long position;
     char far *scr;

     FILE *fp;
     unsigned char far *ScreenPtr = (unsigned char far *)0xA0000000;

     sprintf(buffer,"%s",add);

     loadBMPhead(add);

     if((fp=fopen(buffer,"rb"))==NULL)
          {printf("Can't open file: %s",buffer);getch();exit(0);}

     fseek(fp,OffBits,SEEK_SET);
     for(j=Height-1;j>=0;j--)
     {
          fread(sc,BytesPerLine,1,fp);
          for(i=0,n=0;i<Width;i++,n+=3)
          {
                position=(j+yStart)*(long)1024*4+(i+xStart)*4;  //强制转换为long以适应position    ???why???
                page_new=position>>16;                          //位置除以64K,得到页号

                if(page_new!=page_old)                          //不是以前页面了，就换页
                     selectpage(page_new);
                page_old=page_new;

                scr=ScreenPtr+(unsigned)position;
                *scr++=sc[n];
                *scr++=sc[n+1];
                *scr=sc[n+2];
          }
     }
     fclose(fp);
}