Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1270 1715 (N46W38 L=233)   368     50        1 (1242/1695-1295/1733) -11.3 W35-W40 N44-N47
      2  750 1614 (N49E12 L=184)  1471    373        3 ( 590/1557- 909/1653) -20.1 E29-W01 N41-N52
      3 1247 1551 (N35W26 L=222)  1703    419        5 (1039/1500-1411/1581)  -7.9 W09-W38 N31-N37
      4  717 1427 (N36E15 L=180)   257     89        1 ( 681/1411- 765/1444) -23.2 E18-E11 N34-N37
      5  882 1168 (N17E07 L=189)   239    145        0 ( 825/1118- 930/1196) -50.2 E09-E04 N13-N19
      6  117 1059 (N17E77 L=119)  1213     76        3 ( 100/1020- 135/1097)  68.2 E82-E73 N14-N19
      7  734 1027 (N10E18 L=178)   454    170        0 ( 683/ 981- 813/1065)  18.4 E21-E12 N08-N11
      8 1492  882 (S10W27 L=223)   423    141        1 (1464/ 809-1512/ 941)  60.3 W24-W29 S13-S06
      9  245  856 (N05E59 L=137)   720    120        2 ( 205/ 825- 292/ 885) -11.3 E63-E53 N02-N06
     10 1330  828 (S10W16 L=211)   286    136        1 (1289/ 784-1356/ 873)  45.0 W12-W17 S12-S07
     11 1384  827 (S11W19 L=215)   250    112        0 (1363/ 770-1409/ 861)  59.0 W17-W21 S14-S09
     12  702  794 (S03E23 L=172)   946    428        5 ( 530/ 719- 877/ 842) -26.6 E34-E13 S09-N01
     13 1726  778 (S21W46 L=241)   353     69        1 (1690/ 752-1751/ 803)  21.8 W42-W48 S22-S19
     14 1739  690 (S28W48 L=243)   710    150        2 (1702/ 625-1778/ 748)  60.3 W44-W51 S31-S24
     15 1478  680 (S22W24 L=220)  1095    218        4 (1409/ 624-1554/ 744)  24.4 W19-W30 S25-S19
     16  621  679 (S09E31 L=165)   352    151        1 ( 567/ 640- 674/ 727) -39.8 E33-E27 S11-S05
     17  753  669 (S12E22 L=173)   328    116        3 ( 716/ 644- 800/ 692)  11.3 E24-E19 S12-S10
     18  700  553 (S19E29 L=167)   314    140        1 ( 651/ 535- 770/ 580) -20.6 E31-E23 S19-S16
     19  897  426 (S30E19 L=177)   570    121        3 ( 868/ 371- 928/ 474)  58.0 E22-E16 S34-S26
  

    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