Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  912 1828 (N40E40 L=346)   462     47        1 ( 887/1806- 936/1850)  14.0 E43-E37 N38-N42
      2  516 1598 (N13E51 L=335)  1626    271        2 ( 475/1486- 558/1734) -52.6 E60-E46 N06-N23
      3  429 1605 (N12E60 L=326)   566     85        1 ( 417/1564- 449/1652) -40.6 E63-E56 N09-N15
      4 1330 1547 (N34W03 L= 29)   836    144        3 (1303/1483-1361/1622) -48.8 E01-W06 N29-N38
      5  569 1483 (N08E41 L=345)  1860    361        7 ( 450/1406- 699/1575)  58.0 E47-E36 N00-N16
      6  984 1425 (N15E14 L= 12)   250    104        0 ( 950/1388-1021/1466) -26.6 E16-E10 N13-N16
      7  198 1281 (S11E68 L=319)  1259    161        2 ( 124/1243- 241/1330)  14.0 E83-E63 S13-S07
      8  168  984 (S30E65 L=321)  1976    118        5 ( 112/ 898- 210/1063)  30.1 E80-E59 S35-S24
      9  699  804 (S27E13 L= 13)   728    243        3 ( 595/ 765- 803/ 854)  39.8 E19-E07 S32-S22
     10 1348  736 (S12W27 L= 53)   311    154        1 (1280/ 709-1427/ 767)  16.7 W22-W32 S13-S10
     11 1196  597 (S24W24 L= 50)   356    166        1 (1119/ 589-1280/ 607)  26.6 W19-W29 S26-S21
     12 1499  556 (S17W45 L= 71)  1001    211        0 (1409/ 527-1590/ 602)  51.3 W39-W49 S21-S11
     13 1060  422 (S39W25 L= 51)  1479    347        4 ( 931/ 348-1200/ 490)  66.0 W17-W29 S48-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