Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1601 1696 (N25W71 L= 40)   825     55        1 (1567/1670-1625/1718) -76.0 W66-W76 N22-N26
      2 1084 1651 (N41W27 L=356)   291    107        0 (1045/1620-1133/1672)   0.0 W22-W31 N40-N41
      3 1614 1597 (N20W61 L= 30)   412     46        1 (1592/1568-1633/1623)  18.4 W58-W64 N17-N20
      4 1413 1580 (N26W44 L= 13)   439    116        0 (1356/1559-1470/1601) -39.8 W40-W46 N23-N28
      5 1325 1478 (N23W32 L=  2)   755    234        1 (1208/1435-1410/1509) -33.7 W24-W36 N18-N26
      6 1034 1407 (N28W12 L=341)   245     84        1 (1011/1365-1056/1447)  80.5 W11-W13 N24-N30
      7  296 1425 (N50E53 L=276)   553     50        0 ( 272/1399- 323/1446)  11.3 E58-E48 N47-N51
      8  529 1306 (N36E25 L=304)   978    181        4 ( 441/1257- 620/1352) -29.7 E32-E18 N31-N40
      9 1078 1307 (N21W11 L=340)   292     89        1 (1042/1287-1128/1333) -31.0 W08-W13 N18-N22
     10 1223 1197 (N11W16 L=345)   233    100        1 (1187/1163-1266/1236) -63.4 W14-W17 N07-N13
     11  717 1199 (N24E14 L=316)   297    106        0 ( 676/1164- 754/1234) -63.4 E15-E11 N21-N27
     12 1611  976 (S13W34 L=  3)  1080    284        0 (1547/ 858-1665/1101)  35.5 W26-W40 S17-S07
     13  844 1011 (N10E11 L=319)   774    235        0 ( 778/ 926- 933/1095) -69.0 E13-E07 N03-N16
     14  264  958 (N20E54 L=275)  1308    285        4 ( 230/ 858- 295/1079) -90.0 E58-E50 N14-N27
     15  554  943 (N13E30 L=299)   269     68        1 ( 514/ 917- 578/ 963) -36.9 E32-E28 N11-N14
     16 1420  718 (S22W15 L=344)   301    139        0 (1362/ 692-1476/ 759)   0.0 W10-W19 S22-S20
     17  253  724 (N07E62 L=267)   427     66        0 ( 215/ 711- 290/ 738)  -6.3 E66-E57 N05-N07
     18 1613  697 (S30W29 L=358)   898    115        5 (1568/ 646-1660/ 738)  26.6 W24-W33 S32-S26
     19 1070  305 (S39E21 L=308)   634    142        0 (1043/ 244-1092/ 373)  51.3 E26-E18 S43-S33
     20  832  332 (S30E35 L=294)   525     97        0 ( 797/ 309- 873/ 366)  14.0 E38-E30 S31-S28
  

    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