Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1430 1806 (N39W63 L=196)   865    102        2 (1389/1768-1481/1830)   0.0 W54-W73 N37-N40
      2  864 1482 (N33W01 L=134)   704    233        1 ( 768/1457- 987/1503) -21.0 E05-W08 N29-N36
      3 1092 1395 (N23W13 L=146)   270     79        1 (1050/1369-1135/1418)   0.0 W09-W15 N21-N23
      4 1547 1359 (N10W40 L=174)   594    147        1 (1504/1289-1583/1413) -90.0 W38-W41 N05-N13
      5  201 1207 (N31E59 L= 74)  2196    271        5 ( 130/1103- 297/1299) -29.1 E77-E47 N22-N37
      6 1907 1225 (S07W71 L=205)   870     80        1 (1882/1194-1925/1266) -76.0 W66-W74 S08-S04
      7  571 1119 (N18E25 L=108)  1328    385        1 ( 393/1070- 712/1213)   2.3 E39-E14 N15-N20
      8 1852 1145 (S09W60 L=193)   386      0       -1 (1837/1113-1867/1180) -76.0 W58-W61 S11-S07
      9 1815  836 (S27W52 L=185)  1828    282        3 (1739/ 720-1877/ 958)  36.3 W43-W60 S32-S20
     10 1547  776 (S23W27 L=160)   919    233        0 (1495/ 685-1588/ 879)  45.0 W22-W31 S28-S17
     11 1277  794 (S16W10 L=143)   372    205        0 (1223/ 714-1336/ 878)  37.9 W05-W14 S19-S12
     12  402  505 (S14E56 L= 77)   943    132        2 ( 370/ 445- 436/ 576)  71.6 E59-E53 S18-S09
     13  868  453 (S27E24 L=109)   437     93        0 ( 845/ 403- 894/ 502)  40.6 E27-E20 S30-S24
  

    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