Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  801 1714 (N57W07 L= 42)   435     59        2 ( 773/1681- 826/1744)  23.2 W03-W10 N54-N59
      2 1197 1358 (N22W19 L= 54)   487    182        0 (1129/1324-1264/1382) -14.0 W14-W22 N18-N23
      3 1009 1102 (N12W01 L= 36)  1294    437        1 ( 919/ 930-1065/1234)  81.0 E03-W04 N02-N21
      4 1797 1167 (S06W55 L= 91)   421     74        3 (1775/1132-1817/1202)  78.7 W53-W57 S08-S03
      5  252  981 (N20E56 L=340)   352     82        0 ( 236/ 949- 266/1020)  53.1 E57-E53 N18-N22
      6 1780  870 (S23W47 L= 83)  1835    345        3 (1728/ 751-1836/1010)  52.4 W41-W55 S31-S15
      7 1430  966 (S06W22 L= 57)   220     63        1 (1414/ 936-1453/1000) -90.0 W20-W23 S08-S04
      8 1874  894 (S25W59 L= 95)  1373    204        0 (1816/ 813-1931/ 967)  16.4 W51-W70 S28-S22
      9  952  803 (S04E09 L= 26)   228     74        0 ( 930/ 769- 966/ 836)  76.0 E10-E08 S05-S01
     10 1150  624 (S19E02 L= 33)   400    143        1 (1080/ 596-1211/ 641) -33.7 E06-W00 S22-S17
     11 1114  461 (S29E09 L= 26)   612    182        1 (1047/ 429-1183/ 527)  10.3 E14-E03 S30-S26
     12 1388  465 (S37W09 L= 45)   542     93        1 (1351/ 432-1419/ 508)  45.0 W06-W12 S39-S34
     13  433  387 (S20E63 L=332)   636     45        2 ( 409/ 363- 454/ 412)  29.7 E67-E59 S21-S17
     14 1159  303 (S43E13 L= 22)   330     59        0 (1138/ 276-1181/ 334) -90.0 E14-E11 S45-S39
  

    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