Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  981 1605 (N26E21 L= 90)  1066    243        2 ( 924/1498-1042/1710) -34.5 E29-E13 N20-N32
      2  610 1534 (N12E40 L= 70)   310     96        0 ( 596/1491- 632/1585) -63.4 E41-E38 N09-N15
      3  871 1412 (N11E20 L= 91)   649    234        0 ( 758/1376- 961/1439)   8.7 E26-E13 N08-N12
      4 1251 1342 (N18W04 L=115)   430    132        0 (1202/1300-1298/1400)  76.0 W01-W05 N14-N22
      5 1800  780 (N05W58 L=169)  1208    173        3 (1727/ 729-1850/ 833)  48.4 W53-W63 N00-N09
      6  895  698 (S28W02 L=113)   545    118        1 ( 837/ 679- 960/ 720)  33.7 E01-W05 S29-S25
      7  403  587 (S50E36 L= 74)   501     79        1 ( 382/ 560- 437/ 624) -45.0 E39-E32 S51-S47
      8  939  509 (S38W12 L=123)   306     96        0 ( 906/ 470- 977/ 551)  81.9 W10-W12 S41-S34
      9 1171  520 (S29W26 L=136)   330    112        0 (1115/ 504-1229/ 535)  23.2 W22-W29 S31-S27
     10 1353  501 (S25W38 L=149)   308     64        1 (1316/ 489-1390/ 523)  36.9 W35-W40 S26-S23
     11 1424  449 (S25W46 L=157)   404    117        0 (1374/ 421-1468/ 493)  71.6 W43-W47 S27-S21
     12 1656  443 (S17W66 L=177)   441     20        1 (1632/ 422-1676/ 462)  26.6 W63-W68 S18-S15
     13 1295  390 (S33W41 L=152)   485     94        0 (1243/ 372-1345/ 409)  20.6 W36-W45 S34-S30
  

    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