Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1266 1824 (N45W50 L=320)  2073    296        2 (1158/1754-1372/1899)   4.2 W34-W75 N41-N47
      2 1154 1579 (N32W23 L=294)   257     63        0 (1119/1564-1190/1595) -36.9 W21-W25 N30-N33
      3  859 1526 (N37W02 L=273)   248     68        0 ( 842/1500- 882/1560) -76.0 W01-W03 N34-N38
      4 1547 1436 (N14W43 L=313)  1477    245        5 (1452/1372-1661/1515) -58.4 W38-W49 N07-N20
      5  328 1481 (N47E47 L=223)   525     71        1 ( 291/1463- 369/1498)  -5.2 E52-E41 N45-N49
      6  875 1419 (N29W00 L=271)   206     77        0 ( 855/1389- 913/1438)   0.0 E01-W03 N27-N30
      7 1086 1415 (N24W13 L=283)   214     65        0 (1048/1402-1116/1433) -11.3 W10-W15 N22-N24
      8  613 1328 (N30E19 L=251)  1091    312        2 ( 472/1308- 765/1352) -20.9 E29-E08 N25-N33
      9 1058 1264 (N16W07 L=278)   377    189        0 ( 977/1218-1137/1291)   0.0 W01-W12 N14-N17
     10 1162 1103 (N05W09 L=280)   229     89        0 (1143/1063-1178/1150)  59.0 W07-W10 N02-N07
     11  822 1033 (N08E11 L=259)   805    317        2 ( 701/1006- 985/1075) -19.4 E18-E01 N04-N12
     12 1511  973 (S11W27 L=297)   784    182        1 (1459/ 886-1569/1053) -74.7 W24-W29 S16-S05
     13  146  896 (N14E67 L=203)  1351    185        2 (  95/ 819- 193/ 976) -42.3 E75-E62 N08-N18
     14  286  721 (N01E56 L=214)   572     88        1 ( 258/ 688- 323/ 757)  14.0 E59-E51 N00-N03
     15  684  675 (S09E28 L=242)   358    103        1 ( 652/ 632- 714/ 711)  53.1 E30-E25 S10-S06
     16 1383  546 (S33W11 L=281)   411     43        1 (1353/ 524-1419/ 570) -14.0 W09-W13 S34-S31
     17  382  512 (S12E57 L=214)   527     77        2 ( 334/ 483- 411/ 542)   5.7 E62-E52 S14-S10
     18  385  437 (S17E62 L=209)   653     65        2 ( 349/ 408- 412/ 465) -63.4 E64-E58 S19-S14
     19  827  367 (S31E31 L=239)   470    128        0 ( 775/ 331- 864/ 416)  16.7 E36-E26 S32-S28
     20  789  173 (S45E51 L=219)  1401    150        3 ( 730/ 136- 840/ 225)   8.5 E62-E40 S47-S40
  

    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