Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  587 1631 (N20E44 L= 24)   320     45        1 ( 563/1610- 608/1659)  90.0 E45-E41 N18-N22
      2  480 1619 (N18E51 L= 16)   451     88        3 ( 453/1584- 508/1657) -39.8 E54-E47 N15-N20
      3  767 1512 (N16E26 L= 41)   318    180        0 ( 731/1444- 828/1580)  84.3 E27-E24 N11-N21
      4  353 1374 (N01E51 L= 17)   511    103        1 ( 293/1361- 407/1389)   5.7 E56-E46 N00-N02
      5 1753 1320 (N28W43 L=111)   477    105        1 (1711/1280-1796/1347)  33.7 W38-W47 N24-N31
      6  358 1138 (S13E45 L= 23)   675    232        3 ( 295/1044- 416/1214)  63.4 E49-E41 S19-S07
      7 1652  997 (N06W38 L=106)   380     80        1 (1602/ 977-1694/1011)   8.1 W34-W41 N04-N07
      8  855  969 (S14E08 L= 59)   390    162        1 ( 786/ 947- 929/ 999)   6.3 E12-E03 S14-S12
      9  393  932 (S24E39 L= 28)   715    261        1 ( 296/ 843- 489/ 994)  36.9 E48-E32 S31-S19
     10 1527  779 (S09W36 L=104)   234     94        0 (1494/ 743-1571/ 809)  59.0 W34-W37 S11-S06
     11 1273  688 (S20W23 L= 91)   242     84        0 (1227/ 670-1319/ 709)  45.0 W20-W25 S22-S17
     12 1405  458 (S30W42 L=109)   400    105        0 (1354/ 440-1456/ 476)  33.7 W38-W44 S31-S27
     13 1575  385 (S28W61 L=129)   413     68        2 (1541/ 349-1597/ 408)  -5.7 W55-W65 S29-S26
  

    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