Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  751 1754 (N30E42 L=141)  2122    408        1 ( 664/1659- 847/1819)  85.9 E48-E31 N21-N36
      2 1164 1716 (N39E12 L=171)   672    126        3 (1115/1660-1194/1768) -31.0 E18-E08 N35-N42
      3  354 1509 (N06E59 L=124)   764    112        0 ( 306/1476- 402/1545)  45.0 E63-E55 N03-N09
      4 1714 1414 (N37W38 L=221)   965    253        1 (1656/1297-1753/1520) -55.3 W31-W42 N29-N42
      5  410 1282 (S06E45 L=138)   268     37        1 ( 388/1263- 427/1304)  56.3 E46-E42 S07-S04
      6  244 1110 (S19E56 L=127)   699     69        2 ( 222/1057- 272/1157)  74.1 E58-E53 S22-S15
      7 1835 1075 (N19W53 L=236)   613    108        1 (1816/1024-1860/1123)  90.0 W51-W55 N16-N22
      8  441 1084 (S17E38 L=145)   270     90        1 ( 406/1064- 491/1106)   8.1 E40-E33 S17-S15
      9  350 1018 (S23E44 L=139)   308     65        1 ( 334/ 984- 374/1045) -56.3 E45-E42 S24-S20
     10  457  965 (S24E34 L=149)   578    118        2 ( 428/ 929- 504/1014) -15.9 E37-E30 S25-S20
     11  673  928 (S21E18 L=165)   552    171        2 ( 607/ 860- 720/ 988) -29.1 E23-E14 S24-S18
     12 1686  920 (N05W43 L=226)   425     52        1 (1662/ 892-1711/ 951) -33.7 W40-W45 N03-N06
     13  197  871 (S34E61 L=122)   717    112        0 ( 178/ 815- 218/ 927)  54.5 E64-E57 S37-S30
     14  335  808 (S36E44 L=139)   723    229        1 ( 300/ 736- 409/ 896) -32.5 E47-E36 S39-S30
     15 1438  823 (S07W29 L=212)   463    105        1 (1411/ 778-1468/ 871) -81.9 W27-W30 S10-S03
     16 1601  645 (S12W47 L=230)  1227    245        1 (1499/ 584-1701/ 699)  47.7 W42-W53 S17-S05
     17 1313  510 (S28W34 L=217)   587    143        1 (1242/ 488-1370/ 544)  35.5 W29-W37 S30-S24
     18 1504  385 (S28W56 L=240)  1726    258        3 (1380/ 357-1622/ 416)  17.7 W46-W71 S32-S24
     19  612  337 (S64E13 L=170)  1634    182        1 ( 540/ 302- 705/ 384)   7.4 E23-W00 S67-S60
     20 1186  335 (S42W38 L=221)  1542    211        4 (1068/ 305-1274/ 370)  20.6 W28-W44 S45-S38
  

    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