Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  584 1752 (N55E51 L=171)   726     90        1 ( 554/1711- 605/1780) -18.4 E62-E44 N51-N57
      2  486 1722 (N52E63 L=159)   714     58        1 ( 462/1694- 511/1743) -14.9 E71-E56 N49-N53
      3 1015 1571 (N40W00 L=223)   899    209        2 ( 941/1512-1095/1637) -39.3 E05-W06 N35-N44
      4 1569 1465 (N30W43 L=266)   631    141        0 (1505/1426-1627/1497) -29.1 W38-W47 N27-N32
      5 1207 1446 (N30W14 L=236)   223     74        0 (1172/1427-1251/1460) -11.3 W11-W16 N28-N31
      6  173 1257 (N17E71 L=151)  2529    147        4 ( 140/1191- 210/1324)  76.0 E78-E66 N13-N21
      7 1541 1260 (N17W36 L=258)   352     89        0 (1500/1246-1590/1276)   0.0 W32-W39 N15-N17
      8  254 1174 (N13E57 L=165)  1037    156        2 ( 216/1104- 283/1248)  83.7 E61-E53 N08-N17
      9  642 1188 (N14E25 L=198)   211     50        1 ( 630/1158- 659/1214) -71.6 E25-E23 N12-N15
     10 1875 1146 (N08W67 L=289)   987    139        1 (1842/1110-1910/1208) -50.2 W63-W73 N05-N11
     11 1594 1095 (N06W38 L=260)   550    175        2 (1561/1020-1620/1173)  56.3 W34-W40 N02-N11
     12  443  852 (S07E39 L=183)  1155    269        1 ( 362/ 776- 535/ 948) -42.5 E45-E32 S11-N00
     13  305  690 (S18E55 L=168)  6078    530       17 ( 176/ 534- 424/ 851) -68.2 E71-E45 S27-S07
     14  901  737 (S14E08 L=214)   493    181        0 ( 820/ 698- 948/ 800)  32.0 E13-E05 S16-S09
     15 1241  687 (S18W13 L=236)   204    124        0 (1180/ 667-1279/ 702)   9.5 W09-W15 S19-S16
     16  518  613 (S22E37 L=186)  1126    207        1 ( 472/ 526- 578/ 695)  47.5 E42-E30 S28-S16
     17  990  467 (S33E04 L=219)  2221    442        3 ( 869/ 321-1104/ 634)  52.0 E14-W04 S44-S20
     18 1167  573 (S25W09 L=231)   290    134        0 (1118/ 541-1232/ 604)  26.6 W05-W13 S27-S23
     19  808  343 (S43E20 L=202)   713    104        2 ( 771/ 311- 858/ 374) -18.4 E23-E15 S45-S39
     20  590  252 (S52E53 L=169)   611     62        1 ( 572/ 222- 607/ 284)  35.0 E60-E46 S55-S48
     21  773  213 (S56E32 L=191)   477     25        2 ( 750/ 190- 794/ 234)  68.2 E34-E28 S59-S53
     22 1248  171 (S63W29 L=251)   638     57        0 (1229/ 138-1262/ 203) -32.9 W22-W39 S69-S58
  

    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