Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1283 1802 (N51W51 L=171)  1591    229        1 (1177/1759-1382/1839)  -5.9 W36-W66 N48-N52
      2 1718 1324 (N10W54 L=174)  1284    349        1 (1579/1274-1861/1402)  -6.2 W42-W79 N08-N13
      3 1639 1140 (N02W42 L=162)   265     91        0 (1599/1113-1674/1170)   8.1 W38-W45 N00-N02
      4  631 1074 (N16E24 L= 96)   463    183        2 ( 578/1004- 692/1148) -63.4 E27-E20 N10-N20
      5 1826 1039 (S09W57 L=177)  1526    180        3 (1770/ 975-1863/1095) -45.0 W51-W62 S13-S05
      6 1706 1034 (S06W45 L=165)   332     79        0 (1689/1000-1723/1072)  63.4 W43-W46 S07-S03
      7 1712  965 (S10W44 L=165)   879    155        3 (1664/ 921-1754/1012)  23.2 W40-W48 S13-S07
      8 1811  956 (S13W54 L=174)   400     82        0 (1764/ 934-1843/ 976) -26.6 W49-W58 S14-S10
      9 1719  804 (S21W44 L=164)  1271    302        4 (1629/ 656-1801/ 894)  30.5 W35-W52 S28-S14
     10  702  825 (S00E23 L= 97)   308    167        1 ( 678/ 748- 745/ 882) -90.0 E23-E21 S05-N03
     11 1126  745 (S12W01 L=122)   632    238        2 (1047/ 703-1173/ 808)  20.6 E03-W05 S14-S08
     12  460  696 (S05E43 L= 78)   272     86        1 ( 430/ 655- 490/ 722)  29.7 E46-E39 S07-S03
     13  334  671 (S06E55 L= 66)   370     67        1 ( 305/ 643- 365/ 700) -36.9 E56-E51 S07-S03
     14  840  592 (S17E19 L=101)   253     83        1 ( 806/ 571- 887/ 618) -11.3 E21-E16 S17-S15
     15  379  479 (S19E60 L= 60)  1415    213        3 ( 336/ 395- 451/ 567)  85.6 E63-E57 S25-S12
     16  909  519 (S23E17 L=104)   313     79        2 ( 891/ 476- 936/ 554)  68.2 E18-E14 S25-S20
     17 1035  427 (S32E11 L=109)   704    145        2 ( 976/ 397-1109/ 456)   5.7 E15-E05 S32-S29
     18  620  403 (S27E42 L= 79)   823     87        3 ( 588/ 350- 654/ 441)  49.4 E44-E38 S30-S23
     19 1283  267 (S52W04 L=125)   635    108        0 (1245/ 243-1319/ 298)  20.6 W00-W08 S54-S49
  

    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