Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  625 1664 (N21E44 L=197)  1207    386        2 ( 575/1491- 668/1795) -43.6 E54-E33 N10-N30
      2  445 1605 (N14E55 L=186)  2009    305        7 ( 357/1513- 506/1744) -71.6 E63-E48 N06-N24
      3 1174 1442 (N20E02 L=239)   319    114        1 (1135/1406-1222/1472)  66.8 E03-W00 N16-N23
      4  234 1234 (S12E59 L=182)  7942      0       28 (  88/ 973- 428/1426)  58.7 E79-E42 S28-N00
      5 1866 1310 (N35W56 L=297)   504     71        1 (1834/1292-1900/1333)  10.3 W51-W62 N33-N37
      6 1681 1134 (N17W37 L=278)   378     77        1 (1640/1113-1722/1158)  33.7 W34-W40 N14-N18
      7  676 1104 (S11E22 L=219)   308    101        0 ( 652/1051- 699/1155) -45.0 E24-E19 S13-S08
      8 1141 1074 (S02W05 L=246)   313    142        0 (1077/1029-1193/1118) -14.0 W00-W08 S03-N00
      9  986  989 (S10E01 L=239)   237    121        0 ( 971/ 936-1004/1046) -63.4 E02-W01 S12-S06
     10  886  999 (S12E07 L=233)   186     64        0 ( 847/ 984- 913/1020)  45.0 E09-E05 S13-S10
     11 1522  587 (S17W43 L=284)   382    106        0 (1497/ 535-1558/ 632) -81.9 W42-W45 S20-S13
     12 1368  573 (S22W34 L=275)   308    127        0 (1332/ 525-1409/ 616) -12.5 W29-W38 S23-S21
     13  497  573 (S47E27 L=214)   254     61        1 ( 476/ 542- 523/ 601) -53.1 E29-E24 S49-S45
     14 1643  526 (S16W56 L=297)   940    152        3 (1599/ 493-1685/ 588)  90.0 W52-W61 S18-S12
     15  949  387 (S46W17 L=257)  1984    411        5 ( 789/ 308-1134/ 470)   3.5 W01-W34 S50-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