Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  580 1423 (N36E21 L= 21)   486    110        1 ( 522/1405- 624/1441)  -6.3 E26-E17 N33-N36
      2  970 1385 (N24W05 L= 47)  1323    425        2 ( 824/1259-1134/1434) -47.0 E03-W12 N13-N29
      3  800 1195 (N17E10 L= 32)   692    190        1 ( 724/1147- 890/1252) -48.4 E13-E04 N12-N21
      4  364 1171 (N24E41 L=  1)  1146    243        3 ( 281/1092- 465/1242) -36.9 E49-E33 N17-N29
      5 1850 1042 (S15W58 L=100)  2642    256        6 (1816/ 939-1898/1156)  81.3 W53-W64 S20-S07
      6 1678 1115 (S06W43 L= 85)   453    115        0 (1648/1073-1709/1155) -80.5 W40-W45 S09-S03
      7 1761 1027 (S13W48 L= 90)   579    103        3 (1715/1000-1803/1052)  -6.3 W43-W52 S15-S11
      8 1403 1019 (S06W22 L= 64)   218     38        0 (1372/1002-1428/1037)   0.0 W19-W23 S06-S04
      9  172  988 (N17E63 L=339)   436     71        1 ( 156/ 958- 200/1011)  56.3 E65-E59 N15-N18
     10  217  951 (N14E58 L=344)   349     43        1 ( 200/ 925- 231/ 980) -71.6 E59-E56 N12-N15
     11 1263  836 (S13W10 L= 52)   393    121        1 (1229/ 809-1296/ 874)  36.9 W07-W12 S15-S11
     12  590  763 (S04E31 L= 10)   315     83        0 ( 545/ 737- 620/ 788) -36.9 E34-E29 S05-S02
     13  476  634 (S09E44 L=358)   368     59        0 ( 456/ 593- 496/ 667)  76.0 E44-E41 S11-S07
     14  286  539 (S11E67 L=335)   660     88        3 ( 256/ 513- 329/ 567)   4.4 E72-E59 S13-S10
     15  676  395 (S28E40 L=  2)  1717    314        2 ( 632/ 266- 698/ 538)  46.5 E52-E32 S37-S18
  

    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