Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1022 1718 (N35E22 L=344)  1463    255        1 ( 951/1614-1093/1805) -26.6 E32-E12 N29-N40
      2  637 1646 (N20E43 L=323)  1070    227        1 ( 561/1584- 737/1676)  41.6 E46-E36 N14-N23
      3  463 1537 (N09E51 L=316)   808    158        1 ( 438/1468- 491/1607) -52.1 E54-E46 N05-N14
      4 1415 1485 (N31W11 L= 18)  1264    246        2 (1328/1399-1490/1540) -15.9 W04-W18 N26-N33
      5  330 1467 (N03E59 L=307)   540    125        1 ( 314/1407- 346/1522) -40.6 E63-E55 N00-N06
      6 1059 1358 (N12E07 L=360)   584    165        0 (1019/1292-1123/1412)  71.6 E07-E04 N07-N16
      7 1277 1254 (N12W08 L= 14)   787    256        3 (1202/1155-1353/1357) -28.3 W01-W14 N08-N16
      8  216 1240 (S12E63 L=304)   521     84        0 ( 177/1223- 262/1258)  16.7 E67-E57 S13-S10
      9  277 1038 (S23E52 L=315)   581    196        0 ( 210/ 983- 349/1096)  34.7 E58-E45 S27-S18
     10  344  839 (S34E43 L=323)   779    180        0 ( 275/ 787- 407/ 905)  35.5 E51-E37 S38-S28
     11 1521  670 (S12W40 L= 47)   666    194        0 (1447/ 609-1603/ 712)  59.0 W37-W44 S17-S07
     12 1062  639 (S28W13 L= 20)   934    199        2 ( 978/ 594-1139/ 707)  61.4 W09-W16 S32-S21
     13 1681  592 (S11W57 L= 63)   468     73        2 (1659/ 559-1716/ 617)  68.2 W54-W59 S13-S08
     14  345  568 (S53E48 L=319)   344     23        0 ( 324/ 552- 364/ 589)  20.6 E51-E43 S54-S50
     15 1717  541 (S12W64 L= 70)   415     67        1 (1685/ 519-1742/ 566)  45.0 W61-W65 S14-S10
     16 1615  468 (S20W59 L= 66)  2012    203        4 (1556/ 429-1707/ 522)  20.6 W52-W69 S22-S15
     17 1357  449 (S29W41 L= 47)   720    132        0 (1286/ 431-1426/ 468)  29.1 W36-W45 S32-S26
     18 1612  399 (S23W66 L= 72)   851     80        2 (1569/ 361-1646/ 421)   0.0 W59-W74 S24-S21
     19 1159  353 (S42W35 L= 41)   330     50        1 (1134/ 322-1175/ 387) -38.7 W32-W37 S43-S39
  

    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