Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1175 1821 (N49E17 L=152)   507     69        1 (1127/1797-1211/1838)  15.9 E21-E13 N47-N51
      2  667 1702 (N25E44 L=126)  1083    208        3 ( 634/1610- 694/1785) -55.3 E51-E40 N18-N31
      3  383 1473 (N05E54 L=116)   353     80        1 ( 351/1453- 419/1492)  36.9 E57-E51 N03-N06
      4  977 1312 (N08E10 L=160)   281     35        0 ( 948/1294-1003/1329)  45.0 E11-E08 N06-N09
      5 1318 1214 (N11W12 L=181)   372    130        0 (1302/1149-1339/1270) -60.3 W09-W14 N07-N14
      6  308 1181 (S13E51 L=119)   330    106        2 ( 256/1165- 355/1198)  18.4 E55-E46 S14-S11
      7 1790  964 (N11W51 L=220)   574    125        1 (1766/ 916-1806/1020)  90.0 W48-W52 N07-N13
      8 1213  951 (S07W12 L=182)   208     56        0 (1190/ 933-1244/ 977) -14.0 W10-W14 S07-S05
      9  174  917 (S31E64 L=105)  1316    172        1 ( 103/ 874- 235/ 954)   9.1 E80-E55 S33-S28
     10 1169  825 (S15W13 L=183)   233     59        2 (1138/ 799-1199/ 853)  63.4 W11-W14 S16-S12
     11  484  767 (S35E30 L=140)   507    142        2 ( 455/ 711- 525/ 832) -45.0 E32-E25 S37-S30
     12  582  759 (S33E22 L=148)   366    141        0 ( 540/ 706- 629/ 813)  60.9 E24-E19 S37-S28
     13  269  787 (S38E52 L=117)   641     98        1 ( 223/ 765- 322/ 808)  12.1 E59-E45 S39-S36
     14  825  362 (S53W08 L=178)   406     83        0 ( 796/ 339- 864/ 390)  -7.1 W04-W12 S54-S51
  

    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