Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1158 1587 (N33W26 L=147)   663    136        1 (1096/1543-1214/1612) -60.3 W22-W28 N28-N36
      2  696 1576 (N47E06 L=115)   269     52        0 ( 668/1560- 735/1589)  -8.1 E09-E02 N45-N47
      3 1374 1514 (N22W36 L=157)   342    109        1 (1336/1476-1424/1549)   5.7 W31-W41 N21-N23
      4  641 1205 (N24E19 L=103)   243     80        0 ( 623/1165- 661/1241) -78.7 E19-E17 N21-N26
      5  224 1131 (N29E56 L= 65)  1066     96        3 ( 184/1083- 272/1177)  45.0 E61-E49 N26-N31
      6  320 1107 (N26E45 L= 76)   340     84        2 ( 288/1077- 347/1137)  26.6 E48-E42 N24-N27
      7  867 1058 (N10E08 L=113)   204     51        0 ( 856/1021- 881/1091)  45.0 E09-E06 N08-N12
      8  167 1035 (N24E64 L= 57)   579     74        0 ( 142/1009- 210/1055)   5.7 E67-E57 N23-N25
      9 1855  968 (S22W56 L=177)   857    100        1 (1835/ 920-1878/1009) -66.8 W53-W59 S25-S18
     10 1859  807 (S32W56 L=177)   634    123        0 (1813/ 778-1905/ 855)   4.4 W50-W63 S33-S30
     11  779  673 (S09E23 L= 98)   340     72        1 ( 759/ 630- 804/ 699)  31.0 E25-E20 S11-S07
     12 1623  586 (S38W29 L=150)  1478    303        2 (1486/ 520-1728/ 671)   2.4 W16-W40 S40-S35
     13  842  402 (S27E30 L= 91)   638    113        1 ( 788/ 381- 900/ 427) -39.8 E32-E26 S29-S24
     14  627  345 (S26E48 L= 73)   609    124        0 ( 590/ 307- 691/ 376)   9.5 E53-E41 S27-S24
     15 1026  148 (S54E39 L= 82)   875     65        3 ( 992/ 118-1065/ 175)   0.0 E45-E32 S57-S51
  

    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