Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  755 1654 (N27E31 L=195)   881    204        2 ( 702/1567- 791/1739) -38.2 E39-E25 N21-N32
      2  488 1576 (N18E47 L=179)   415    149        0 ( 425/1530- 529/1602)  39.8 E50-E43 N14-N20
      3  444 1494 (N12E47 L=179)   325     84        0 ( 408/1478- 480/1511)   9.5 E50-E44 N11-N13
      4  374 1466 (N10E52 L=174)   445    101        1 ( 352/1419- 396/1508) -50.2 E55-E49 N06-N12
      5  589 1478 (N13E36 L=190)   331     85        0 ( 566/1432- 615/1507)  90.0 E37-E34 N09-N14
      6  236 1338 (N01E61 L=165)  1211    246        2 ( 214/1244- 264/1462) -63.4 E64-E55 S04-N08
      7 1397 1315 (N17W17 L=243)   806    188        4 (1303/1284-1474/1335)  15.3 W11-W22 N14-N19
      8  515 1183 (S05E34 L=192)   277     58        1 ( 487/1161- 550/1208)  36.9 E35-E31 S06-S03
      9  262 1134 (S11E53 L=172)   440     45        1 ( 240/1111- 285/1165) -45.0 E55-E50 S12-S09
     10  215 1086 (S14E58 L=168)  1017    153        4 ( 179/1015- 247/1158) -53.1 E62-E53 S18-S10
     11  339 1013 (S18E45 L=181)   708    229        0 ( 255/ 943- 398/1093)  39.8 E52-E40 S22-S12
     12 1071 1058 (S04W02 L=228)   210     45        1 (1043/1038-1100/1080)  18.4 W00-W03 S05-S02
     13  875 1041 (S08E09 L=217)   233     68        1 ( 847/1012- 904/1064)  33.7 E10-E07 S09-S06
     14 1180  868 (S13W12 L=238)   303    128        1 (1130/ 848-1235/ 896)  18.4 W08-W14 S14-S10
     15 1765  840 (S02W52 L=278)   319     76        1 (1735/ 818-1802/ 868)  -7.1 W48-W56 S02-N00
     16  428  784 (S30E37 L=189)   275     48        0 ( 402/ 766- 454/ 806) -14.0 E38-E34 S31-S29
     17  306  730 (S35E49 L=176)  1073    143        3 ( 262/ 675- 371/ 784)  25.0 E56-E41 S39-S31
     18 1642  559 (S20W53 L=279)   359     65        2 (1605/ 541-1672/ 577)  21.8 W50-W56 S21-S18
     19 1620  488 (S24W56 L=281)   400     70        0 (1591/ 456-1650/ 517)  63.4 W54-W56 S26-S21
     20  971  425 (S44W10 L=236)   317     67        0 ( 953/ 388- 996/ 460)  78.7 W08-W11 S46-S41
     21 1704  427 (S25W70 L=296)   758     94        1 (1654/ 407-1751/ 445)  22.6 W65-W78 S27-S22
  

    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