Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  954 1816 (N52E28 L=199)   423     38        1 ( 936/1795- 981/1840) -15.9 E31-E24 N49-N54
      2 1026 1726 (N45E16 L=211)  1105    144        2 ( 970/1691-1095/1767)   5.2 E20-E08 N42-N48
      3 1025 1601 (N36E11 L=216)   371     89        0 ( 990/1584-1073/1622)  18.4 E13-E07 N33-N37
      4  366 1528 (N19E59 L=168)  1152    225        0 ( 298/1445- 440/1615) -13.2 E83-E47 N15-N24
      5  278 1413 (N11E63 L=165)  1017    163        4 ( 250/1363- 300/1495) -66.0 E67-E57 N07-N16
      6 1727 1237 (N24W46 L=274)   290     61        0 (1698/1209-1758/1255)  -9.5 W43-W49 N22-N25
      7 1313 1183 (N13W15 L=242)   820    181        4 (1243/1136-1372/1227)  45.0 W11-W18 N09-N17
      8 1241 1117 (N08W11 L=239)   704    224        2 (1187/1051-1304/1219) -41.6 W06-W16 N05-N13
      9  737 1181 (N04E20 L=207)   286     79        0 ( 704/1161- 771/1209) -21.8 E22-E17 N03-N05
     10 1030 1127 (N06E01 L=226)   468    142        0 (1014/1060-1050/1200) -69.4 E03-W00 N01-N09
     11  378 1029 (S10E42 L=185)   739    265        0 ( 361/ 909- 417/1140)  90.0 E44-E40 S17-S03
     12 1335 1100 (N09W18 L=245)   207     51        1 (1308/1080-1356/1121)  45.0 W16-W18 N07-N10
     13 1327 1033 (N05W18 L=245)   195     77        1 (1302/1002-1350/1061)  63.4 W16-W19 N02-N06
     14 1537 1016 (N07W32 L=259)   297    143        0 (1484/ 975-1571/1036) -18.4 W28-W34 N05-N08
     15 1276  776 (S11W19 L=247)   865    349        1 (1205/ 646-1359/ 927)  81.5 W16-W21 S20-N00
     16  291  861 (S22E50 L=178)  1064    184        0 ( 211/ 823- 374/ 885)  15.5 E59-E41 S25-S19
     17 1647  614 (S15W51 L=278)   350     79        0 (1600/ 591-1679/ 637)  -6.3 W45-W54 S15-S13
     18 1549  454 (S26W51 L=278)   478    115        1 (1492/ 429-1597/ 477)  35.5 W46-W54 S29-S24
     19  539  409 (S50E31 L=196)   862    166        3 ( 460/ 364- 605/ 447)  -7.1 E40-E23 S52-S48
     20  674  313 (S56E17 L=210)   954    101        0 ( 639/ 279- 722/ 358) -54.5 E21-E11 S58-S51
     21  955  236 (S56W15 L=242)  1003    133        3 ( 906/ 193-1011/ 286) -18.4 W08-W23 S59-S52
  

    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