Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1097 1709 (N49W23 L=180)  2117    393        2 ( 915/1665-1283/1742) -15.7 W06-W38 N42-N52
      2 1577 1693 (N35W67 L=223)  1853    142        2 (1512/1660-1650/1723)  -4.1 W56-W84 N33-N36
      3 1109 1570 (N39W18 L=174)   842    269        0 ( 993/1534-1233/1598) -19.4 W08-W26 N34-N42
      4 1777 1473 (N17W70 L=226)   785     98        0 (1740/1437-1809/1514) -63.4 W68-W73 N14-N20
      5 1032 1342 (N25W06 L=162)   391    155        1 ( 957/1326-1108/1355)  -5.2 W00-W11 N24-N26
      6 1487 1332 (N16W36 L=192)   672    270        0 (1378/1290-1591/1355) -29.7 W28-W42 N11-N19
      7  211 1071 (N19E61 L= 95)  1392    283        4 ( 187/ 946- 246/1215) -66.4 E65-E56 N11-N27
      8 1233 1170 (N12W15 L=171)   238    110        0 (1191/1127-1264/1199)  26.6 W11-W17 N09-N12
      9 1110 1125 (N11W07 L=163)   366    143        0 (1058/1093-1170/1172) -39.8 W04-W10 N08-N14
     10 1837 1021 (S10W58 L=214)  2622    258        9 (1758/ 925-1887/1104) -57.3 W50-W65 S16-S02
     11  546 1006 (N12E31 L=126)   556    196        1 ( 515/ 925- 573/1094)  78.7 E33-E28 N07-N17
     12 1641 1060 (S03W40 L=196)   301     77        1 (1600/1041-1678/1080) -18.4 W37-W43 S03-S01
     13 1906  992 (S13W68 L=224)   613     98        2 (1895/ 945-1919/1046)  63.4 W65-W70 S16-S10
     14 1213  970 (N00W10 L=167)   414    202        0 (1121/ 956-1304/ 994)  -4.8 W04-W16 S01-N01
     15 1793  930 (S14W52 L=208)   603    109        2 (1762/ 891-1828/ 975)  15.9 W48-W56 S15-S11
     16  670  907 (N04E23 L=133)   255     70        0 ( 644/ 883- 697/ 937) -63.4 E24-E21 N02-N06
     17 1345  806 (S12W16 L=172)  1047    352        6 (1223/ 696-1398/ 901)  21.0 W07-W20 S18-S06
     18 1230  819 (S09W09 L=165)   306     88        2 (1203/ 780-1255/ 866)  78.7 W07-W10 S11-S06
     19 1867  778 (S26W63 L=219)  1064     83        2 (1828/ 753-1902/ 809)   0.0 W57-W70 S28-S23
     20 1603  752 (S21W34 L=190)   294    117        0 (1571/ 717-1639/ 801)  33.7 W31-W37 S22-S18
     21  388  561 (S14E54 L=103)  3778    635        5 ( 252/ 330- 515/ 762) -86.3 E60-E47 S31-N00
     22  247  660 (S07E65 L= 91)  1283    160        3 ( 214/ 592- 279/ 735)  73.3 E69-E61 S11-S01
     23  519  641 (S10E39 L=117)   683    168        3 ( 469/ 599- 568/ 715) -63.4 E41-E36 S12-S04
     24  434  630 (S10E46 L=110)   862    185        2 ( 387/ 576- 496/ 701) -60.9 E49-E42 S13-S04
     25 1437  557 (S30W20 L=176)   774    126        1 (1394/ 506-1479/ 607)  45.0 W16-W23 S33-S27
     26  609  514 (S19E37 L=119)   290     91        2 ( 591/ 471- 621/ 556)  71.6 E38-E35 S22-S16
     27  581  334 (S32E50 L=107)   737     95        2 ( 542/ 294- 620/ 369)  15.9 E58-E44 S35-S29
     28 1003  235 (S48E21 L=136)  1303    259        1 ( 918/ 173-1095/ 316)  22.6 E33-E09 S53-S41
  

    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