Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1190 1788 (N48E00 L= 11)   455     55        1 (1165/1756-1216/1813) -45.0 E02-W02 N45-N50
      2 1488 1595 (N38W26 L= 36)   494     81        0 (1461/1561-1522/1621)  45.0 W23-W28 N34-N39
      3  530 1539 (N20E41 L=330)   377    130        1 ( 474/1513- 572/1557)   7.1 E45-E37 N18-N21
      4  372 1413 (N11E49 L=321)   508    134        3 ( 328/1389- 415/1452)  33.7 E52-E45 N09-N13
      5  422 1332 (N06E43 L=327)   285     78        2 ( 397/1310- 446/1352)  26.6 E45-E41 N04-N07
      6  416 1266 (N02E42 L=328)   298     83        1 ( 385/1251- 453/1283)  31.0 E44-E39 N00-N03
      7 1875 1201 (N19W59 L= 69)  1281    275        4 (1833/1131-1923/1261) -33.7 W54-W65 N15-N21
      8  331 1147 (S06E47 L=323)   446    106        0 ( 304/1124- 361/1174) -21.8 E49-E44 S06-S04
      9  729 1098 (S05E19 L=352)   346    113        2 ( 677/1046- 769/1145) -35.5 E22-E15 S07-S02
     10 1326  902 (S09W20 L= 30)   573    165        3 (1274/ 831-1367/ 998)  79.7 W17-W21 S13-S02
     11  692  944 (S15E19 L=351)   524    155        1 ( 642/ 896- 783/ 987)  33.7 E22-E13 S17-S11
     12  138  895 (S21E65 L=305)  1314    196        2 ( 107/ 852- 184/ 952)  33.7 E69-E59 S23-S17
     13 1556  837 (S09W36 L= 46)   231     50        0 (1531/ 815-1580/ 857)  56.3 W34-W37 S10-S07
     14 1646  811 (S09W43 L= 54)   240     32        0 (1621/ 797-1667/ 825)  18.4 W41-W45 S09-S07
     15  470  704 (S32E35 L=336)   441     77        1 ( 444/ 665- 498/ 746) -78.7 E36-E32 S34-S28
  

    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