Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1225 1848 (N51W56 L=242)   510     68        0 (1198/1823-1253/1871)  76.0 W52-W60 N48-N52
      2 1490 1427 (N18W40 L=226)   323    117        1 (1438/1404-1538/1457) -39.8 W37-W43 N15-N20
      3 1764 1260 (N01W55 L=241)  1810    291        3 (1719/1115-1835/1325)  23.6 W46-W63 S05-N04
      4  592 1241 (N29E23 L=164)   329     84        1 ( 550/1212- 638/1256)  -9.5 E25-E19 N27-N30
      5 1921 1063 (S16W68 L=254)  1709    213        2 (1885/ 981-1951/1142)  26.6 W61-W78 S20-S12
      6  256 1059 (N24E54 L=133)   823    118        3 ( 213/1021- 307/1096)  18.4 E58-E48 N21-N26
      7  741 1055 (N15E16 L=170)   537    271        1 ( 626/1024- 854/1092) -15.9 E23-E09 N11-N16
      8 1362  953 (S05W18 L=204)   192    104        0 (1344/ 905-1383/1006) -90.0 W16-W18 S07-S01
      9  139  939 (N18E71 L=115)  1371    155        6 ( 110/ 882- 176/ 983)  56.3 E76-E64 N14-N20
     10  204  921 (N16E62 L=125)   607     79        2 ( 186/ 873- 233/ 961)  59.0 E64-E57 N13-N18
     11  774  874 (N04E18 L=169)   218     75        1 ( 739/ 859- 818/ 893) -11.3 E19-E14 N03-N04
     12 1517  859 (S14W25 L=212)   394     91        2 (1485/ 816-1561/ 891)   0.0 W22-W28 S16-S11
     13 1679  857 (S19W37 L=224)   259     64        1 (1655/ 822-1695/ 882) -76.0 W35-W38 S21-S17
     14  287  820 (N10E54 L=132)   385    108        1 ( 252/ 774- 328/ 857)  18.4 E58-E49 N07-N11
     15  918  737 (S07E13 L=174)   294     95        3 ( 889/ 706- 951/ 773) -68.2 E14-E11 S09-S04
     16 1213  746 (S13W04 L=191)   254     53        0 (1185/ 716-1236/ 772)  14.0 W02-W06 S14-S11
     17 1002  736 (S09E08 L=178)   302    101        1 ( 966/ 686-1029/ 761) -71.6 E09-E06 S12-S06
     18 1335  664 (S21W10 L=196)   487    188        0 (1262/ 598-1388/ 738)  31.0 W04-W14 S23-S17
     19  870  643 (S11E18 L=168)   458    161        1 ( 843/ 598- 918/ 679) -71.6 E19-E15 S14-S08
     20  497  569 (S09E45 L=142)   296     94        1 ( 473/ 526- 525/ 605) -90.0 E46-E43 S11-S05
     21  395  458 (S14E60 L=126)  2564    365        9 ( 331/ 318- 453/ 587)  55.0 E71-E54 S25-S05
     22  859  540 (S17E22 L=165)   888    321        1 ( 733/ 506-1005/ 567)  -9.5 E30-E12 S20-S14
     23  687  438 (S20E37 L=150)   347     57        1 ( 663/ 408- 711/ 465) -76.0 E38-E35 S22-S18
     24 1037  407 (S30E16 L=171)   652    222        1 ( 946/ 332-1114/ 465)  17.4 E24-E08 S33-S27
     25  829  401 (S26E29 L=157)   249     80        2 ( 803/ 368- 858/ 431) -78.7 E30-E28 S28-S23
     26  682  319 (S29E44 L=142)   560    111        1 ( 656/ 268- 704/ 365)  32.5 E50-E39 S32-S25
     27  621  326 (S27E49 L=138)   495    106        3 ( 601/ 285- 646/ 361)  63.4 E52-E45 S30-S24
  

    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