Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  583 1725 (N32E47 L=284)   441     29        0 ( 556/1705- 606/1742)  33.7 E49-E44 N30-N33
      2  509 1646 (N25E48 L=283)   356     33        1 ( 489/1620- 534/1669) -26.6 E51-E45 N23-N26
      3  275 1494 (N14E63 L=267)   571     58        2 ( 248/1469- 300/1521) -33.7 E67-E59 N11-N15
      4 1122 1407 (N18W00 L=331)   504    204        0 (1020/1390-1224/1424)   9.5 E06-W06 N16-N19
      5  315 1317 (N03E52 L=279)   753    112        4 ( 294/1259- 342/1369) -51.3 E55-E49 N00-N05
      6 1517 1279 (N17W27 L=357)  2042    317        7 (1396/1165-1608/1360) -34.7 W17-W33 N10-N21
      7 1127 1300 (N11W02 L=333)   197     85        0 (1103/1264-1166/1328)  68.2 W00-W03 N08-N13
      8  194 1299 (N01E64 L=266)   617     90        1 ( 170/1266- 238/1323)   7.1 E68-E58 S01-N02
      9 1353 1274 (N13W16 L=347)   327     55        2 (1320/1238-1380/1297) -33.7 W13-W17 N11-N15
     10 1057 1264 (N08E02 L=329)   226     63        0 (1035/1231-1070/1292) -45.0 E03-W00 N06-N09
     11 1410 1235 (N12W20 L=350)   649    139        3 (1369/1164-1439/1286) -82.9 W17-W21 N07-N15
     12 1482 1090 (N05W26 L=357)   205    104        0 (1431/1077-1528/1102)  15.9 W22-W29 N04-N06
     13 1712  899 (S02W46 L= 17)   526    100        1 (1656/ 880-1764/ 918)  18.4 W41-W50 S03-N00
     14 1378  891 (S08W23 L=354)   255    143        1 (1331/ 862-1430/ 913)  18.4 W20-W26 S10-S07
     15  443  828 (S25E36 L=295)  1005    266        0 ( 342/ 768- 570/ 870)  22.8 E45-E26 S29-S21
     16 1582  809 (S09W38 L=  9)   232     67        0 (1552/ 782-1612/ 835)  53.1 W36-W40 S11-S07
     17 1234  654 (S24W19 L=350)  3758    957        3 ( 943/ 576-1647/ 816)   8.1 W00-W49 S29-S18
     18  463  655 (S36E35 L=295)   278     66        2 ( 433/ 641- 498/ 674)   9.5 E38-E32 S36-S34
     19 1794  598 (S16W66 L= 37)  1078    178        2 (1720/ 549-1864/ 642)  34.7 W60-W74 S20-S11
     20  492  532 (S44E35 L=296)  2080    538        2 ( 272/ 482- 756/ 561)   1.1 E64-E10 S46-S41
     21  940  458 (S42W05 L=335)   282     95        0 ( 894/ 443- 996/ 479)  -6.3 W00-W09 S42-S41
  

    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