Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  737 1701 (N50E28 L=329)   345     53        1 ( 715/1680- 766/1723) -15.9 E31-E24 N48-N51
      2  970 1595 (N41E04 L=353)   264     23        0 ( 944/1574- 992/1611) -26.6 E06-E02 N39-N42
      3 1528 1389 (N26W37 L= 34)   469     82        2 (1505/1355-1552/1434) -90.0 W34-W38 N23-N28
      4  632 1266 (N18E26 L=331)   799    276        0 ( 571/1163- 706/1373) -47.3 E32-E20 N12-N25
      5 1263 1160 (N12W15 L= 12)   873    268        0 (1184/1088-1377/1244) -36.9 W10-W22 N07-N17
      6  367 1161 (N11E46 L=311)   406     80        1 ( 346/1113- 383/1196) -59.0 E48-E43 N08-N13
      7 1032 1112 (N09W00 L=358)   246    139        0 (1009/1047-1048/1172) -90.0 W00-W01 N05-N12
      8 1727 1047 (N03W49 L= 46)   374     72        2 (1708/1008-1743/1081)  76.0 W47-W50 N01-N05
      9 1581  896 (S05W37 L= 34)   300     40        1 (1561/ 871-1598/ 925) -56.3 W35-W38 S06-S03
     10 1202  844 (S08W11 L=  8)   306    173        1 (1133/ 810-1255/ 881)  26.6 W06-W14 S09-S05
     11 1113  777 (S12W05 L=  3)   308     66        2 (1071/ 754-1139/ 799) -36.9 W02-W07 S13-S10
     12 1011  737 (S14E01 L=356)   208    108        0 ( 985/ 688-1028/ 780)  80.5 E02-W00 S17-S11
     13 1655  605 (S25W48 L= 45)   397    102        0 (1610/ 576-1704/ 629)  12.5 W43-W52 S26-S23
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y