Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1286 1680 (N48W20 L=250)   286     43        0 (1267/1656-1314/1697)  21.8 W18-W23 N45-N49
      2 1418 1636 (N45W32 L=262)   515     62        0 (1380/1613-1458/1656)  16.7 W27-W37 N42-N46
      3 1559 1616 (N43W47 L=276)   350     36        1 (1540/1593-1578/1634)  56.3 W44-W49 N41-N44
      4 1669 1604 (N42W61 L=291)  1499    114        2 (1621/1574-1729/1634)   4.8 W52-W77 N40-N44
      5  699 1575 (N37E28 L=201)   560     86        2 ( 662/1547- 741/1611) -20.6 E32-E24 N34-N39
      6  316 1454 (N26E60 L=170)   480     97        1 ( 302/1420- 338/1502) -35.5 E63-E55 N23-N28
      7  683 1358 (N22E24 L=205)   251     50        0 ( 667/1323- 703/1387)  90.0 E25-E23 N19-N23
      8 1733 1137 (N11W49 L=279)  3054    415        6 (1644/ 965-1797/1306) -74.1 W42-W55 N00-N21
      9 1004 1197 (N13E02 L=228)   678    262        0 ( 911/1115-1072/1289) -45.0 E08-W02 N08-N18
     10  851 1206 (N13E12 L=218)   342     65        2 ( 827/1171- 872/1240)  90.0 E13-E10 N10-N15
     11 1239 1098 (N08W13 L=243)   340     87        1 (1212/1065-1277/1134) -45.0 W11-W15 N05-N10
     12 1068  984 (N00W03 L=233)   793    185        1 (1028/ 901-1108/1061)  83.7 W00-W05 S04-N05
     13 1343  822 (S09W21 L=251)   983    214        0 (1313/ 725-1382/ 919)  80.5 W18-W22 S14-S02
     14  660  800 (S13E22 L=207)   251     65        0 ( 630/ 773- 691/ 832) -45.0 E24-E20 S14-S10
     15  890  810 (S11E08 L=222)   341    145        0 ( 813/ 789- 955/ 826)  -6.3 E12-E03 S12-S10
     16 1862  728 (S14W70 L=299)  1536     90        2 (1835/ 665-1883/ 768) -45.0 W64-W75 S18-S11
     17 1772  650 (S19W60 L=290)   492     69        0 (1750/ 622-1801/ 691) -24.0 W55-W65 S20-S16
     18 1232  570 (S25W16 L=246)  1108    265        2 (1167/ 469-1307/ 649)  65.2 W12-W20 S32-S19
     19 1441  282 (S48W47 L=277)   447     71        0 (1408/ 270-1479/ 293)   7.1 W42-W51 S48-S46
     20  952  234 (S55E03 L=227)  1568    201        2 ( 870/ 206-1060/ 264)  14.7 E11-W08 S58-S51
     21  836  223 (S57E16 L=214)   579     36        0 ( 817/ 197- 857/ 253) -90.0 E18-E12 S60-S53
  

    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