Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  994 1401 (N27W09 L=120)   406    159        0 ( 916/1374-1073/1442)  -4.8 W03-W15 N25-N28
      2  734 1409 (N35E07 L=103)   582    150        0 ( 664/1386- 804/1426) -21.8 E12-E02 N31-N36
      3 1460 1378 (N12W36 L=146)   951    309        0 (1318/1333-1597/1404) -34.5 W27-W43 N06-N17
      4 1815 1331 (S01W63 L=173)  1180    216        3 (1753/1295-1866/1363) -22.6 W56-W69 S04-N01
      5 1223 1277 (N14W18 L=129)   573    111        1 (1179/1248-1282/1308)  -9.5 W15-W21 N12-N16
      6 1760 1101 (S11W48 L=159)  2149    568        8 (1716/ 903-1829/1279)  72.3 W43-W60 S24-S02
      7  176  979 (N22E60 L= 50)   861    193        1 ( 127/ 923- 223/1032) -45.0 E64-E55 N18-N25
      8 1499  866 (S16W23 L=134)   619    184        3 (1415/ 813-1566/ 912) -55.0 W18-W26 S21-S11
      9  254  894 (N16E54 L= 56)   329    122        2 ( 224/ 882- 299/ 910)  -7.1 E57-E49 N14-N17
     10  717  699 (S05E26 L= 85)   234     57        0 ( 686/ 683- 752/ 714) -33.7 E28-E24 S06-S03
     11 1157  485 (S30E08 L=103)   618    144        1 (1140/ 422-1174/ 557)  68.2 E10-E04 S34-S24
     12  629  363 (S23E46 L= 65)   894    235        1 ( 601/ 287- 663/ 438)  57.5 E49-E41 S29-S18
     13 1304  314 (S48E05 L=106)  3151    373        5 (1149/ 237-1411/ 407)   9.1 E19-W06 S53-S42
  

    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