Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  280 1485 (N11E69 L=206)  1636    114        6 ( 246/1428- 320/1536) -76.0 E73-E63 N06-N14
      2  312 1429 (N08E60 L=214)   881    134        2 ( 268/1390- 348/1469)  50.2 E64-E56 N04-N10
      3 1471 1362 (N28W22 L=296)   387    128        2 (1437/1310-1493/1395) -45.0 W19-W24 N25-N30
      4 1515 1025 (N08W30 L=305)   304     60        1 (1486/ 995-1535/1049) -14.0 W27-W31 N06-N10
      5 1572  946 (N05W35 L=310)   551    138        2 (1540/ 907-1614/1028) -56.3 W32-W39 N02-N09
      6  191  984 (S21E62 L=213)   820     44        1 ( 170/ 946- 217/1018) -63.4 E65-E58 S22-S18
      7  235  933 (S23E56 L=219)   837    177        1 ( 213/ 858- 261/ 998)  68.2 E59-E52 S28-S18
      8 1810  930 (N09W57 L=331)  1588    227        4 (1767/ 869-1852/ 993) -26.6 W51-W63 N05-N13
      9  827  752 (S22E06 L=268)   239     46        0 ( 806/ 735- 851/ 775) -33.7 E07-E04 S23-S20
     10  556  625 (S36E24 L=250)   746    174        0 ( 496/ 590- 628/ 686) -14.0 E29-E17 S38-S33
     11 1205  625 (S22W20 L=295)   270     99        0 (1153/ 612-1253/ 638)  15.9 W16-W23 S22-S20
     12  232  609 (S45E68 L=207)   760     59        1 ( 204/ 585- 262/ 632)  10.3 E83-E60 S47-S43
     13 1410  523 (S23W38 L=313)   269     64        0 (1389/ 490-1435/ 550)  90.0 W36-W38 S25-S20
     14 1576  457 (S23W55 L=330)  3026    336        6 (1450/ 396-1705/ 543)  45.0 W47-W63 S29-S14
  

    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