Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1131 1800 (N51W43 L=288)   485     70        2 (1098/1767-1149/1837)  20.0 W38-W49 N48-N53
      2  682 1433 (N40E13 L=232)   824    174        3 ( 612/1397- 762/1465) -28.6 E18-E07 N35-N42
      3 1204 1423 (N25W22 L=267)   584    142        0 (1130/1407-1262/1439) -32.0 W17-W25 N22-N27
      4 1101 1335 (N23W13 L=258)   352     96        0 (1074/1292-1134/1376) -90.0 W11-W13 N19-N25
      5 1358 1336 (N16W28 L=273)   225     22        0 (1338/1319-1381/1355) -45.0 W26-W29 N14-N17
      6  742 1163 (N22E14 L=231)   606    199        0 ( 658/1107- 823/1209) -45.0 E18-E09 N16-N26
      7  320 1010 (N21E48 L=197)   665    143        1 ( 267/ 965- 372/1059) -37.9 E53-E43 N17-N24
      8 1901  933 (S24W64 L=309)  1452    169        0 (1854/ 871-1936/1018)  18.4 W56-W72 S27-S19
      9 1498  964 (S08W26 L=272)   223     48        0 (1468/ 948-1525/ 979) -36.9 W24-W28 S09-S06
     10 1428  690 (S23W16 L=261)   471    199        0 (1353/ 628-1484/ 756)  26.6 W10-W20 S24-S19
     11 1837  676 (S39W58 L=303)  1238    112        2 (1805/ 621-1871/ 713)  24.0 W53-W64 S42-S35
     12  541  670 (S03E38 L=207)   444     76        0 ( 505/ 641- 574/ 694)   9.5 E41-E35 S04-S01
     13 1732  593 (S41W43 L=288)   469     46        0 (1706/ 568-1754/ 613) -36.9 W39-W47 S43-S37
     14 1665  497 (S46W36 L=281)  1317    167        0 (1610/ 457-1721/ 556)  20.0 W29-W42 S49-S42
     15  544  499 (S13E45 L=200)   629    126        0 ( 506/ 448- 597/ 553) -76.0 E46-E43 S17-S09
     16 1468  356 (S50W15 L=260)   524     70        1 (1446/ 327-1501/ 386)  38.7 W12-W18 S52-S46
     17 1090  286 (S42E19 L=226)   608     83        2 (1056/ 263-1126/ 313)   0.0 E22-E15 S43-S39
     18  613  279 (S30E56 L=189)   533     54        0 ( 572/ 267- 643/ 296)   0.0 E61-E51 S31-S29
     19 1273  256 (S52E07 L=238)   479     74        0 (1241/ 232-1301/ 276)  23.2 E10-E03 S53-S49
  

    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