Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1567 1741 (N28W69 L=316)   860     62        2 (1535/1706-1590/1771)  15.3 W64-W76 N25-N29
      2  992 1608 (N39W17 L=264)   318    107        0 ( 937/1598-1047/1621) -23.2 W13-W20 N37-N40
      3 1725 1517 (N11W64 L=310)  2027    320        1 (1595/1415-1838/1584) -43.2 W53-W70 N02-N17
      4 1430 1319 (N10W31 L=278)   248     71        1 (1403/1300-1462/1340) -33.7 W29-W33 N08-N11
      5  716 1235 (N24E12 L=234)   227     94        1 ( 679/1211- 765/1250) -18.4 E15-E09 N22-N25
      6 1300 1173 (N06W19 L=266)   425     99        1 (1244/1151-1352/1190) -38.7 W16-W21 N03-N07
      7  803 1093 (N14E11 L=236)   235     77        0 ( 767/1075- 845/1111)   0.0 E12-E07 N13-N15
      8 1104 1029 (N03W04 L=251)   522    155        0 (1037/ 997-1164/1085)   6.3 W00-W09 N01-N04
      9 1815  948 (S22W50 L=297)  1233    172        2 (1774/ 873-1861/1020)  71.6 W45-W55 S25-S16
     10  559  902 (N09E30 L=217)   686    154        2 ( 506/ 841- 600/ 975)  24.0 E34-E25 N05-N12
     11  274  928 (N17E52 L=195)   317     53        1 ( 257/ 898- 299/ 957)  71.6 E53-E49 N15-N18
     12 1232  859 (S09W07 L=254)   182    101        0 (1205/ 825-1270/ 902) -71.6 W06-W08 S12-S06
     13 1673  748 (S29W34 L=281)   630     89        1 (1631/ 717-1722/ 783)   7.1 W30-W38 S30-S27
     14  426  533 (S08E52 L=195)  4390    737       11 ( 230/ 405- 668/ 759) -57.3 E63-E38 S20-N08
     15  928  538 (S20E19 L=228)   533    216        0 ( 892/ 443- 966/ 629)  39.3 E24-E13 S24-S15
     16  556  592 (S08E40 L=207)   286     40        1 ( 533/ 567- 580/ 613)  18.4 E41-E37 S09-S06
     17  653  544 (S13E35 L=212)   422     89        3 ( 619/ 510- 677/ 587)  18.4 E38-E32 S14-S09
     18 1476  531 (S37W15 L=262)   954    153        7 (1411/ 479-1539/ 576)   5.2 W09-W20 S39-S33
     19  735  501 (S17E32 L=215)   247     37        1 ( 715/ 470- 748/ 528)  63.4 E33-E30 S19-S15
     20  495  372 (S20E57 L=190)  1562    189        6 ( 448/ 314- 571/ 426) -90.0 E65-E53 S25-S15
     21  492  305 (S24E64 L=183)   546     65        1 ( 462/ 275- 508/ 340)  29.1 E68-E58 S26-S21
     22  655  244 (S32E55 L=192)  1358    218        1 ( 593/ 195- 689/ 317)  37.6 E63-E47 S36-S26
  

    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