Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  799 1834 (N43E46 L= 75)   444    106        0 ( 758/1816- 843/1848)   0.0 E50-E41 N42-N44
      2 1359 1648 (N46W07 L=127)  1195    232        1 (1337/1564-1388/1732) -70.3 W03-W10 N39-N53
      3  463 1651 (N22E58 L= 62)  1311    225        3 ( 408/1594- 497/1721) -78.7 E61-E54 N16-N26
      4  888 1673 (N33E28 L= 92)   339     62        1 ( 868/1649- 912/1704)  90.0 E29-E26 N31-N36
      5  546 1553 (N17E45 L= 75)   424    140        1 ( 523/1501- 578/1623) -66.0 E47-E42 N13-N22
      6 1638 1584 (N51W35 L=156)   409     73        0 (1617/1562-1663/1602)  29.7 W32-W39 N48-N52
      7  947 1562 (N27E19 L=101)   279     40        1 ( 919/1548- 978/1581)  14.0 E20-E16 N25-N28
      8  633 1509 (N16E37 L= 83)   376    117        1 ( 604/1477- 670/1552) -23.2 E40-E33 N14-N18
      9  712 1519 (N19E32 L= 88)   278     62        1 ( 687/1501- 740/1543)  71.6 E34-E30 N17-N20
     10  971 1411 (N18E13 L=108)   796    254        2 ( 935/1313-1034/1508) -81.3 E15-E10 N12-N25
     11  218 1206 (S10E61 L= 59)   973    138        3 ( 188/1157- 248/1260) -80.5 E64-E58 S12-S06
     12 1275 1225 (N14W10 L=130)   380     65        2 (1240/1198-1308/1255)  26.6 W07-W11 N12-N16
     13  285 1214 (S08E54 L= 66)   469     68        1 ( 259/1184- 315/1234)  18.4 E57-E51 S09-S06
     14 1424 1106 (N11W22 L=142)   262     95        2 (1400/1061-1439/1157) -51.3 W19-W23 N08-N13
     15 1106 1063 (N01W04 L=124)   251     45        2 (1080/1042-1132/1086)  45.0 W02-W05 N00-N02
     16 1725 1001 (N13W46 L=166)   468     62        2 (1700/ 963-1750/1029)  63.4 W43-W47 N10-N14
     17  621  770 (S27E19 L=101)   327     95        0 ( 578/ 752- 656/ 799)  38.7 E22-E17 S28-S24
     18  798  575 (S35E03 L=117)   228     54        1 ( 776/ 557- 820/ 598)  45.0 E04-E01 S36-S33
     19 1665  509 (S16W59 L=180)   930    200        2 (1627/ 464-1696/ 541) -63.4 W55-W63 S18-S14
     20 1325  274 (S40W48 L=168)   917    179        1 (1251/ 260-1396/ 290)  15.3 W42-W54 S42-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