Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  886 1840 (N63W30 L= 71)   714     97        2 ( 850/1806- 919/1883)   9.5 W23-W41 N59-N64
      2 1229 1720 (N40W41 L= 82)   308     46        1 (1205/1694-1254/1746) -90.0 W39-W43 N37-N41
      3  684 1714 (N60E02 L= 39)   374     98        0 ( 651/1685- 727/1734)   6.3 E06-W03 N58-N61
      4 1524 1707 (N28W62 L=103)   610     58        1 (1493/1682-1550/1728) -63.4 W58-W65 N26-N30
      5 1439 1534 (N22W42 L= 83)  1050    337        1 (1263/1494-1566/1581) -41.2 W33-W49 N16-N30
      6 1754 1353 (N03W57 L= 98)   484     87        0 (1739/1312-1774/1404)  68.2 W55-W59 N00-N05
      7 1216 1250 (N14W17 L= 58)   276    121        0 (1189/1200-1232/1303)  71.6 W14-W18 N11-N17
      8 1050 1226 (N17W07 L= 48)   798    295        2 ( 962/1174-1135/1279) -33.7 W02-W11 N14-N21
      9 1917 1183 (S12W70 L=111)  2774    206        5 (1876/1087-1951/1268)  51.3 W63-W79 S17-S07
     10  499 1218 (N30E29 L= 12)   400    123        0 ( 442/1200- 552/1252)   0.0 E33-E23 N29-N31
     11 1170 1162 (N10W12 L= 53)   215     82        2 (1147/1125-1202/1197)  76.0 W09-W13 N08-N12
     12 1256 1153 (N07W16 L= 57)   255     76        1 (1214/1136-1282/1181) -26.6 W13-W18 N06-N08
     13  899 1146 (N16E04 L= 37)   381    153        0 ( 821/1132- 974/1160) -32.0 E08-W00 N13-N19
     14  398 1116 (N27E38 L=  3)   555    124        2 ( 342/1097- 472/1136) -20.0 E43-E32 N24-N28
     15  214  867 (N16E60 L=340)   713     95        3 ( 198/ 816- 233/ 918)  50.2 E63-E57 N12-N18
     16 1169  879 (S05W04 L= 45)   363     64        1 (1135/ 855-1199/ 899)   0.0 W01-W06 S06-S03
     17  895  777 (S04E14 L= 27)   316    104        1 ( 862/ 742- 946/ 802)   0.0 E15-E10 S05-S02
     18  915  668 (S10E15 L= 25)   388    124        0 ( 876/ 613- 945/ 727) -90.0 E16-E14 S14-S06
     19 1535  490 (S41W19 L= 60)   862    125        4 (1485/ 453-1596/ 535)   0.0 W14-W25 S42-S38
     20  464  388 (S17E59 L=342)  2261    287        5 ( 434/ 268- 491/ 528)  31.8 E77-E47 S26-S08
     21  745  459 (S19E33 L=  8)  1040    290        0 ( 639/ 412- 858/ 520) -45.0 E38-E26 S24-S13
     22 1134  250 (S45E20 L= 21)  1765    333        4 (1008/ 162-1279/ 335)   5.9 E36-E05 S49-S42
  

    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