Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1302 1703 (N35W44 L=148)  1244    252        1 (1209/1669-1428/1723) -32.7 W36-W52 N29-N38
      2  628 1688 (N60E08 L= 95)   369     75        0 ( 602/1657- 664/1708)   6.3 E12-E03 N57-N61
      3  399 1414 (N45E36 L= 67)  1716    221        3 ( 305/1350- 488/1467) -27.6 E50-E26 N38-N51
      4 1857 1252 (S07W64 L=167)   570     55        1 (1842/1217-1876/1279)  76.0 W61-W67 S09-S05
      5 1567 1167 (S02W35 L=139)   526    120        0 (1546/1106-1588/1226)  71.6 W34-W37 S05-N01
      6 1834 1049 (S17W54 L=158)  1179    274        0 (1747/ 945-1898/1133)  13.4 W43-W64 S19-S14
      7  161 1069 (N28E65 L= 38)  1716    164        2 (  91/1007- 227/1109) -18.4 E82-E55 N23-N31
      8  147  842 (N15E71 L= 32)   744     67        1 ( 111/ 814- 179/ 867) -14.0 E78-E66 N13-N16
      9 1614  690 (S31W28 L=131)  1381    310        0 (1571/ 562-1645/ 820)  73.6 W23-W30 S39-S21
     10  257  735 (N07E60 L= 43)   596     78        0 ( 230/ 710- 287/ 759)   0.0 E63-E55 N05-N08
     11  162  721 (N08E75 L= 28)   935     72        4 ( 131/ 690- 188/ 750) -16.7 E81-E70 N05-N09
     12  766  435 (S21E33 L= 70)  1038    191        2 ( 699/ 371- 825/ 507)  19.7 E41-E27 S24-S17
     13 1373  419 (S41W04 L=107)   392     79        0 (1331/ 400-1417/ 439)  -7.1 W00-W08 S42-S40
  

    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