Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  875 1830 (N52E36 L=164)   787    136        2 ( 818/1809- 949/1845)  31.0 E41-E29 N48-N54
      2  483 1606 (N27E53 L=148)  3800    325        7 ( 380/1488- 596/1695) -13.4 E78-E36 N21-N31
      3  302 1414 (N12E60 L=141)   480     72        2 ( 289/1377- 319/1456) -59.0 E62-E57 N09-N14
      4  533 1397 (N14E38 L=162)   268    103        0 ( 506/1347- 552/1434) -45.0 E41-E36 N11-N16
      5 1446 1037 (N07W26 L=226)   469    151        0 (1434/ 965-1461/1116) -71.6 W23-W27 N02-N11
      6 1646 1080 (N12W40 L=240)   559     75        1 (1621/1043-1677/1113)  51.3 W37-W42 N09-N14
      7 1643  975 (N06W41 L=241)   574    125        0 (1608/ 935-1688/1022) -29.7 W37-W45 N04-N08
      8  377  913 (S17E42 L=159)   374    172        0 ( 345/ 842- 438/ 955)  48.8 E44-E36 S21-S13
      9  659  781 (S20E19 L=181)   916    257        3 ( 527/ 754- 739/ 830)  26.6 E28-E14 S23-S16
     10 1633  685 (S11W47 L=247)  1236    285        0 (1558/ 568-1693/ 800)  79.4 W44-W49 S19-S03
     11  697  358 (S51E15 L=186)   563     62        1 ( 653/ 338- 734/ 385)   0.0 E19-E11 S52-S48
     12  901  259 (S55W07 L=208)   577     72        0 ( 877/ 225- 923/ 291) -54.5 W04-W11 S58-S51
     13 1151  181 (S57W40 L=240)   663     81        1 (1133/ 148-1175/ 218) -31.6 W34-W47 S60-S52
  

    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