Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1187 1859 (N59W49 L= 57)   895    105        2 (1137/1825-1225/1892)   7.4 W38-W61 N56-N61
      2 1532 1647 (N34W56 L= 64)   512    154        1 (1467/1608-1599/1665) -41.2 W50-W60 N30-N37
      3 1498 1544 (N29W45 L= 53)   665    105        0 (1442/1514-1551/1571) -35.5 W41-W48 N26-N31
      4  600 1331 (N31E25 L=344)   584    141        0 ( 579/1265- 619/1403)  77.5 E26-E23 N26-N35
      5  359 1273 (N30E46 L=323)  2303    329        3 ( 260/1180- 475/1388) -29.1 E61-E34 N23-N38
      6 1643 1344 (N14W48 L= 56)   411     88        0 (1609/1311-1677/1369)   9.5 W44-W50 N12-N15
      7 1267 1225 (N14W18 L= 26)   534    202        0 (1180/1201-1364/1240) -20.0 W12-W23 N11-N16
      8  469  947 (N09E37 L=332)   473    103        1 ( 451/ 897- 487/1008)  63.4 E38-E34 N05-N12
      9 1834  919 (S15W56 L= 65)  1551    182        4 (1770/ 862-1892/ 986)  15.9 W49-W64 S17-S12
     10  743  688 (S10E22 L=346)   660    116        2 ( 717/ 618- 769/ 746)  63.4 E24-E19 S14-S06
     11 1045  638 (S17E05 L=  4)   716    244        0 ( 949/ 596-1117/ 711)  26.6 E10-W00 S19-S13
     12  902  692 (S12E12 L=356)   268     90        1 ( 854/ 680- 944/ 706) -18.4 E15-E09 S12-S10
     13  355  544 (S15E57 L=311)   920    214        3 ( 293/ 498- 409/ 609) -69.4 E62-E50 S18-S10
     14  297  537 (S16E65 L=303)   678     61        1 ( 272/ 507- 321/ 571) -63.4 E68-E62 S17-S13
     15  567  354 (S31E49 L=320)  1379    196        3 ( 510/ 296- 617/ 430)  23.2 E60-E39 S35-S24
  

    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