Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1615 1702 (N24W71 L= 91)  2036    134        3 (1554/1652-1674/1731) -18.4 W62-W80 N20-N26
      2 1766 1480 (N08W66 L= 86)   635     93        0 (1753/1424-1777/1521)  39.8 W62-W69 N04-N09
      3 1879 1252 (S08W66 L= 87)  3210    262        6 (1813/1169-1924/1359)  29.7 W57-W75 S12-S03
      4  295 1226 (N36E47 L=334)   735    155        1 ( 225/1180- 351/1260) -26.6 E56-E40 N31-N39
      5  729 1045 (N14E16 L=  5)   191     71        0 ( 706/1022- 746/1075)  18.4 E17-E14 N13-N16
      6  117 1044 (N28E72 L=308)  1346     93        2 (  70/1005- 154/1067)  -8.1 E89-E65 N25-N29
      7 1478 1009 (S07W25 L= 46)   198     65        2 (1452/ 984-1496/1044)  36.9 W22-W26 S09-S05
      8  682 1007 (N13E20 L=  1)   205     55        0 ( 652/ 987- 705/1025) -18.4 E21-E18 N11-N14
      9 1560  984 (S11W30 L= 50)   224     60        0 (1537/ 958-1576/1012)  33.7 W27-W30 S12-S09
     10 1667  947 (S17W36 L= 57)   312    119        0 (1648/ 895-1684/1011)  56.3 W33-W38 S19-S13
     11 1771  943 (S21W45 L= 66)   470     57        2 (1740/ 917-1805/ 975)  -9.5 W42-W48 S21-S18
     12 1421  848 (S15W17 L= 38)   900    320        7 (1324/ 738-1500/ 964) -74.5 W13-W20 S23-S05
     13 1782  839 (S27W45 L= 65)   477    127        0 (1734/ 804-1824/ 887)  11.3 W39-W49 S28-S25
     14 1282  794 (S14W08 L= 29)   652    258        1 (1177/ 743-1337/ 879)   5.2 W01-W12 S16-S09
     15  843  702 (S07E19 L=  2)   908    254        1 ( 813/ 577- 880/ 808)  53.1 E23-E13 S13-S01
     16  387  535 (S06E56 L=325)   405     50        1 ( 371/ 507- 404/ 562)  76.0 E57-E53 S08-S04
     17  615  372 (S21E47 L=334)  2348    446        2 ( 534/ 227- 764/ 512)  18.4 E65-E29 S31-S14
     18  394  469 (S11E59 L=321)  1291    163        6 ( 327/ 430- 466/ 506) -21.0 E66-E53 S13-S07
     19  495  441 (S14E52 L=329)   840     90        3 ( 468/ 394- 518/ 489)  56.3 E55-E48 S17-S11
     20 1388  452 (S39W06 L= 26)   319     58        0 (1370/ 418-1402/ 486) -90.0 W04-W07 S41-S35
     21 1291  337 (S44E05 L= 15)  1079    173        3 (1234/ 295-1360/ 377)  -5.2 E10-W01 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