Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  639 1801 (N59E31 L=191)   667     80        0 ( 604/1767- 678/1820)  23.2 E36-E25 N55-N61
      2 1640 1613 (N30W57 L=280)  1644    216        0 (1548/1527-1700/1672) -61.4 W51-W61 N23-N34
      3  955 1614 (N37W02 L=224)   588    119        0 ( 920/1581-1007/1638) -38.7 W00-W05 N35-N39
      4 1302 1559 (N29W25 L=248)   547    206        1 (1219/1499-1390/1620) -51.3 W21-W30 N24-N34
      5  349  887 (S02E46 L=176)   937    240        1 ( 263/ 787- 432/ 951) -39.8 E52-E40 S08-N02
      6  264  639 (S16E62 L=160)  1003    102        2 ( 228/ 604- 295/ 689) -90.0 E68-E58 S18-S12
      7 1713  655 (S30W49 L=271)   393     41        2 (1689/ 631-1738/ 676)   0.0 W46-W51 S31-S28
      8  325  600 (S19E57 L=165)   728    102        2 ( 299/ 550- 354/ 653)  81.9 E60-E53 S22-S15
      9  497  539 (S25E43 L=179)   834    247        0 ( 427/ 455- 602/ 588)  15.9 E54-E33 S29-S22
     10  464  309 (S40E66 L=156)   860     84        3 ( 447/ 261- 479/ 355)  22.8 E79-E59 S44-S36
     11 1207  302 (S52W06 L=228)   573     87        1 (1161/ 280-1255/ 320)   6.3 W01-W10 S53-S49
     12  956  187 (S59E24 L=198)  1564    160        2 ( 893/ 156-1021/ 226)   3.4 E33-E15 S62-S55
     13 1275  172 (S68W18 L=240)   528     74        0 (1240/ 159-1317/ 188)   0.0 W11-W24 S69-S65
  

    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