Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  479 1668 (N34E48 L=132)   910    218        0 ( 437/1629- 529/1714) -24.8 E54-E41 N30-N37
      2 1623 1416 (N25W38 L=219)   616     93        0 (1571/1390-1663/1436)   0.0 W34-W41 N22-N26
      3 1831 1291 (N19W56 L=237)   591     70        1 (1807/1256-1854/1320) -45.0 W54-W59 N17-N21
      4  400 1266 (N07E43 L=138)   617    103        2 ( 378/1218- 430/1317) -71.6 E44-E39 N03-N09
      5 1922 1123 (N10W68 L=248)  1195    177        0 (1894/1036-1953/1182) -45.0 W63-W74 N05-N13
      6 1312  968 (S06W18 L=198)   723    221        1 (1267/ 862-1343/1087)  85.6 W15-W19 S12-N01
      7 1677  953 (S03W43 L=223)   367    110        0 (1626/ 932-1722/ 971)  15.9 W39-W46 S05-S01
      8  799  883 (S15E13 L=167)   203     96        0 ( 760/ 852- 853/ 898)  26.6 E15-E09 S16-S13
      9 1696  813 (S11W47 L=227)   310     57        0 (1672/ 788-1718/ 845)  45.0 W45-W48 S12-S09
     10  449  795 (S22E37 L=143)   291     82        0 ( 417/ 769- 492/ 816)  26.6 E39-E33 S23-S20
     11 1807  638 (S20W63 L=243)  2889    354        4 (1707/ 548-1903/ 707)  38.7 W54-W74 S26-S14
     12 1497  429 (S38W43 L=223)   934    245        0 (1384/ 398-1603/ 470)  26.6 W34-W50 S40-S33
     13 1320  284 (S51W37 L=217)   361     58        0 (1287/ 268-1343/ 308)  45.0 W33-W38 S52-S48
  

    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