Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  981 1888 (N61W46 L= 33)   451     75        0 ( 945/1855-1015/1912)   3.4 W37-W54 N60-N62
      2  589 1682 (N61E14 L=333)   897    189        0 ( 502/1646- 678/1717)  -4.8 E27-E02 N58-N62
      3 1660 1610 (N18W65 L= 53)   611     73        0 (1635/1588-1684/1631)   7.1 W62-W70 N17-N19
      4 1591 1588 (N20W57 L= 44)  1045    126        3 (1531/1554-1656/1626) -49.4 W53-W61 N16-N23
      5 1753 1502 (N10W66 L= 54)  4094    391        8 (1675/1364-1824/1600)  76.0 W55-W76 N00-N16
      6 1161 1544 (N31W25 L= 12)   458    163        1 (1088/1513-1229/1586)   0.0 W19-W31 N30-N32
      7 1599 1516 (N16W52 L= 40)   360     52        0 (1565/1505-1633/1533)  -9.5 W49-W55 N14-N17
      8 1217 1448 (N24W24 L= 11)   602    252        0 (1111/1424-1333/1484) -18.4 W17-W32 N21-N27
      9  654 1448 (N41E12 L=335)   345     90        0 ( 615/1432- 704/1463) -15.9 E15-E08 N39-N41
     10 1753 1393 (N05W59 L= 46)   911    126        2 (1716/1334-1784/1440) -90.0 W56-W61 N00-N08
     11 1181 1374 (N21W19 L=  6)   235    109        0 (1125/1352-1225/1390) -18.4 W15-W21 N19-N21
     12  289 1333 (N43E49 L=298)   715     93        1 ( 257/1306- 335/1372) -24.4 E54-E43 N40-N45
     13 1232 1300 (N16W19 L=  6)   261    101        0 (1220/1248-1245/1349)  63.4 W18-W21 N12-N18
     14 1830 1278 (S04W61 L= 48)  1541    121        2 (1769/1240-1878/1321)   0.0 W53-W69 S05-N00
     15  818 1211 (N22E07 L=340)   672    247        0 ( 761/1137- 895/1250)  26.6 E11-E02 N17-N24
     16 1671 1152 (S05W42 L= 29)   628    158        0 (1646/1078-1710/1223)  36.9 W38-W47 S08-S02
     17  866 1104 (N15E07 L=340)   315    107        0 ( 843/1052- 891/1153)  38.7 E09-E04 N12-N17
     18  211 1038 (N26E58 L=289)   462     75        2 ( 190/1002- 228/1074) -63.4 E60-E55 N23-N27
     19  576  583 (S08E39 L=308)   956    213        0 ( 548/ 496- 603/ 701)  56.3 E43-E33 S12-N00
     20 1120  609 (S19E06 L=341)   689    227        0 (1059/ 512-1161/ 700)  36.0 E12-E01 S24-S14
     21 1700  536 (S45W36 L= 23)  1481    219        2 (1609/ 481-1781/ 590)  -2.7 W26-W47 S46-S41
     22  763  247 (S34E46 L=301)  2124    338        2 ( 640/ 166- 867/ 325)  10.7 E69-E32 S38-S30
  

    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