Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  363 1593 (N31E68 L=209)  2217    188        2 ( 322/1508- 399/1665) -38.2 E88-E61 N24-N35
      2  557 1462 (N24E38 L=238)   748    168        2 ( 519/1399- 595/1524)  77.5 E40-E35 N19-N28
      3  884 1237 (N13E11 L=266)   267    141        0 ( 825/1222- 946/1253)   7.1 E14-E06 N11-N14
      4 1540  978 (N03W34 L=310)   696    173        0 (1497/ 910-1587/1047)  58.0 W31-W36 S01-N07
      5 1023  986 (S01W00 L=277)   499    117        1 ( 968/ 963-1070/1030)  11.3 E03-W03 S02-N01
      6  168  849 (S18E68 L=208)  2416    183        5 ( 148/ 753- 197/ 933)  67.4 E75-E63 S24-S12
      7  899  828 (S12E06 L=271)   386     62        1 ( 856/ 804- 935/ 848) -11.3 E08-E03 S12-S10
      8 1714  686 (S14W54 L=331)  2196    271        5 (1665/ 599-1766/ 800) -85.6 W50-W61 S19-S06
      9  800  761 (S17E12 L=265)   259     61        1 ( 763/ 737- 825/ 786)   0.0 E14-E10 S18-S15
     10 1081  720 (S17W06 L=283)   586    200        0 (1001/ 694-1150/ 772) -15.3 W00-W11 S18-S14
     11  312  708 (S26E52 L=225)   705    115        0 ( 262/ 690- 361/ 740)  17.1 E58-E45 S27-S22
     12 1480  673 (S16W34 L=311)   798    231        0 (1418/ 630-1541/ 739)  53.1 W29-W37 S19-S11
     13  902  513 (S33E03 L=273)   611    153        0 ( 836/ 492- 966/ 548)  -6.3 E08-W01 S34-S30
  

    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