Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  544 1605 (N25E43 L=157)   307     84        0 ( 511/1571- 565/1626) -29.7 E46-E39 N22-N26
      2 1061 1529 (N26E05 L=195)   865    153        3 (1025/1458-1087/1598) -66.0 E07-E02 N21-N30
      3  713 1549 (N23E28 L=172)   317    111        1 ( 685/1503- 749/1589) -56.3 E30-E24 N19-N25
      4  311 1520 (N18E61 L=138)  2703    154        6 ( 246/1465- 370/1587)  31.0 E68-E55 N14-N22
      5  327 1429 (N12E55 L=145)   770     99        1 ( 293/1391- 357/1454)  36.9 E58-E51 N09-N13
      6 1739 1300 (N22W46 L=246)  2257    373        3 (1574/1177-1837/1406) -21.4 W32-W56 N16-N26
      7 1137 1358 (N16W03 L=202)   455     96        2 (1083/1322-1185/1390)   0.0 W00-W05 N13-N17
      8  506 1239 (N01E35 L=165)   514    135        0 ( 464/1212- 553/1278)  18.4 E38-E32 N00-N03
      9  904 1202 (N03E09 L=190)   345    102        1 ( 868/1155- 939/1247) -38.7 E11-E06 N00-N05
     10 1345  917 (S08W21 L=220)   309     69        0 (1324/ 889-1375/ 951) -33.7 W19-W22 S09-S05
     11  655  806 (S23E21 L=179)   559    136        1 ( 592/ 772- 721/ 835)  -6.3 E25-E16 S24-S21
     12 1282  754 (S18W20 L=220)   738    301        1 (1144/ 706-1407/ 796)  26.6 W11-W27 S22-S14
     13 1687  424 (S30W69 L=269)  3138    266        3 (1584/ 359-1805/ 518)  41.2 W61-W78 S36-S21
  

    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