Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  586 1724 (N32E46 L=284)   409     44        0 ( 556/1704- 608/1740)  -9.5 E49-E43 N30-N33
      2  290 1473 (N12E60 L=270)  1054    124        2 ( 253/1425- 321/1516) -45.0 E65-E55 N09-N15
      3 1129 1405 (N18W00 L=331)   515    177        1 (1037/1389-1227/1422)   5.2 E05-W06 N16-N19
      4  460 1378 (N07E41 L=289)   347     95        0 ( 411/1361- 508/1395)  15.9 E44-E37 N06-N08
      5 1521 1284 (N17W27 L=357)  2022    293        9 (1403/1190-1613/1368) -11.3 W18-W33 N11-N21
      6  323 1312 (N02E51 L=279)   624    104        0 ( 306/1258- 345/1365)  90.0 E52-E49 N00-N05
      7 1138 1300 (N11W03 L=333)   210     86        0 (1111/1262-1178/1330)  59.0 W01-W04 N08-N13
      8  203 1302 (N01E63 L=267)   604     73        1 ( 176/1275- 242/1323)  -6.3 E67-E58 N00-N02
      9 1360 1271 (N13W16 L=347)   317     60        1 (1329/1232-1388/1293) -45.0 W14-W17 N11-N15
     10 1065 1259 (N08E01 L=329)   211     38        0 (1051/1228-1079/1289) -71.6 E02-W00 N06-N09
     11 1418 1238 (N12W20 L=350)   567    119        2 (1379/1190-1446/1285)  90.0 W18-W22 N09-N15
     12 1490 1088 (N05W27 L=357)   230    115        1 (1431/1075-1534/1104)  15.9 W22-W29 N04-N06
     13 1715  897 (S02W46 L= 16)   456    103        0 (1663/ 881-1765/ 914)  20.6 W42-W50 S03-N00
     14  436  823 (S26E37 L=294)   898    224        0 ( 349/ 764- 546/ 860)  23.6 E44-E28 S30-S22
     15 1355  808 (S13W23 L=353)   188     64        1 (1331/ 782-1381/ 839) -45.0 W21-W25 S14-S11
     16 1242  652 (S24W20 L=350)  3592    964        5 ( 948/ 570-1651/ 830)   9.1 W00-W50 S29-S17
     17  467  655 (S36E35 L=295)   278     70        0 ( 441/ 641- 500/ 675) -21.8 E37-E31 S36-S34
     18 1806  602 (S16W67 L= 38)   868    121        2 (1751/ 578-1865/ 638)  26.6 W61-W74 S17-S11
     19  495  531 (S44E34 L=296)  2080    553        1 ( 274/ 483- 759/ 560)   1.1 E63-E10 S46-S40
     20  943  457 (S42W05 L=335)   288    115        0 ( 889/ 442-1000/ 477)   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