Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1333 1588 (N30W38 L=248)   264     58        0 (1306/1564-1365/1607) -63.4 W36-W39 N27-N31
      2 1448 1471 (N20W39 L=249)   570    105        1 (1391/1450-1502/1491) -14.0 W35-W43 N18-N21
      3 1420 1330 (N13W32 L=241)   308     67        1 (1392/1306-1451/1356)  11.3 W29-W34 N11-N15
      4  235 1107 (N29E56 L=154)   981    189        3 ( 148/1057- 305/1168) -20.9 E69-E47 N24-N33
      5  608 1020 (N16E25 L=185)   229    103        0 ( 565/ 981- 642/1046) -51.3 E27-E23 N13-N18
      6  873  999 (N09E09 L=201)   245     70        0 ( 842/ 971- 898/1024) -63.4 E10-E07 N07-N11
      7 1562  694 (S27W25 L=235)   397    100        0 (1532/ 650-1587/ 738) -74.1 W23-W26 S30-S23
      8 1845  692 (S38W55 L=265)  1132    125        1 (1799/ 660-1905/ 727)  -2.9 W48-W68 S39-S35
      9 1192  601 (S21E01 L=209)   390    114        1 (1144/ 562-1222/ 652)  31.0 E04-W01 S23-S18
     10 1050  621 (S16E09 L=201)   264     69        1 (1028/ 584-1077/ 646)  45.0 E11-E07 S18-S14
     11  251  576 (S03E69 L=141)   783     70        2 ( 218/ 551- 280/ 604) -23.2 E73-E65 S04-S01
     12 1011  533 (S21E14 L=196)   482    106        1 ( 964/ 511-1073/ 562) -33.7 E16-E10 S23-S18
     13  637  348 (S24E46 L=164)  2007    371        5 ( 611/ 199- 676/ 519)  38.4 E63-E34 S36-S13
     14 1513  404 (S47W17 L=227)  1258    212        1 (1435/ 366-1591/ 477)  10.6 W09-W25 S49-S43
  

    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