Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1093 1247 (N16W10 L=310)   284    120        1 (1029/1210-1157/1284) -54.5 W07-W12 N12-N19
      2  306 1146 (N30E45 L=256)  1036    270        2 ( 237/1069- 386/1220) -47.5 E50-E38 N23-N36
      3 1071 1066 (N07W04 L=304)   915    283        3 ( 933/1018-1203/1100) -23.2 E03-W11 N02-N10
      4  692 1017 (N14E19 L=281)   659    210        1 ( 594/ 958- 784/1046)   0.0 E26-E12 N12-N15
      5  440  933 (N15E38 L=263)   402    160        1 ( 381/ 909- 504/ 966) -26.6 E41-E32 N12-N17
      6 1381  876 (S12W16 L=316)   197     91        0 (1366/ 827-1400/ 928)  51.3 W14-W18 S14-S09
      7 1674  878 (S21W36 L=336)   321     71        2 (1650/ 844-1691/ 922)  53.1 W33-W37 S22-S18
      8  143  843 (N15E69 L=231)  1601    329        2 (  92/ 798- 227/ 888) -13.2 E76-E59 N11-N17
      9  333  787 (N09E50 L=250)   301     77        1 ( 322/ 742- 346/ 824)  78.7 E51-E48 N05-N10
     10 1205  600 (S23E01 L=299)  1637    340        4 (1156/ 448-1267/ 742)  45.0 E09-W06 S31-S16
     11  523  541 (S09E45 L=256)  1216    210        4 ( 467/ 459- 577/ 616)  78.7 E48-E40 S14-S04
     12  612  457 (S16E42 L=258)   293     19        0 ( 590/ 440- 634/ 475) -33.7 E43-E40 S17-S15
     13  506  347 (S21E57 L=243)  1244    197        6 ( 470/ 295- 540/ 399)  63.4 E61-E53 S25-S17
  

    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