Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  662 1787 (N30E55 L=256)  1409    179        4 ( 615/1704- 717/1855) -51.8 E60-E49 N22-N36
      2 1237 1830 (N54E18 L=292)   477     42        0 (1208/1814-1266/1847)  53.1 E21-E15 N51-N55
      3  887 1808 (N38E40 L=271)   488     73        0 ( 862/1779- 923/1828)   9.5 E42-E36 N34-N39
      4  913 1523 (N19E21 L=289)  2273    575        5 ( 871/1290- 946/1783) -55.5 E37-E13 N04-N36
      5  430 1390 (S01E47 L=263)   301     46        0 ( 403/1372- 452/1413)  45.0 E49-E45 S02-N00
      6  235 1145 (S19E58 L=252)   409     79        0 ( 212/1112- 254/1191)  59.0 E60-E56 S20-S15
      7 1457  595 (S16W40 L=350)   306     39        1 (1433/ 571-1486/ 622)   0.0 W37-W42 S17-S14
      8 1559  529 (S16W51 L=  1)   332     70        1 (1523/ 511-1593/ 545)  36.9 W48-W52 S18-S14
      9 1269  498 (S27W33 L=343)  1059    189        3 (1179/ 478-1371/ 528)  38.7 W27-W38 S30-S22
     10 1513  443 (S22W53 L=  3)  1403    195        2 (1438/ 408-1584/ 484)  53.1 W47-W57 S26-S17
     11  524  366 (S65E22 L=289)   517     47        1 ( 496/ 345- 550/ 386)  -7.1 E26-E17 S67-S62
     12  820  297 (S58W17 L=328)  1032    132        1 ( 761/ 260- 868/ 338)  74.7 W11-W20 S63-S52
     13  684  290 (S65W04 L=315)  1272     31        0 ( 637/ 254- 729/ 323) -17.1 E02-W11 S68-S61
  

    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