Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1137 1409 (N22W15 L= 59)   207     70        1 (1123/1373-1156/1446)  78.7 W14-W16 N19-N24
      2  568 1421 (N36E22 L= 21)   402     92        0 ( 517/1402- 617/1442)   0.0 E26-E18 N34-N36
      3  946 1380 (N25W03 L= 46)  1292    408        5 ( 806/1253-1113/1428) -47.0 E05-W10 N14-N29
      4 1238 1323 (N15W19 L= 62)   237     91        2 (1212/1283-1263/1353)  76.0 W17-W20 N12-N16
      5  322 1188 (N26E45 L=358)  1582    333        3 ( 205/1086- 452/1283) -34.2 E59-E34 N17-N34
      6  755 1202 (N18E12 L= 31)   614    242        1 ( 659/1151- 844/1275) -47.7 E17-E07 N13-N24
      7 1833 1008 (S16W55 L= 99)  2451    309       10 (1776/ 895-1875/1136)  63.4 W48-W61 S23-S08
      8 1044 1110 (N07W03 L= 46)   212    108        1 ( 999/1066-1069/1129) -63.4 W00-W04 N04-N08
      9 1756 1017 (S14W48 L= 91)   612    146        2 (1694/ 979-1805/1051) -21.8 W42-W52 S16-S11
     10 1386 1013 (S06W21 L= 64)   206     64        0 (1353/ 996-1416/1032)   0.0 W18-W22 S06-S04
     11  164  987 (N17E64 L=339)   480     66        1 ( 147/ 950- 188/1020)  45.0 E66-E60 N14-N18
     12  205  949 (N14E59 L=344)   456     59        2 ( 186/ 917- 222/ 985)  63.4 E61-E57 N12-N16
     13 1265  863 (S12W11 L= 54)   577    206        4 (1210/ 801-1317/ 947)  41.2 W06-W14 S15-S07
     14 1448  815 (S19W21 L= 64)   235    105        0 (1428/ 774-1475/ 875)  63.4 W19-W23 S21-S15
     15 1477  719 (S25W22 L= 65)   817    340        3 (1349/ 641-1597/ 806) -45.0 W14-W30 S33-S17
     16  571  749 (S04E33 L= 10)   391    116        2 ( 535/ 717- 594/ 781)  36.9 E35-E31 S06-S02
     17  462  631 (S09E45 L=358)   413     80        1 ( 444/ 593- 483/ 670)  78.7 E45-E42 S11-S06
     18  270  550 (S10E68 L=335)   993    157        6 ( 223/ 511- 314/ 586) -39.8 E73-E62 S13-S07
     19  660  409 (S26E40 L=  3)  1836    341        4 ( 620/ 262- 685/ 572)  49.4 E52-E33 S36-S15
  

    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