Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  741 1634 (N35E32 L= 78)  1446    280        2 ( 705/1528- 776/1730) -51.8 E39-E27 N27-N41
      2 1268 1643 (N45W09 L=119)   469     86        1 (1247/1605-1283/1676)  81.9 W06-W10 N41-N48
      3 1619 1568 (N45W42 L=152)   966    230        3 (1571/1518-1650/1621)  39.3 W35-W48 N41-N50
      4  606 1481 (N22E36 L= 74)  1225    262        3 ( 495/1455- 700/1512)  18.4 E44-E29 N20-N25
      5  720 1372 (N17E25 L= 85)   479    212        0 ( 652/1326- 757/1442) -76.0 E28-E21 N13-N21
      6  333 1254 (N05E51 L= 59)   400     87        3 ( 298/1235- 368/1271)  26.6 E54-E48 N03-N06
      7 1351 1159 (N13W18 L=128)   843    246        4 (1273/1099-1401/1219)  45.0 W13-W21 N08-N17
      8  349  902 (S17E44 L= 65)   802    254        1 ( 294/ 822- 378/1031)  74.1 E49-E42 S22-S08
      9 1781  887 (N02W55 L=165)   506     77        0 (1767/ 845-1797/ 925) -76.0 W53-W57 N00-N04
     10 1571  840 (S03W38 L=148)   258     73        1 (1548/ 801-1598/ 879)  78.7 W36-W39 S05-N00
     11  961  845 (S11E01 L=108)   218     91        0 ( 917/ 827-1008/ 871) -11.3 E04-W01 S12-S10
     12  217  753 (S28E58 L= 51)   503    182        0 ( 180/ 733- 254/ 782)  24.0 E62-E53 S29-S25
     13 1370  713 (S14W26 L=136)   657    137        2 (1328/ 655-1403/ 760) -35.5 W22-W29 S17-S11
     14 1737  695 (S10W56 L=166)   350     78        0 (1713/ 649-1766/ 728)  78.7 W54-W58 S12-S07
  

    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