Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  776 1576 (N47E02 L=161)   393    132        0 ( 723/1533- 822/1618)  16.7 E07-W03 N45-N48
      2  870 1336 (N29E02 L=161)   841    256        2 ( 754/1268- 963/1392)   7.6 E10-W05 N26-N30
      3 1035 1186 (N16W04 L=167)   589    332        0 ( 900/1137-1181/1222) -13.2 E04-W13 N12-N17
      4 1759 1094 (S08W49 L=211)  1102    226        2 (1684/1018-1807/1174)  18.4 W40-W55 S10-S05
      5  510 1129 (N24E30 L=133)   665    134        2 ( 449/1089- 572/1168)   5.7 E35-E25 N22-N25
      6 1721  911 (S18W42 L=204)  3009    715        4 (1480/ 652-1873/1115)  21.3 W19-W61 S26-S10
      7  266 1067 (N25E53 L=110)   725    154        3 ( 218/1021- 340/1108)  13.0 E58-E44 N22-N26
      8 1645 1041 (S08W38 L=201)   301     80        0 (1620/1002-1662/1078) -78.7 W36-W39 S10-S05
      9  258  958 (N18E55 L=108)   456    110        1 ( 224/ 913- 290/ 999) -50.2 E58-E51 N15-N21
     10 1434  962 (S06W22 L=185)   220     74        2 (1403/ 932-1453/ 998)  36.9 W19-W23 S07-S04
     11 1371  887 (S09W17 L=179)   258     74        2 (1346/ 856-1411/ 912) -11.3 W14-W19 S10-S07
     12  140  882 (N15E72 L= 91)   619     59        1 ( 116/ 866- 170/ 902) -18.4 E77-E67 N13-N16
     13 1299  805 (S12W11 L=173)   347     60        0 (1267/ 777-1335/ 832) -53.1 W08-W12 S14-S09
     14 1222  774 (S12W05 L=168)   402     99        1 (1194/ 734-1257/ 831)  45.0 W03-W08 S13-S09
     15 1148  795 (S09W02 L=164)   221     41        2 (1127/ 773-1174/ 814)  18.4 W00-W03 S09-S07
     16  388  547 (S08E55 L=108)  3071    630        7 ( 261/ 392- 500/ 812) -83.9 E63-E49 S19-N09
     17 1177  665 (S17W00 L=163)   999    361        0 (1047/ 609-1350/ 703)  -9.0 E08-W11 S20-S14
     18 1333  515 (S31W06 L=169)   550    248        0 (1252/ 451-1433/ 593)  19.7 W00-W14 S33-S28
     19  566  494 (S14E43 L=120)   381     59        0 ( 544/ 467- 585/ 525)  63.4 E44-E40 S16-S12
     20  942  456 (S25E20 L=143)   543    178        1 ( 869/ 416-1003/ 480)   0.0 E25-E15 S26-S22
     21  815  433 (S23E29 L=134)   390     70        0 ( 793/ 395- 838/ 466)  80.5 E30-E27 S26-S20
     22  631  347 (S25E47 L=116)  1191    251        3 ( 568/ 269- 679/ 451)  24.4 E58-E36 S31-S19
     23  909  354 (S31E26 L=136)   402    131        1 ( 840/ 334- 953/ 383)  -7.1 E30-E22 S32-S28
     24  982  328 (S35E23 L=140)   451    114        1 ( 956/ 277-1017/ 368)  33.7 E27-E18 S38-S32
     25 1256  319 (S44E05 L=158)   547    109        0 (1193/ 302-1302/ 341) -40.6 E08-E01 S47-S40
     26  907  153 (S49E45 L=118)   608     43        2 ( 886/ 130- 923/ 176)  20.0 E50-E39 S51-S45
  

    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