Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  931 1815 (N40E38 L=347)   600     76        1 ( 894/1790- 965/1839)  36.9 E40-E33 N37-N42
      2  534 1596 (N14E49 L=335)  2111    303        2 ( 485/1477- 573/1749) -57.7 E59-E44 N05-N24
      3  458 1636 (N15E59 L=325)  1031    166        1 ( 431/1555- 500/1714) -54.0 E63-E54 N09-N20
      4 1347 1572 (N36W03 L= 27)   455     77        1 (1325/1540-1369/1616) -38.7 W00-W05 N33-N38
      5  595 1476 (N08E39 L=345)  2141    385        5 ( 469/1395- 740/1567)  51.3 E45-E33 N01-N16
      6 1367 1490 (N31W07 L= 31)   462     68        2 (1333/1463-1404/1522)   0.0 W04-W09 N29-N33
      7 1021 1403 (N15E11 L= 13)   285    133        0 ( 973/1350-1071/1446) -14.0 E14-E06 N13-N16
      8  207 1276 (S12E66 L=318)  1310    152        5 ( 134/1243- 255/1325)  18.4 E79-E60 S13-S08
      9  193 1173 (S18E64 L=320)   540     96        1 ( 177/1136- 209/1226)  90.0 E66-E61 S20-S14
     10 1307 1153 (N09W12 L= 36)   261     69        0 (1293/1117-1321/1187) -63.4 W10-W13 N06-N10
     11  411 1133 (S16E41 L=343)   274     54        0 ( 388/1108- 436/1163)  63.4 E42-E39 S17-S13
     12  173  962 (S31E64 L=320)  1704    160        3 ( 118/ 892- 224/1021)  24.2 E77-E57 S35-S26
     13  718  789 (S28E11 L= 13)   897    235        1 ( 612/ 749- 824/ 839)  39.8 E18-E05 S33-S22
     14 1362  725 (S12W28 L= 53)   359    151        1 (1301/ 695-1442/ 759)  11.3 W24-W34 S13-S10
     15  290  591 (S54E55 L=330)   426     66        0 ( 267/ 575- 326/ 612)   0.0 E60-E48 S54-S52
     16 1211  584 (S25W25 L= 50)   342    142        0 (1144/ 576-1281/ 595)  26.6 W21-W29 S26-S22
     17 1492  535 (S18W45 L= 70)  1106    194        1 (1417/ 501-1585/ 578)  48.4 W41-W50 S21-S12
     18  955  548 (S35W11 L= 36)   228     40        1 ( 928/ 535- 978/ 566)  14.0 W09-W13 S36-S33
     19 1089  412 (S39W27 L= 52)  1800    338        3 ( 954/ 327-1224/ 487)  64.7 W22-W32 S48-S29
     20  920  386 (S47W18 L= 42)   307     34        1 ( 895/ 363- 938/ 413)  76.0 W15-W19 S48-S44
  

    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