Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  329 1348 (N28E53 L=150)   579    109        3 ( 281/1331- 385/1368)  -4.4 E59-E46 N26-N28
      2  884 1238 (N19E08 L=196)   486    242        3 ( 825/1186- 993/1295) -31.0 E11-W00 N15-N22
      3  193 1090 (N11E64 L=140)   863    126        1 ( 179/1020- 206/1151) -76.0 E66-E62 N06-N14
      4 1445 1082 (N05W27 L=231)   248    119        0 (1405/1039-1483/1126) -50.2 W24-W29 N02-N08
      5  899  946 (N01E08 L=195)   255     91        2 ( 858/ 928- 941/ 974)  21.8 E10-E05 N00-N02
      6 1390  914 (S04W22 L=226)   730    204        4 (1299/ 887-1481/ 964) -22.6 W16-W28 S06-N00
      7  294  762 (S09E55 L=149)   686    112        1 ( 264/ 709- 326/ 798)  40.6 E57-E50 S12-S06
      8  241  727 (S11E62 L=141)   572     61        3 ( 215/ 700- 261/ 762) -76.0 E66-E59 S13-S09
      9 1739  700 (S22W52 L=255)   661    145        3 (1684/ 651-1790/ 751)  24.0 W46-W57 S24-S18
     10  817  641 (S18E16 L=188)   381    111        1 ( 780/ 615- 878/ 674)  15.9 E18-E11 S19-S15
     11 1313  607 (S24W17 L=220)   372    146        2 (1250/ 561-1351/ 645)  29.7 W12-W19 S26-S21
     12 1453  542 (S30W28 L=231)   272    105        0 (1435/ 496-1480/ 587) -60.3 W26-W31 S33-S26
     13  698  506 (S27E27 L=177)   562     91        1 ( 665/ 466- 739/ 536)  29.7 E30-E23 S29-S24
     14  663  388 (S36E34 L=170)   544    109        1 ( 645/ 326- 692/ 433)  60.9 E38-E30 S41-S32
     15  655  248 (S49E47 L=157)   739     84        4 ( 631/ 222- 692/ 280) -31.0 E52-E41 S52-S45
  

    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