Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  596 1724 (N32E46 L=284)   389     25        0 ( 569/1703- 615/1741) -18.4 E48-E42 N30-N33
      2 1010 1547 (N25E09 L=320)   229     92        0 ( 981/1496-1024/1585) -56.3 E11-E07 N21-N27
      3  294 1463 (N11E59 L=270)  1024    161        2 ( 257/1400- 322/1512) -41.2 E65-E54 N07-N14
      4 1136 1403 (N18W01 L=331)   535    185        0 (1049/1387-1235/1423)   5.2 E04-W07 N16-N19
      5  472 1378 (N08E40 L=289)   300     73        0 ( 438/1360- 513/1395)  21.8 E42-E37 N06-N08
      6  331 1318 (N03E50 L=279)   612     95        0 ( 309/1268- 358/1366)  78.7 E51-E48 N00-N05
      7 1526 1281 (N17W27 L=357)  1939    251        8 (1413/1188-1609/1366) -12.1 W18-W33 N11-N21
      8 1144 1296 (N11W03 L=333)   184     86        0 (1120/1260-1183/1325)  68.2 W01-W04 N08-N13
      9  204 1300 (N01E63 L=267)   554     58        1 ( 179/1281- 239/1321)   0.0 E66-E58 N00-N02
     10 1072 1260 (N08E01 L=329)   242     66        0 (1049/1223-1087/1290) -63.4 E02-W00 N05-N09
     11 1368 1274 (N14W17 L=346)   245     45        1 (1336/1249-1397/1290) -14.0 W14-W18 N12-N14
     12 1426 1236 (N12W21 L=350)   515    107        1 (1387/1191-1455/1283)  90.0 W18-W22 N09-N15
     13 1505 1084 (N05W28 L=357)   225     90        1 (1454/1072-1546/1096)  18.4 W24-W30 N04-N06
     14 1670  859 (S05W44 L= 13)   677    257        0 (1563/ 776-1768/ 912)  40.2 W37-W50 S11-N00
     15  442  821 (S26E36 L=294)   906    234        0 ( 352/ 765- 556/ 860)  22.4 E44-E27 S29-S22
     16 1273  643 (S24W22 L=352)  3978    921        2 ( 956/ 565-1659/ 810)   8.0 W00-W50 S29-S17
     17  471  655 (S36E35 L=295)   297     75        0 ( 443/ 639- 509/ 675) -11.3 E36-E31 S37-S34
     18 1814  602 (S15W68 L= 38)   735    121        3 (1756/ 583-1866/ 638)  26.6 W62-W75 S17-S11
     19  509  530 (S44E33 L=297)  2096    539        5 ( 281/ 481- 764/ 560)   2.2 E63-E09 S46-S40
     20  947  456 (S42W05 L=335)   301    104        1 ( 897/ 440-1005/ 475)   0.0 W00-W09 S43-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