Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  399 1572 (N15E61 L=223)   737    184        1 ( 361/1517- 448/1665) -73.3 E64-E56 N11-N22
      2  653 1605 (N23E41 L=243)   588    161        3 ( 630/1524- 685/1664) -48.4 E44-E36 N17-N26
      3 1039 1628 (N34E16 L=268)   294     85        2 ( 990/1606-1081/1646)   7.1 E20-E12 N33-N35
      4  806 1569 (N24E29 L=255)   535    257        0 ( 719/1478- 866/1637) -23.6 E37-E21 N19-N26
      5 1599 1547 (N46W31 L=315)   623    123        1 (1557/1516-1638/1571)  12.5 W26-W36 N42-N48
      6  823 1479 (N19E24 L=260)   264    128        1 ( 775/1442- 846/1514)  -9.5 E27-E21 N16-N20
      7  911 1415 (N17E16 L=267)   281    104        0 ( 874/1374- 937/1457)  81.9 E17-E15 N13-N20
      8  263 1215 (S09E57 L=227)   868    184        5 ( 228/1128- 285/1283) -48.4 E63-E53 S13-S04
      9  403 1210 (S06E44 L=240)   512    142        2 ( 371/1158- 451/1269) -50.2 E47-E39 S08-S02
     10  338 1193 (S08E49 L=235)   810    142        2 ( 286/1135- 382/1233) -15.3 E55-E44 S11-S06
     11  313 1127 (S13E50 L=234)   432     72        4 ( 287/1088- 341/1163) -68.2 E52-E47 S15-S10
     12  199 1109 (S16E63 L=221)   814    114        1 ( 172/1057- 230/1149)  45.0 E66-E58 S19-S13
     13 1632 1031 (N12W38 L=322)   299     80        0 (1607/ 995-1649/1063) -36.9 W35-W39 N10-N14
     14 1662  490 (S17W63 L=347)  2381    431        5 (1523/ 387-1764/ 612)  63.4 W54-W71 S26-S07
     15 1511  457 (S23W51 L=335)   519     95        1 (1493/ 421-1535/ 493) -68.2 W47-W54 S25-S20
  

    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