Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1600 1682 (N24W68 L=276)   534     58        0 (1568/1665-1630/1697) -23.2 W64-W71 N22-N25
      2 1091 1560 (N34W22 L=229)  1858    544        6 ( 862/1517-1347/1612) -25.8 W05-W36 N24-N40
      3 1747 1487 (N09W66 L=273)   524     58        0 (1724/1464-1765/1520)  18.4 W61-W69 N07-N10
      4 1326 1379 (N17W28 L=236)   543    264        2 (1189/1358-1431/1412) -18.4 W19-W34 N14-N20
      5 1525 1326 (N08W38 L=246)   466    100        2 (1483/1278-1557/1368) -80.5 W36-W39 N05-N11
      6  949 1274 (N22W03 L=210)   764    242        2 ( 855/1243-1077/1311) -12.1 E03-W11 N20-N23
      7  420 1202 (N31E35 L=172)   253     58        1 ( 399/1172- 437/1225) -76.0 E37-E33 N29-N33
      8  952 1169 (N16E00 L=208)   227    139        0 ( 902/1137-1021/1192)   0.0 E03-W04 N15-N16
      9  371  959 (N18E43 L=164)   587    224        1 ( 290/ 939- 471/ 994) -21.8 E50-E35 N14-N21
     10  243  747 (N08E62 L=146)  1350    149        1 ( 218/ 691- 274/ 809)  76.0 E65-E58 N04-N12
     11  337  710 (N04E53 L=155)   602    101        0 ( 302/ 665- 366/ 758) -71.6 E55-E51 N01-N07
     12 1698  530 (S46W37 L=245)  1992    363        3 (1545/ 428-1836/ 614)   2.9 W19-W59 S49-S43
     13  362  584 (S04E56 L=151)   359     49        1 ( 347/ 556- 385/ 606)  36.9 E58-E53 S05-S02
     14  960  548 (S19E17 L=191)   402    108        1 ( 935/ 501- 985/ 605)  45.0 E19-E14 S22-S15
     15 1232  247 (S51E14 L=193)   663     79        0 (1189/ 228-1274/ 265) -14.0 E18-E10 S52-S48
  

    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