Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  580 1700 (N29E47 L= 35)   373     55        0 ( 552/1672- 605/1727) -26.6 E51-E43 N27-N31
      2  425 1617 (N22E56 L= 26)   726    104        3 ( 378/1589- 464/1661)   6.3 E60-E51 N19-N25
      3 1072 1572 (N28E07 L= 75)   825    267        0 ( 983/1482-1176/1633) -25.0 E14-W01 N23-N30
      4  459 1516 (N15E47 L= 35)   691    107        3 ( 414/1495- 515/1545)  -6.3 E51-E42 N13-N17
      5  475 1292 (N02E39 L= 43)   320     77        0 ( 437/1258- 507/1325) -18.4 E42-E36 N00-N03
      6  462 1131 (S08E37 L= 45)   981    321        6 ( 377/1050- 537/1250)  55.3 E42-E32 S13-N00
      7 1797 1175 (N18W51 L=133)   322     87        1 (1773/1138-1810/1215) -76.0 W48-W52 N15-N20
      8  266  886 (S25E53 L= 29)   816    239        1 ( 224/ 777- 309/ 992) -61.7 E57-E49 S31-S18
      9  635  946 (S17E23 L= 60)   307     51        0 ( 611/ 926- 667/ 972) -26.6 E24-E20 S17-S15
     10  516  816 (S26E30 L= 52)   938    350        2 ( 414/ 711- 581/ 954)  63.4 E39-E26 S33-S17
     11  683  692 (S32E17 L= 65)  1644    548        3 ( 584/ 518- 795/ 925)  65.9 E25-E12 S44-S15
     12 1126  735 (S22W11 L= 94)   190    118        1 (1081/ 698-1147/ 770) -26.6 W07-W13 S23-S19
     13  865  632 (S33E03 L= 79)   527    153        0 ( 791/ 614- 938/ 649)  24.0 E08-W01 S34-S30
  

    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