Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  647 1791 (N38E58 L=145)  1269    139        1 ( 594/1747- 701/1843)  -9.5 E78-E47 N35-N41
      2  621 1675 (N29E48 L=155)  1153    195        0 ( 531/1636- 701/1723)  45.0 E53-E43 N24-N33
      3 1445 1533 (N40W17 L=220)  1199    213        3 (1375/1447-1484/1608) -39.3 W10-W21 N33-N44
      4  903 1515 (N24E20 L=183)   421    185        0 ( 844/1446- 959/1574) -22.6 E25-E13 N21-N27
      5  333 1536 (N14E66 L=137)   678     74        0 ( 310/1499- 363/1569)  78.7 E68-E63 N11-N16
      6 1365 1366 (N26W14 L=216)  1707    650        0 (1202/1104-1482/1560) -40.2 E01-W26 N12-N35
      7  910 1404 (N17E16 L=187)   229     40        0 ( 891/1377- 925/1428) -76.0 E16-E14 N15-N19
      8  934 1346 (N15E13 L=190)   891    298        3 ( 801/1307-1057/1386)   3.4 E21-E04 N12-N17
      9 1714 1216 (N25W43 L=246)  1333    274        2 (1671/1143-1798/1269)  -4.4 W39-W52 N20-N28
     10  234 1138 (S12E59 L=144)  3128    355        6 ( 153/ 987- 302/1254)  90.0 E69-E52 S20-S03
     11 1896 1020 (N18W67 L=270)  1023    128        1 (1879/ 956-1910/1085) -60.3 W63-W70 N14-N21
     12  333 1035 (S16E47 L=156)   312     62        0 ( 318/1003- 347/1064)  90.0 E48-E45 S18-S14
     13  368  960 (S20E42 L=160)   811    185        1 ( 305/ 894- 408/1038)  59.0 E48-E39 S24-S14
     14 1280  789 (S10W21 L=223)   222     58        1 (1252/ 761-1303/ 816) -45.0 W18-W22 S11-S08
     15 1158  689 (S19W16 L=218)   383    134        0 (1091/ 673-1211/ 710)  23.2 W11-W18 S20-S16
     16  504  627 (S38E28 L=174)  2078    323        5 ( 366/ 572- 635/ 702)  -4.6 E42-E16 S41-S35
     17  292  664 (S41E52 L=150)  1231    117        1 ( 233/ 644- 348/ 697)  11.3 E64-E44 S43-S38
     18  510  472 (S50E29 L=174)   383     63        2 ( 483/ 456- 547/ 490)   0.0 E32-E24 S51-S48
     19  829  355 (S50W05 L=207)   404     91        0 ( 788/ 335- 877/ 380)   0.0 W00-W09 S51-S49
     20 1232  341 (S39W37 L=239)   399     66        0 (1199/ 322-1262/ 361)  11.3 W33-W39 S40-S37
  

    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