Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1561 1604 (N29W49 L=313)   421     38        1 (1533/1584-1587/1629) -11.3 W46-W51 N27-N30
      2 1124 1535 (N30W13 L=277)   985    292        1 (1012/1431-1205/1617) -57.3 W07-W16 N21-N36
      3 1596 1557 (N25W50 L=314)   375     55        3 (1568/1537-1625/1579) -26.6 W47-W52 N24-N27
      4  712 1440 (N29E16 L=248)   728    166        2 ( 650/1386- 792/1501) -48.4 E20-E10 N24-N33
      5 1800 1061 (S07W54 L=318)   329     34        0 (1778/1044-1827/1080)  11.3 W51-W57 S07-S05
      6 1918  923 (S16W69 L=333)   522     40        1 (1901/ 898-1933/ 955) -71.6 W66-W72 S17-S14
      7 1820  905 (S16W56 L=320)   448     80        0 (1799/ 873-1855/ 930)  26.6 W53-W60 S18-S14
      8 1710  622 (S33W49 L=312)  1291    234        3 (1616/ 582-1810/ 672)  -2.5 W39-W62 S35-S29
      9 1357  556 (S34W17 L=281)   572    134        0 (1324/ 509-1379/ 620)  74.1 W14-W19 S36-S28
     10 1462  512 (S38W26 L=290)   347    100        0 (1413/ 481-1503/ 544)  23.2 W22-W29 S39-S36
     11 1045  436 (S38E07 L=257)   347     78        1 (1009/ 407-1072/ 477)  31.0 E09-E04 S39-S35
     12 1268  456 (S40W11 L=274)   265     44        0 (1237/ 441-1297/ 472)   0.0 W08-W12 S40-S38
     13  792  419 (S36E26 L=238)   413     59        0 ( 764/ 389- 823/ 450) -68.2 E27-E24 S38-S33
     14  863  230 (S52E31 L=232)   471     62        1 ( 831/ 210- 897/ 245)   6.3 E35-E26 S54-S50
     15  743  163 (S57E56 L=208)   601     49        0 ( 729/ 135- 756/ 189)  17.5 E67-E48 S59-S53
  

    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