Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  848 1855 (N41E42 L=177)  1070    283        1 ( 827/1797- 885/1922) -32.0 E51-E34 N36-N47
      2  743 1557 (N17E31 L=188)   460    114        0 ( 697/1502- 786/1606)  82.9 E32-E30 N12-N20
      3  679 1346 (N03E28 L=191)   359     88        0 ( 630/1315- 711/1389)  68.2 E30-E26 N00-N05
      4 1644 1320 (N27W31 L=250)   527     97        0 (1610/1262-1673/1370) -39.8 W28-W34 N24-N29
      5  815 1285 (N02E18 L=201)   936    264        2 ( 670/1244- 940/1307)  13.2 E27-E10 N00-N05
      6  359 1246 (S09E48 L=171)   303     71        0 ( 335/1211- 389/1282)  68.2 E49-E45 S11-S06
      7  979 1113 (S04E05 L=214)   891    258        0 ( 940/ 982-1003/1243) -53.1 E09-W00 S10-N03
      8 1898 1066 (N21W59 L=278)   566     94        1 (1879/1016-1910/1109) -51.3 W56-W61 N18-N23
      9  798  999 (S14E12 L=207)   972    246        3 ( 711/ 944- 912/1060)  50.7 E17-E07 S18-S07
     10 1598  978 (N06W35 L=254)   405    105        0 (1552/ 952-1645/1007)   0.0 W31-W38 N05-N06
     11 1890  830 (N08W67 L=286)  1470    184        1 (1862/ 745-1915/ 893) -37.9 W60-W71 N03-N11
     12  593  661 (S39E19 L=200)  1700    398        5 ( 433/ 641- 777/ 691)  17.8 E33-E05 S43-S34
     13 1176  640 (S24W20 L=239)  1109    334        0 (1022/ 612-1349/ 673)  26.6 W10-W30 S29-S19
     14 1703  558 (S13W60 L=279)   424     72        0 (1677/ 540-1729/ 578)   0.0 W56-W63 S13-S11
  

    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