Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  949 1779 (N59W12 L= 47)  1317    311        2 ( 807/1736-1086/1818)  -3.5 E05-W28 N57-N60
      2 1516 1653 (N36W55 L= 90)   386     73        0 (1483/1633-1548/1675)   5.2 W49-W60 N34-N36
      3 1351 1508 (N30W32 L= 67)   469    221        0 (1262/1437-1420/1553) -55.0 W26-W34 N24-N34
      4  334 1340 (N34E50 L=346)  3119    480        4 ( 252/1135- 447/1516)  61.6 E55-E41 N21-N45
      5 1155 1450 (N30W16 L= 52)   270    144        1 (1103/1424-1226/1489) -35.5 W13-W20 N27-N33
      6 1803 1351 (N11W64 L=100)  1582    237        4 (1764/1283-1878/1437) -57.5 W60-W72 N05-N16
      7  170 1221 (N27E69 L=326)  1817    211        5 ( 127/1136- 219/1293) -22.2 E85-E60 N21-N31
      8 1830 1265 (N06W64 L= 99)   489     49        0 (1806/1235-1852/1289) -63.4 W61-W66 N03-N07
      9  725 1212 (N22E16 L= 19)   450    232        3 ( 688/1139- 784/1278) -66.0 E18-E13 N16-N26
     10 1772 1111 (S02W52 L= 88)   504    102        1 (1746/1064-1806/1142)  23.2 W49-W56 S03-N00
     11  835 1096 (N13E11 L= 25)   378    172        1 ( 752/1073- 908/1117) -18.4 E15-E06 N10-N14
     12  358  927 (N08E46 L=350)   263     68        1 ( 336/ 894- 387/ 958) -76.0 E47-E43 N06-N10
     13 1530  817 (S14W29 L= 65)   698    194        1 (1440/ 764-1606/ 859)   8.7 W22-W35 S16-S12
     14  645  585 (S16E31 L=  4)  1011    388        4 ( 546/ 509- 730/ 699)  26.6 E39-E23 S20-S09
     15  381  611 (S12E51 L=344)   627     90        2 ( 360/ 566- 406/ 654)  63.4 E53-E49 S14-S08
     16  497  613 (S12E41 L=354)   287     48        0 ( 467/ 597- 526/ 628) -26.6 E43-E39 S13-S11
     17 1528  430 (S42W30 L= 66)   374     71        0 (1496/ 412-1571/ 455)   8.1 W26-W34 S43-S40
     18 1364  340 (S46W15 L= 51)   549     66        2 (1329/ 318-1405/ 364)  -7.1 W11-W19 S48-S43
     19 1187  280 (S47E01 L= 34)   337     31        1 (1170/ 260-1212/ 302) -56.3 E02-W00 S49-S45
     20 1138  222 (S53E08 L= 28)   944     71        2 (1101/ 196-1182/ 252) -29.7 E11-E03 S55-S49
     21 1164  159 (S62E08 L= 27)   657     54        2 (1132/ 143-1198/ 179) -45.0 E11-E04 S65-S58
  

    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