Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  559 1587 (N48E35 L=281)   519     72        0 ( 519/1570- 607/1606)  -5.7 E39-E28 N45-N49
      2 1707 1512 (N25W63 L= 19)  1026    194        0 (1628/1456-1785/1551) -36.9 W57-W70 N20-N29
      3 1023 1450 (N32W05 L=321)   922    260        3 ( 911/1396-1135/1491) -29.7 E02-W12 N27-N36
      4 1872  990 (S09W63 L= 19)   580     62        2 (1846/ 957-1898/1018) -38.7 W60-W67 S11-S07
      5 1320  964 (S01W17 L=333)   283    148        3 (1261/ 927-1379/1008) -29.7 W14-W21 S03-N01
      6 1823  949 (S10W57 L= 12)   576     96        2 (1797/ 907-1841/1004)  78.7 W54-W59 S13-S07
      7 1858  910 (S13W61 L= 17)   506     64        1 (1844/ 879-1873/ 944)  63.4 W59-W63 S15-S11
      8 1719  857 (S14W46 L=  1)  1124    255        3 (1647/ 790-1774/ 894)  16.7 W39-W51 S19-S11
      9 1364  869 (S08W19 L=335)   227     44        1 (1344/ 843-1387/ 890) -71.6 W18-W20 S09-S06
     10  736  815 (S04E20 L=295)   324     62        1 ( 711/ 789- 768/ 840) -18.4 E21-E18 S05-S02
     11 1200  791 (S10W08 L=324)   566    143        1 (1165/ 740-1264/ 827)  23.2 W05-W12 S13-S08
     12 1142  791 (S10W05 L=320)   204     50        0 (1129/ 762-1153/ 823)  76.0 W03-W05 S11-S07
     13 1722  750 (S21W47 L=  2)   361     97        1 (1689/ 733-1766/ 773)   0.0 W43-W51 S22-S19
     14 1576  644 (S26W34 L=349)  1181    194        1 (1525/ 559-1626/ 723)  55.0 W30-W38 S30-S20
     15  659  674 (S12E27 L=288)   220     64        0 ( 628/ 656- 689/ 690) -14.0 E29-E25 S13-S11
     16  599  561 (S19E34 L=281)  1258    257        2 ( 570/ 440- 644/ 676)  73.6 E37-E30 S28-S11
     17  758  528 (S23E24 L=291)   604    242        0 ( 711/ 435- 817/ 620)  45.0 E29-E17 S29-S17
     18  314  529 (S20E64 L=251)   796     94        6 ( 272/ 507- 353/ 551)   0.0 E71-E58 S21-S18
     19 1468  354 (S47W30 L=345)  1223    125        2 (1416/ 314-1524/ 392)   5.2 W24-W35 S51-S44
     20  923  313 (S41E19 L=297)   717     93        0 ( 879/ 277- 975/ 360)  26.6 E23-E13 S44-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