Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1259 1562 (N30W19 L=168)   782    186        0 (1183/1510-1325/1626) -45.0 W14-W22 N26-N34
      2  648 1501 (N29E24 L=126)   944    211        2 ( 572/1460- 744/1572) -31.6 E29-E16 N25-N34
      3  404 1329 (N19E40 L=109)  1503    327        7 ( 356/1234- 444/1468) -82.4 E44-E36 N13-N28
      4  460 1364 (N21E36 L=113)   705    197        0 ( 428/1274- 509/1449) -57.5 E39-E31 N15-N26
      5 1726 1336 (N14W50 L=199)   336     47        0 (1698/1316-1754/1358) -36.9 W47-W52 N12-N15
      6  274 1252 (N16E51 L= 98)   384    107        2 ( 241/1210- 307/1282)  26.6 E54-E48 N13-N17
      7 1483 1110 (N01W28 L=178)   992    367        3 (1352/1037-1616/1158)  -6.3 W19-W37 S03-N03
      8 1469  990 (S06W27 L=176)   294     98        0 (1438/ 948-1496/1021) -53.1 W25-W28 S08-S04
      9  149  895 (S05E66 L= 83)  1369    152        5 ( 115/ 825- 171/ 976)  82.9 E70-E63 S08-N00
     10  219  838 (S09E58 L= 91)  2394    303       10 ( 157/ 719- 279/ 963)  77.9 E67-E52 S15-S01
     11 1420  891 (S12W24 L=173)   539     96        2 (1383/ 855-1451/ 937)  53.1 W21-W25 S14-S09
     12 1295  854 (S14W16 L=165)   950    289        2 (1180/ 773-1366/ 901) -24.4 W08-W20 S18-S10
     13 1834  769 (S20W60 L=209)   759    164        3 (1782/ 717-1863/ 817)  90.0 W54-W63 S23-S17
     14 1146  780 (S17W06 L=155)   277    105        0 (1100/ 750-1192/ 811)  18.4 W03-W09 S19-S15
     15  216  701 (S17E63 L= 86)  1475    151        6 ( 176/ 651- 265/ 741) -45.0 E69-E58 S20-S13
     16 1268  645 (S26W14 L=163)   236     88        0 (1224/ 627-1303/ 667)   0.0 W11-W16 S27-S25
     17  527  513 (S31E40 L=109)   441     83        2 ( 482/ 491- 570/ 543)  -7.1 E44-E36 S32-S28
     18 1587  512 (S37W42 L=191)   317     54        1 (1560/ 491-1617/ 533)  11.3 W39-W44 S37-S35
     19  424  403 (S37E57 L= 92)  1404    206        4 ( 402/ 297- 457/ 494)  24.1 E77-E47 S44-S31
     20 1702  453 (S41W60 L=209)  1292    142        5 (1622/ 433-1774/ 477)   0.0 W48-W74 S42-S39
  

    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