Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1096 1549 (N30W08 L=170)   735    181        0 (1022/1484-1165/1600) -45.0 W03-W11 N25-N33
      2  478 1483 (N29E37 L=125)   849    152        3 ( 422/1443- 552/1537) -28.3 E42-E29 N26-N33
      3  271 1299 (N19E52 L=109)  3530    371        9 ( 180/1164- 348/1438)  76.8 E61-E44 N11-N28
      4 1595 1327 (N13W39 L=201)   301    107        0 (1546/1311-1645/1354) -23.2 W35-W42 N12-N15
      5 1494 1209 (N07W30 L=192)   255     80        0 (1453/1196-1534/1223) -11.3 W27-W32 N05-N07
      6 1276 1099 (N01W15 L=177)   718    327        2 (1147/1048-1411/1131)  -3.6 W07-W23 S02-N03
      7 1269  982 (S06W14 L=176)   176     58        0 (1239/ 965-1296/1004) -26.6 W12-W16 S06-S04
      8 1836  970 (S08W57 L=218)   314     55        0 (1823/ 933-1847/ 997)  63.4 W55-W58 S10-S06
      9  694  901 (S08E21 L=141)   208    132        0 ( 629/ 877- 741/ 932) -29.7 E24-E17 S09-S05
     10  460  849 (S09E37 L=125)   940    291        0 ( 408/ 721- 523/ 931)  42.5 E43-E31 S16-S04
     11 1226  873 (S12W11 L=173)   458    101        1 (1184/ 841-1286/ 903)   0.0 W08-W15 S13-S10
     12 1046  828 (S14W00 L=162)  1454    394        4 ( 909/ 759-1165/ 902) -19.7 E07-W07 S18-S10
     13  200  788 (S11E62 L=100)  1745    233        4 ( 102/ 745- 273/ 840)   6.1 E80-E52 S13-S08
     14  521  775 (S14E34 L=128)   220     89        0 ( 493/ 729- 541/ 807)  38.7 E36-E31 S16-S12
     15 1096  644 (S26W03 L=164)   227     64        1 (1068/ 615-1124/ 678)  36.9 W00-W04 S27-S23
     16 1471  525 (S35W31 L=192)   298     86        0 (1433/ 499-1503/ 560)  45.0 W27-W33 S37-S33
     17  398  502 (S30E53 L=109)   551     52        1 ( 369/ 485- 432/ 527) -21.8 E56-E49 S31-S28
     18  346  440 (S34E64 L= 98)  1103    137        3 ( 325/ 370- 374/ 507)  26.6 E75-E57 S38-S29
     19 1668  469 (S40W53 L=215)  1066    113        1 (1602/ 443-1726/ 493)   0.0 W45-W62 S42-S38
  

    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