Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1369 1697 (N45W42 L=223)   900    156        2 (1303/1654-1449/1725)  -3.4 W34-W52 N42-N45
      2  994 1578 (N41W05 L=186)   247     74        0 ( 961/1561-1022/1596) -45.0 W02-W06 N39-N43
      3 1140 1449 (N31W13 L=194)   822    185        4 (1066/1402-1216/1501) -37.9 W08-W17 N27-N34
      4 1729 1422 (N20W59 L=240)   461     56        0 (1697/1406-1762/1438) -18.4 W55-W62 N18-N21
      5  302 1352 (N31E55 L=126)  1502    190        6 ( 210/1313- 391/1386)  -2.3 E69-E44 N28-N33
      6 1746 1304 (N13W56 L=237)   580    128        1 (1684/1271-1805/1333) -24.4 W50-W61 N10-N15
      7  189 1197 (N21E65 L=116)  1725    188        4 ( 164/1114- 224/1288) -39.8 E73-E59 N16-N26
      8  108 1049 (N12E78 L=103)  1072     42        2 (  92/1023- 124/1080)  53.1 E83-E73 N09-N13
      9  509  953 (N05E34 L=147)   392     98        2 ( 482/ 903- 538/1006) -71.6 E35-E31 N02-N08
     10  955  926 (N00E05 L=176)   195     96        0 ( 939/ 887- 973/ 977)  53.1 E06-E03 S01-N03
     11 1233  854 (S07W11 L=192)   313     99        1 (1194/ 818-1265/ 876) -11.3 W08-W13 S09-S05
     12 1649  823 (S14W40 L=221)   344     63        0 (1618/ 790-1671/ 857)  36.9 W37-W41 S16-S12
     13  505  686 (S11E38 L=143)   502    143        2 ( 465/ 624- 542/ 750) -76.0 E39-E35 S15-S06
     14 1808  658 (S29W60 L=241)   706    109        2 (1784/ 608-1825/ 710) -82.9 W57-W62 S32-S24
     15  362  669 (S11E50 L=131)   342     48        2 ( 340/ 647- 382/ 699) -45.0 E52-E48 S12-S09
     16  435  571 (S18E47 L=134)  1156    228        4 ( 352/ 519- 548/ 627) -31.6 E53-E38 S22-S14
     17  866  542 (S23E16 L=165)   522    134        1 ( 813/ 501- 906/ 596)  35.5 E19-E12 S25-S19
     18 1057  417 (S34E05 L=176)  2888    545       10 ( 880/ 339-1203/ 586)  14.6 E16-W07 S40-S23
     19  472  442 (S28E50 L=131)   668    110        1 ( 433/ 414- 518/ 479) -15.9 E54-E46 S29-S24
     20 1540  328 (S51W42 L=223)  1291    132        4 (1483/ 301-1605/ 369)   3.8 W33-W51 S54-S47
     21 1429  305 (S51W29 L=210)   394     49        1 (1411/ 282-1451/ 330)  76.0 W26-W31 S52-S48
     22 1363  277 (S52W22 L=203)   421     23        1 (1346/ 255-1385/ 297)  90.0 W19-W24 S54-S49
     23 1231  228 (S55W08 L=189)  1402    170        3 (1158/ 204-1310/ 258)   0.0 W00-W17 S57-S51
  

    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