Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1413 1670 (N47W34 L=249)   370     40        1 (1385/1646-1439/1684)  15.9 W30-W37 N45-N48
      2 1571 1632 (N44W50 L=265)   829    124        0 (1509/1602-1613/1657)   0.0 W41-W55 N42-N46
      3  893 1548 (N36E12 L=203)   533     97        0 ( 850/1512- 944/1580) -26.6 E15-E07 N33-N38
      4  381 1509 (N30E55 L=160)   508     74        0 ( 337/1495- 418/1523)   6.3 E60-E50 N29-N31
      5  896 1344 (N22E10 L=205)   240     28        0 ( 880/1318- 913/1371) -56.3 E10-E08 N20-N23
      6 1863 1232 (N17W67 L=282)  2743    281        2 (1784/1109-1929/1316) -41.2 W57-W75 N08-N22
      7 1272 1153 (N11W15 L=230)   534    129        0 (1220/1092-1320/1203) -45.0 W11-W18 N07-N14
      8 1471 1073 (N07W28 L=243)   332     79        0 (1445/1046-1507/1112) -45.0 W26-W30 N05-N09
      9 1330  993 (N02W19 L=234)   706    172        1 (1293/ 917-1356/1060)  81.9 W16-W20 S02-N05
     10 1904 1029 (N04W69 L=284)   679     64        1 (1869/1007-1928/1057)  -5.7 W64-W74 N02-N05
     11  828  901 (S05E12 L=203)   278    102        0 ( 789/ 856- 849/ 942) -51.3 E14-E10 S08-S02
     12 1516  697 (S16W34 L=249)  2915    624        3 (1385/ 468-1628/ 940)  72.1 W28-W40 S32-S01
     13 1209  786 (S11W12 L=227)   357     30        0 (1189/ 752-1228/ 816) -63.4 W10-W13 S13-S09
     14  516  620 (S25E35 L=180)   878    159        0 ( 456/ 594- 582/ 659) -11.3 E39-E29 S26-S22
     15 1045  223 (S55W07 L=222)  1735    165        2 ( 968/ 197-1133/ 248)  -3.4 E01-W16 S58-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