Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  961 1771 (N56E08 L=140)   497    101        0 ( 918/1752-1017/1784)   5.2 E12-E01 N53-N57
      2  499 1569 (N37E45 L=103)  2178    321        2 ( 376/1481- 645/1641) -11.9 E66-E28 N31-N41
      3 1664 1562 (N37W58 L=206)   592     60        0 (1635/1528-1692/1588)  15.3 W51-W63 N35-N39
      4  276 1482 (N30E67 L= 81)  1377    139        2 ( 247/1429- 318/1533) -12.8 E81-E58 N26-N33
      5 1745 1418 (N27W59 L=207)  1134    205        2 (1699/1322-1779/1508)  81.3 W55-W62 N20-N33
      6  990 1440 (N29E03 L=145)   948    261        2 ( 876/1397-1107/1472)  -7.6 E10-W05 N26-N31
      7  889 1111 (N09E08 L=140)   279     76        0 ( 861/1074- 911/1144) -53.1 E10-E07 N06-N10
      8  333  952 (S03E47 L=101)   442     91        1 ( 292/ 921- 369/ 991)  29.7 E51-E44 S04-N00
      9 1804  858 (S08W57 L=205)   801    149        1 (1788/ 780-1829/ 934) -59.0 W54-W61 S12-S02
     10  780  681 (S18E16 L=132)   765    318        3 ( 691/ 608- 827/ 814)  60.3 E22-E12 S23-S09
     11  880  766 (S13E09 L=139)   446    172        2 ( 821/ 732- 939/ 804) -23.2 E12-E05 S14-S10
     12 1457  561 (S26W31 L=179)  1230    223        1 (1421/ 501-1532/ 659) -51.3 W27-W38 S30-S19
     13  537  417 (S38E40 L=108)  1144    146        1 ( 476/ 369- 586/ 485)  27.9 E50-E33 S42-S32
     14  842  207 (S58E20 L=128)   516     29        0 ( 815/ 188- 864/ 227)  15.9 E23-E16 S60-S54
  

    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