Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1474 1712 (N31W55 L=105)   452     59        1 (1456/1678-1490/1743)  29.7 W51-W59 N28-N32
      2 1596 1536 (N17W52 L=102)  1373    292        2 (1488/1427-1699/1629) -72.6 W47-W56 N09-N25
      3 1314 1539 (N25W32 L= 82)  2407    579        4 (1076/1437-1559/1593) -29.7 W16-W44 N13-N32
      4 1740 1505 (N12W63 L=113)   491     54        1 (1710/1485-1768/1525)  -7.1 W59-W67 N10-N13
      5 1228 1405 (N20W21 L= 71)   341    138        1 (1164/1387-1296/1424) -26.6 W17-W25 N17-N21
      6 1857 1254 (S05W63 L=113)   423     52        1 (1839/1224-1873/1279)  71.6 W60-W65 S06-S03
      7  248 1094 (N24E52 L=358)   895    143        1 ( 171/1061- 306/1128) -21.8 E61-E45 N21-N27
      8 1564 1076 (S07W33 L= 83)   263     34        1 (1538/1057-1588/1098) -14.0 W30-W34 S07-S05
      9 1568  992 (S11W31 L= 81)   366    114        0 (1508/ 972-1619/1019) -14.0 W27-W35 S12-S09
     10  640  832 (N01E26 L= 24)  1442    284        3 ( 520/ 741- 735/ 899) -28.6 E34-E22 S05-N05
     11 1112  839 (S09W01 L= 50)   647    136        3 (1056/ 796-1155/ 897) -71.6 E02-W02 S11-S05
     12  215  844 (N10E59 L=351)   692    119        3 ( 170/ 808- 271/ 877) -29.1 E64-E53 N07-N12
     13  981  774 (S09E08 L= 42)   292     77        2 ( 944/ 751-1010/ 811)   0.0 E10-E06 S10-S07
     14 1063  730 (S14E05 L= 45)   285    139        1 ( 997/ 709-1121/ 761) -14.0 E08-W00 S14-S11
     15  738  666 (S10E25 L= 25)   456     91        1 ( 704/ 614- 766/ 709)  80.5 E26-E23 S13-S07
     16  405  679 (S02E47 L=  3)   417     91        2 ( 370/ 647- 446/ 703)   0.0 E50-E43 S03-S01
     17 1228  592 (S26W01 L= 51)  1401    341        3 (1133/ 542-1359/ 687) -36.9 E03-W10 S29-S18
     18  451  513 (S13E50 L=359)  4541    415       14 ( 350/ 337- 588/ 638)  45.0 E69-E37 S23-S04
     19  828  611 (S15E21 L= 29)   298    114        0 ( 775/ 596- 885/ 626)  -8.1 E24-E17 S16-S13
     20  971  345 (S36E23 L= 27)  3971    610        4 ( 824/ 153-1088/ 605)  41.4 E48-E12 S48-S18
     21  361  387 (S19E70 L=340)   642     46        2 ( 337/ 362- 381/ 411)   8.7 E78-E65 S20-S17
  

    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