Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1332 1848 (N56W39 L=286)  2329    125        4 (1283/1800-1393/1900)  85.2 W31-W46 N50-N62
      2 1479 1718 (N43W43 L=290)   392     45        1 (1452/1696-1508/1731)   0.0 W40-W47 N40-N43
      3 1531 1574 (N31W40 L=287)  3378    497        3 (1323/1497-1740/1629)  -7.9 W23-W59 N26-N35
      4 1037 1370 (N18W02 L=249)   738    242        0 ( 945/1307-1136/1431) -36.0 E04-W07 N14-N22
      5 1732 1317 (N14W51 L=298)  1265    268        4 (1668/1206-1822/1417) -58.4 W46-W58 N07-N20
      6 1498 1313 (N14W31 L=278)   653    198        0 (1432/1249-1553/1397) -55.0 W27-W34 N09-N19
      7  580 1218 (N10E27 L=219)   221     61        0 ( 549/1200- 617/1239)  26.6 E29-E24 N09-N11
      8  219  781 (S14E61 L=186)  1620    255        2 ( 190/ 655- 248/ 906)  71.6 E65-E58 S21-S06
      9 1545  874 (S13W33 L=280)   221     24        0 (1529/ 851-1562/ 899)  63.4 W32-W34 S13-S11
     10 1734  756 (S20W51 L=298)   494    136        0 (1714/ 694-1766/ 818)  76.0 W49-W52 S23-S15
     11  576  783 (S16E30 L=217)   374    168        1 ( 493/ 758- 653/ 806) -15.3 E35-E24 S17-S14
     12 1351  490 (S37W24 L=271)  1543    353        2 (1231/ 425-1482/ 623)  35.2 W14-W31 S41-S28
     13 1750  481 (S38W68 L=315)   582     58        0 (1728/ 462-1778/ 506)  -7.6 W61-W76 S38-S36
     14 1599  455 (S40W49 L=296)   469     66        1 (1579/ 423-1621/ 490) -51.3 W45-W51 S42-S37
     15  366  407 (S39E67 L=180)   766     73        0 ( 333/ 378- 395/ 434)   8.5 E80-E60 S40-S37
  

    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