Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1290 1709 (N49W00 L= 64)   434     89        2 (1270/1665-1309/1738) -71.6 E02-W02 N45-N51
      2  685 1527 (N20E34 L= 30)   635    162        3 ( 664/1472- 717/1595) -49.4 E37-E30 N16-N24
      3 1449 1545 (N40W17 L= 80)   276     66        0 (1415/1533-1486/1556)  18.4 W14-W20 N38-N41
      4  283 1494 (N10E68 L=356)   854    227        1 ( 251/1470- 330/1524)   0.0 E74-E61 N08-N11
      5 1584 1409 (N34W29 L= 93)   775    127        2 (1536/1344-1621/1459) -50.2 W25-W32 N30-N37
      6  679 1382 (N11E29 L= 34)   382    112        0 ( 646/1342- 733/1414)  56.3 E31-E26 N07-N13
      7  192 1290 (S04E69 L=355)  1242    260        3 ( 147/1241- 248/1327)  28.6 E74-E62 S07-N00
      8  341 1152 (S09E47 L= 16)   846    230        1 ( 269/1119- 415/1187)  18.4 E54-E41 S11-S07
      9 1840  933 (N12W59 L=123)  1904    302        4 (1809/ 816-1870/1020) -47.7 W55-W67 N05-N17
     10 1879  956 (N14W63 L=127)   516     73        0 (1860/ 926-1899/ 991)  76.0 W60-W65 N12-N16
     11  176  931 (S26E60 L=  3)   589    149        3 ( 158/ 874- 197/ 990) -66.8 E62-E57 S29-S22
     12  783  738 (S25E08 L= 55)   216     77        0 ( 749/ 729- 825/ 751)   0.0 E10-E05 S25-S23
     13 1371  322 (S36W47 L=110)  1304    234        4 (1261/ 285-1465/ 371)  45.0 W39-W52 S41-S31
  

    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