Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1358 1762 (N55W41 L=163)   599     83        2 (1322/1730-1391/1793)  12.1 W35-W50 N51-N57
      2 1319 1565 (N38W25 L=147)   332     45        1 (1290/1543-1349/1582) -26.6 W22-W27 N36-N39
      3  572 1433 (N30E33 L= 89)  1885    452        2 ( 423/1298- 718/1561) -27.3 E53-E20 N21-N39
      4  243 1295 (N20E62 L= 60)   691     89        3 ( 213/1258- 280/1335) -38.7 E67-E57 N18-N22
      5 1082 1262 (N19W04 L=126)   404    213        0 (1040/1180-1156/1313)  48.8 W01-W09 N13-N21
      6  224 1154 (N12E61 L= 61)   459     93        2 ( 195/1120- 253/1180)  38.7 E64-E57 N09-N13
      7  760  970 (N01E17 L=105)  1313    413        2 ( 669/ 823- 894/1108)  46.8 E22-E07 S08-N09
      8 1491  918 (S04W30 L=152)   245     81        1 (1473/ 887-1518/ 959) -53.1 W28-W31 S05-S01
      9  640  641 (S20E27 L= 95)  1257    306        1 ( 554/ 504- 711/ 744)  46.8 E36-E20 S29-S13
     10 1429  518 (S30W29 L=151)  3316    692        7 (1200/ 367-1618/ 713)  40.6 W12-W41 S41-S17
     11  960  670 (S18E05 L=117)   212     66        2 ( 934/ 650- 985/ 692)  18.4 E06-E03 S19-S16
     12  398  630 (S21E47 L= 75)   386     84        0 ( 378/ 595- 422/ 664)  39.8 E50-E43 S23-S18
     13 1000  479 (S32E03 L=119)  1494    522        1 ( 845/ 367-1224/ 636)  34.2 E16-W12 S40-S21
  

    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