Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1326 1594 (N39W30 L=301)   918    191        1 (1246/1543-1409/1633)  10.6 W22-W38 N35-N41
      2  628 1574 (N43E29 L=242)   323    112        0 ( 580/1556- 683/1591)   5.7 E33-E23 N42-N44
      3  977 1558 (N40W01 L=272)   566    221        1 ( 883/1528-1086/1585) -23.2 E06-W09 N36-N42
      4 1076 1270 (N20W05 L=276)   287     69        2 (1039/1252-1111/1291) -21.8 W02-W07 N18-N21
      5 1596 1197 (N11W39 L=310)   922    231        1 (1506/1114-1658/1254) -45.0 W33-W43 N04-N14
      6  303 1104 (N13E50 L=221)   345    111        1 ( 289/1054- 321/1162) -66.8 E52-E48 N09-N16
      7  529 1025 (N08E32 L=239)   987    378        3 ( 420/ 871- 642/1137) -46.8 E40-E24 S02-N14
      8  943 1082 (N09E05 L=266)   222     69        1 ( 931/1040- 959/1116)  68.2 E05-E03 N06-N11
      9 1279  784 (S11W14 L=285)   226     99        0 (1265/ 740-1295/ 830)  80.5 W13-W15 S14-S08
     10  309  674 (S14E55 L=216)  1833    318        5 ( 250/ 601- 368/ 767)  65.6 E61-E50 S18-S07
     11 1762  644 (S26W55 L=326)  1060    167        1 (1704/ 595-1825/ 706)  22.6 W49-W61 S29-S23
     12  929  654 (S17E09 L=262)   214    120        0 ( 903/ 624- 947/ 699) -78.7 E10-E07 S19-S14
     13 1122  582 (S23W03 L=274)   574    233        0 (1047/ 520-1209/ 653)  38.7 E02-W09 S27-S19
     14  245  608 (S18E67 L=204)   686     65        0 ( 231/ 569- 261/ 638)  45.0 E72-E63 S21-S16
     15  724  603 (S19E23 L=248)   326     76        1 ( 705/ 567- 755/ 638)  63.4 E24-E20 S21-S17
     16 1609  493 (S35W43 L=314)   724     86        2 (1588/ 454-1643/ 533) -36.9 W39-W48 S38-S32
     17 1510  371 (S44W37 L=309)  2737    307        5 (1348/ 337-1635/ 407)  -8.1 W20-W55 S48-S39
     18 1202  318 (S45W08 L=279)   400     58        1 (1178/ 301-1231/ 349) -53.1 W06-W11 S46-S42
     19 1002  281 (S46E09 L=262)  1306    186        2 ( 918/ 249-1089/ 318)   3.6 E17-E01 S49-S43
     20  786  224 (S51E33 L=238)  1035    110        1 ( 744/ 194- 827/ 252)  18.4 E41-E26 S53-S47
  

    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