Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1053 1754 (N46W04 L= 76)   395     55        2 (1021/1737-1088/1774)   9.5 W01-W07 N44-N47
      2 1084 1681 (N39W06 L= 77)   360     58        1 (1069/1651-1111/1718)  78.7 W04-W07 N37-N42
      3 1689 1547 (N30W54 L=125)  2170    269        5 (1567/1475-1789/1618) -24.0 W43-W64 N24-N34
      4  787 1574 (N32E16 L= 56)   708    135        0 ( 719/1532- 845/1601) -18.4 E20-E11 N28-N34
      5 1435 1477 (N24W29 L=100)   525    161        1 (1357/1455-1520/1491)   0.0 W23-W35 N22-N25
      6 1602 1431 (N21W41 L=112)   601     90        0 (1576/1377-1623/1476)  66.8 W38-W42 N17-N24
      7 1848 1284 (N13W61 L=133)  2398    259        7 (1800/1207-1917/1383) -45.0 W55-W69 N08-N18
      8 1686 1252 (N10W44 L=116)   563    160        0 (1663/1170-1703/1330) -84.3 W43-W45 N05-N15
      9  412  731 (S19E42 L= 29)  4891    872       14 ( 303/ 373- 471/1085)  42.4 E89-E35 S40-N02
     10  233 1022 (S01E55 L= 17)   715    196        1 ( 179/ 949- 282/1075) -35.0 E60-E50 S05-N02
     11  192  851 (S10E61 L= 10)  5054    310       11 ( 120/ 707- 284/1005)  64.8 E71-E51 S18-S01
     12 1166  929 (S09W08 L= 80)   196     77        0 (1126/ 918-1208/ 945)   0.0 W05-W10 S09-S07
     13  639  897 (S10E24 L= 48)   588    179        3 ( 572/ 865- 718/ 930)  -5.7 E28-E18 S11-S07
     14  986  828 (S15E03 L= 69)   368    109        1 ( 949/ 778-1015/ 875) -63.4 E04-W00 S17-S11
     15 1242  841 (S14W13 L= 85)   230     96        0 (1192/ 809-1269/ 861) -31.0 W09-W14 S16-S12
     16 1149  801 (S16W07 L= 79)   215    142        1 (1132/ 739-1176/ 855) -74.1 W06-W09 S20-S13
     17  294  752 (S17E53 L= 19)   577     88        1 ( 261/ 707- 321/ 793) -59.0 E55-E50 S19-S14
     18  237  763 (S16E58 L= 13)   419     43        2 ( 206/ 746- 265/ 783)  -9.5 E61-E55 S16-S14
     19  716  742 (S19E20 L= 51)   283     43        1 ( 698/ 712- 734/ 774) -71.6 E21-E18 S21-S17
     20  899  682 (S23E09 L= 63)  1058    347        0 ( 742/ 653-1024/ 763)   9.5 E18-W00 S25-S18
     21 1481  539 (S33W33 L=105)   453     58        3 (1451/ 515-1515/ 571) -45.0 W30-W36 S35-S31
     22 1568  547 (S33W41 L=112)   457     81        1 (1528/ 525-1612/ 569)   0.0 W36-W44 S34-S31
     23 1228  443 (S40W15 L= 86)  1547    330        4 (1093/ 371-1379/ 519)  25.5 W04-W25 S45-S34
     24 1180  251 (S56W14 L= 86)   333     66        1 (1142/ 236-1200/ 276)  21.8 W10-W17 S57-S53
  

    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