Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1335 1802 (N46W57 L=197)   510     53        2 (1314/1771-1353/1831)  39.8 W52-W61 N43-N48
      2 1480 1631 (N31W51 L=191)   407     30        0 (1461/1601-1498/1655)  45.0 W48-W54 N29-N32
      3 1582 1615 (N27W59 L=199)   712    103        1 (1534/1586-1626/1641) -45.0 W55-W62 N24-N29
      4  930 1487 (N37W05 L=145)   372     84        2 ( 893/1458- 972/1510)  -9.5 W01-W08 N35-N38
      5  683 1271 (N28E17 L=123)  1919    560        2 ( 615/1061- 749/1497)  77.9 E22-E10 N14-N42
      6  323 1258 (N34E48 L= 92)   363     60        1 ( 300/1235- 356/1276)  11.3 E50-E44 N32-N34
      7 1688 1170 (S00W45 L=185)   385     98        1 (1673/1118-1702/1215)  45.0 W43-W47 S02-N02
      8  204 1103 (N25E61 L= 79)  1016    228        1 ( 175/1013- 234/1204) -56.3 E65-E56 N19-N31
      9 1876 1016 (S15W61 L=201)  1194    194        2 (1820/ 923-1911/1092)  33.7 W52-W67 S18-S10
     10 1906  863 (S25W65 L=205)   698     72        0 (1882/ 832-1927/ 898)  36.9 W61-W70 S26-S22
     11  690  802 (N01E24 L=116)   939    312        2 ( 577/ 762- 795/ 854) -17.1 E31-E17 S02-N04
     12 1518  694 (S24W24 L=164)  1341    298        2 (1437/ 565-1591/ 805)  40.6 W16-W30 S30-S18
     13 1015  712 (S11E07 L=133)   266     95        0 ( 997/ 665-1027/ 766)  63.4 E08-E05 S13-S07
     14  393  636 (S05E50 L= 90)   431    115        0 ( 370/ 583- 421/ 687) -90.0 E51-E48 S08-S01
     15 1029  616 (S17E08 L=132)   648    109        5 ( 987/ 583-1096/ 649) -18.4 E10-E04 S18-S14
     16  868  552 (S18E20 L=120)   323    112        0 ( 818/ 516- 907/ 572) -45.0 E22-E17 S20-S16
     17  755  487 (S20E29 L=111)   889    201        2 ( 690/ 446- 813/ 544) -60.3 E32-E24 S22-S15
     18  901  460 (S25E21 L=119)   289    113        0 ( 857/ 427- 935/ 507)  23.2 E24-E17 S26-S21
     19  857  296 (S36E31 L=109)  5158    735       13 ( 625/ 165-1110/ 495)  13.7 E80-E06 S44-S26
     20 1537  330 (S55W27 L=168)  1665    161        2 (1459/ 297-1611/ 367)  -5.7 W17-W38 S58-S51
  

    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