Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  715 1660 (N32E38 L=197)   581    115        0 ( 662/1630- 754/1683)  23.2 E41-E34 N29-N33
      2 1025 1573 (N33E12 L=223)  1030    181        2 ( 970/1512-1092/1636) -30.3 E18-E06 N29-N36
      3  683 1491 (N20E32 L=203)   277     67        0 ( 646/1479- 720/1505)  21.8 E34-E29 N18-N21
      4  953 1272 (N12E09 L=226)   278    137        0 ( 900/1256-1029/1292)   7.1 E12-E04 N11-N12
      5 1594 1125 (N16W35 L=270)   607     94        2 (1571/1089-1624/1169) -38.7 W32-W37 N13-N18
      6  173 1064 (S14E66 L=169)   919     96        2 ( 140/1025- 208/1113)  45.0 E71-E60 S17-S11
      7 1609  946 (N06W39 L=274)   287     68        1 (1588/ 913-1639/ 963)  53.1 W36-W40 N03-N07
      8  990  768 (S17W03 L=238)   217     18        0 ( 967/ 749-1012/ 785)   0.0 W01-W04 S18-S15
      9 1443  722 (S11W32 L=267)   849    186        1 (1359/ 691-1521/ 750)  10.3 W27-W38 S13-S08
     10 1273  661 (S18W23 L=258)   266    117        0 (1235/ 620-1325/ 696)  60.3 W21-W25 S21-S14
     11  766  669 (S28E10 L=225)   209     67        0 ( 726/ 660- 804/ 677)  18.4 E12-E06 S29-S26
     12  677  336 (S56E13 L=222)   429     88        1 ( 631/ 320- 710/ 356)  21.8 E19-E09 S59-S53
     13 1494  282 (S38W66 L=301)   644     70        1 (1467/ 262-1531/ 310)  -4.1 W59-W74 S38-S35
  

    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