Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  599 1788 (N54E41 L= 38)   462     76        1 ( 571/1768- 632/1802)   0.0 E45-E35 N52-N55
      2 1674 1559 (N29W55 L=134)  1638    208        1 (1583/1496-1751/1623) -33.7 W48-W62 N24-N34
      3 1006 1508 (N28W01 L= 80)   387    155        0 ( 974/1445-1067/1539)  50.2 E01-W05 N23-N30
      4 1261 1486 (N25W18 L= 97)   207    128        0 (1218/1438-1298/1512) -45.0 W15-W20 N22-N27
      5 1475 1434 (N21W32 L=111)   271     65        0 (1440/1413-1502/1455)  21.8 W29-W34 N19-N22
      6 1038 1392 (N20W03 L= 82)   206     80        0 ( 999/1377-1081/1404)   0.0 W00-W05 N19-N21
      7  182 1250 (N16E64 L= 16)   430     34        1 ( 165/1221- 194/1276) -63.4 E66-E61 N14-N18
      8 1456  935 (S09W27 L=106)   750    283        1 (1365/ 854-1555/1025)  34.7 W20-W33 S13-S04
      9 1397  702 (S23W23 L=102)   426    136        0 (1376/ 640-1414/ 777)  83.7 W22-W24 S27-S18
     10 1772  659 (S27W58 L=137)   387     45        0 (1750/ 642-1793/ 685)  71.6 W54-W60 S28-S25
     11  466  606 (S25E42 L= 37)   310     89        1 ( 435/ 568- 495/ 648)  33.7 E46-E39 S27-S22
     12 1734  482 (S39W64 L=144)  1031    111        2 (1703/ 434-1763/ 542) -69.4 W60-W69 S42-S34
     13  655  293 (S49E42 L= 37)   799    108        0 ( 615/ 266- 703/ 329) -29.7 E45-E36 S51-S45
  

    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