Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  355 1661 (N19E70 L=357)  1875    221        3 ( 291/1587- 427/1760) -77.9 E75-E65 N13-N27
      2  617 1665 (N23E43 L= 23)   807    186        2 ( 579/1604- 655/1731) -45.0 E50-E40 N18-N27
      3  495 1621 (N18E50 L= 16)   560    111        1 ( 473/1582- 524/1666) -40.6 E53-E46 N15-N21
      4  637 1585 (N18E38 L= 29)   374     81        3 ( 602/1552- 664/1620)  63.4 E39-E35 N15-N20
      5  785 1506 (N16E25 L= 41)   330    166        2 ( 746/1425- 823/1573) -84.3 E25-E24 N10-N20
      6  361 1369 (N01E50 L= 16)   620    132        1 ( 293/1354- 429/1385)   4.8 E56-E44 S01-N01
      7 1757 1309 (N28W43 L=110)   485     95        1 (1723/1266-1795/1340)  45.0 W39-W47 N24-N31
      8 1614 1234 (N19W31 L= 98)   230     73        0 (1589/1204-1649/1254)  53.1 W29-W33 N16-N20
      9 1289 1061 (N01W14 L= 80)   325    142        0 (1233/1013-1343/1108)  -7.1 W10-W18 N00-N02
     10  347 1052 (S18E44 L= 22)   444    100        2 ( 306/1012- 373/1082) -63.4 E48-E42 S20-S16
     11 1661  989 (N06W39 L=106)   492    117        2 (1598/ 950-1706/1009)  14.0 W34-W42 N04-N07
     12 1211  942 (S08W12 L= 79)   216    118        0 (1202/ 878-1225/ 994) -74.1 W11-W14 S11-S04
     13  872  962 (S14E07 L= 59)   423    155        1 ( 800/ 937- 952/ 989)   6.3 E11-E02 S14-S12
     14  310  864 (S30E47 L= 20)  2022    532        2 ( 105/ 757- 507/ 988)  17.8 E86-E30 S37-S19
     15 1573  780 (S08W39 L=105)   461    173        0 (1511/ 736-1640/ 812)  49.4 W35-W43 S11-S04
     16 1304  687 (S19W25 L= 91)   295    144        0 (1246/ 660-1377/ 722)  49.4 W21-W28 S22-S15
     17 1680  602 (S14W54 L=121)   781    175        1 (1607/ 571-1753/ 629)  32.5 W49-W61 S17-S10
     18  344  594 (S47E47 L= 19)   451     70        2 ( 308/ 571- 379/ 611)  15.3 E53-E42 S49-S45
     19  795  546 (S40E04 L= 63)   388    126        0 ( 735/ 518- 856/ 584)   0.0 E08-W01 S41-S38
     20 1686  535 (S17W59 L=126)   631     90        3 (1657/ 492-1718/ 573) -20.6 W54-W62 S19-S15
     21 1492  456 (S27W48 L=115)  1220    318        2 (1349/ 432-1622/ 490)  27.8 W39-W59 S32-S22
  

    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