Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  354 1347 (N28E50 L=150)   602    143        1 ( 293/1330- 431/1370)   0.0 E57-E42 N26-N29
      2 1733 1305 (N16W55 L=255)   387    123        0 (1696/1249-1769/1343) -60.3 W52-W56 N11-N18
      3  902 1260 (N20E06 L=194)   265    104        1 ( 870/1216- 938/1285) -45.0 E08-E04 N17-N21
      4  220 1119 (N13E61 L=140)   430     46        1 ( 206/1088- 245/1147) -71.6 E62-E57 N11-N14
      5 1445  918 (S05W26 L=226)   757    219        2 (1354/ 887-1536/ 965) -18.4 W20-W32 S06-S01
      6  944  940 (N00E05 L=195)   239     71        1 ( 914/ 917- 978/ 958)  14.0 E07-E03 S01-N01
      7 1720  864 (S11W48 L=248)   658    137        2 (1678/ 835-1772/ 922) -41.2 W43-W53 S13-S06
      8  322  752 (S10E52 L=148)   611     96        2 ( 299/ 699- 353/ 792)  80.5 E54-E48 S12-S06
      9  267  727 (S11E59 L=142)   390     58        0 ( 253/ 697- 283/ 758) -76.0 E60-E57 S13-S09
     10 1496  591 (S27W31 L=231)   607    210        1 (1465/ 506-1535/ 686)  90.0 W28-W32 S32-S20
     11  856  642 (S18E13 L=187)   272     65        1 ( 828/ 627- 900/ 663)  11.3 E15-E10 S19-S16
     12  471  532 (S24E45 L=156)   357    102        0 ( 436/ 501- 509/ 571) -51.3 E46-E42 S26-S21
     13  753  512 (S27E23 L=178)   726    139        4 ( 709/ 464- 799/ 570)  45.0 E26-E18 S30-S22
     14  696  388 (S36E31 L=169)   526    102        1 ( 677/ 334- 726/ 430)  63.4 E34-E27 S40-S32
     15  674  249 (S49E44 L=157)   518     66        0 ( 655/ 226- 703/ 282) -76.0 E47-E40 S51-S45
  

    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