Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  878 1824 (N51E35 L=163)   604     97        1 ( 828/1805- 927/1838)  35.5 E39-E30 N48-N53
      2  522 1601 (N27E49 L=150)  2372    290        4 ( 412/1501- 600/1690) -15.3 E70-E37 N21-N32
      3  316 1425 (N13E59 L=140)   768    107        3 ( 295/1372- 335/1478) -45.0 E63-E55 N09-N16
      4  565 1373 (N14E35 L=163)   425    150        1 ( 525/1305- 586/1430) -41.2 E40-E32 N09-N16
      5 1788 1210 (N23W53 L=251)   365     67        0 (1758/1179-1811/1236) -21.8 W49-W55 N21-N24
      6 1673 1073 (N12W42 L=240)   515     57        1 (1650/1034-1702/1104)  59.0 W40-W44 N09-N14
      7 1651 1001 (N08W41 L=239)   897    191        0 (1609/ 931-1703/1090) -38.7 W36-W46 N04-N12
      8 1481 1009 (N06W28 L=227)   431    153        0 (1469/ 932-1498/1083) -77.5 W26-W30 N01-N10
      9  320 1053 (S09E48 L=151)   274     61        0 ( 297/1032- 351/1080) -18.4 E50-E44 S09-S07
     10  403  911 (S16E39 L=159)   390    125        0 ( 367/ 862- 457/ 947)  40.6 E42-E35 S19-S13
     11  714  774 (S20E16 L=183)   728    202        1 ( 615/ 747- 774/ 823)  31.0 E22-E12 S22-S16
     12 1653  668 (S12W49 L=247)  1286    265        0 (1586/ 559-1712/ 781)  82.4 W46-W51 S19-S04
     13  723  352 (S50E12 L=186)   482     69        2 ( 690/ 330- 758/ 382) -31.0 E15-E08 S52-S48
     14  923  259 (S55W09 L=208)   437     54        1 ( 903/ 228- 940/ 286) -71.6 W06-W11 S57-S51
  

    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