Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1117 1721 (N51W20 L=  5)   322     80        0 (1081/1702-1154/1736)   0.0 W16-W24 N49-N52
      2  382 1566 (N46E58 L=287)   497     26        1 ( 361/1540- 400/1587) -26.6 E61-E54 N44-N47
      3  657 1376 (N31E22 L=322)  1178    344        5 ( 529/1250- 780/1448) -36.9 E34-E13 N21-N36
      4 1299 1300 (N19W21 L=  6)   208     83        0 (1270/1264-1316/1328) -68.2 W19-W21 N16-N21
      5  242 1208 (N22E59 L=286)   633    161        1 ( 200/1139- 265/1272)  83.7 E63-E56 N17-N26
      6  708 1168 (N17E19 L=326)   199     88        0 ( 685/1139- 750/1200)  31.0 E20-E15 N15-N18
      7 1658 1138 (N05W44 L= 28)   693    158        2 (1593/1085-1721/1189)  18.4 W37-W50 N02-N06
      8 1828 1023 (S05W58 L= 43)  1721    359        4 (1774/ 868-1855/1174)  55.5 W51-W64 S13-N03
      9 1473  717 (S19W26 L= 11)   525    176        0 (1425/ 664-1496/ 793)  63.4 W22-W28 S21-S13
     10  333  764 (S06E51 L=294)   359     56        1 ( 307/ 737- 361/ 786) -56.3 E53-E48 S07-S04
     11 1358  766 (S14W18 L=  3)   221     62        0 (1330/ 737-1382/ 785) -53.1 W16-W19 S16-S12
     12  712  720 (S10E23 L=322)   436    118        0 ( 679/ 670- 739/ 766)  63.4 E25-E20 S13-S07
     13 1418  717 (S18W22 L=  7)   233     91        0 (1380/ 685-1439/ 757)  45.0 W19-W23 S19-S15
     14 1531  571 (S30W32 L= 16)  1668    361        2 (1415/ 489-1682/ 693)  25.5 W22-W44 S34-S23
     15  274  621 (S15E63 L=282)  1610    169        5 ( 244/ 545- 313/ 688)  55.0 E71-E56 S20-S10
     16 1822  657 (S29W63 L= 48)   625     33        1 (1795/ 638-1845/ 679) -11.3 W58-W68 S31-S27
     17  853  659 (S16E15 L=330)   237     89        0 ( 817/ 642- 896/ 676)   0.0 E16-E11 S16-S14
     18 1161  579 (S24W04 L=349)   532    146        0 (1129/ 518-1209/ 635)  49.4 W01-W07 S27-S20
     19 1592  494 (S37W39 L= 24)  1292    267        3 (1478/ 456-1697/ 572)   8.5 W28-W50 S38-S32
     20  390  481 (S25E57 L=288)   458     51        1 ( 370/ 449- 405/ 511)  35.5 E60-E53 S27-S22
     21 1200  320 (S45W05 L=350)  1764    239        5 (1120/ 242-1287/ 403)  45.0 E02-W12 S52-S38
     22 1133  370 (S40W00 L=345)   321     50        0 (1102/ 355-1160/ 384) -26.6 E02-W02 S41-S38
     23  607  292 (S41E49 L=296)   958    113        0 ( 576/ 247- 644/ 341)  26.6 E59-E41 S45-S36
  

    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