Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1761 1496 (N17W70 L=159)  1170     97        4 (1714/1466-1811/1525) -21.0 W63-W76 N14-N19
      2 1557 1451 (N21W46 L=135)   527     60        2 (1526/1415-1587/1483)   8.1 W42-W49 N18-N22
      3 1732 1420 (N14W60 L=149)  1024    159        2 (1675/1354-1772/1467) -71.6 W57-W64 N09-N18
      4  636 1403 (N37E21 L= 68)   276     87        1 ( 616/1363- 662/1445)  45.0 E22-E18 N34-N39
      5  161 1144 (N25E69 L= 20)  1407    170        3 ( 124/1052- 197/1204) -34.7 E78-E62 N19-N28
      6  228 1121 (N23E59 L= 30)   374     57        1 ( 211/1092- 243/1150)  76.0 E60-E56 N21-N25
      7 1246  887 (S05W11 L=100)   629    233        3 (1180/ 820-1317/ 982) -61.4 W07-W14 S10-N01
      8 1860  898 (S19W59 L=149)  1481    142        5 (1817/ 853-1912/ 936)   4.8 W54-W68 S21-S16
      9 1532  898 (S11W29 L=118)   281     54        0 (1507/ 875-1555/ 928) -53.1 W27-W30 S12-S08
     10 1663  903 (S13W39 L=128)   255     38        1 (1643/ 887-1683/ 926)  18.4 W37-W40 S14-S11
     11  373  843 (N05E46 L= 43)   610    144        2 ( 321/ 800- 430/ 888)  20.0 E51-E40 N03-N07
     12 1308  773 (S13W13 L=102)   598    115        5 (1262/ 734-1344/ 821)  31.0 W09-W15 S16-S10
     13  322  578 (S11E60 L= 29)  3240    205        6 ( 273/ 496- 402/ 665) -63.4 E70-E53 S16-S04
     14  730  555 (S17E28 L= 61)   387    108        0 ( 714/ 502- 745/ 605)  74.1 E28-E26 S20-S13
     15 1458  538 (S33W21 L=110)   989    145        2 (1383/ 515-1513/ 583)   0.0 W14-W25 S34-S29
     16  494  471 (S19E49 L= 40)   830    121        3 ( 467/ 415- 523/ 527)  38.7 E54-E44 S23-S15
     17 1024  457 (S29E11 L= 78)   544    102        1 (1001/ 405-1052/ 504)  60.3 E13-E08 S32-S25
     18 1584  359 (S53W38 L=127)   495     49        2 (1568/ 333-1604/ 383)  90.0 W33-W41 S55-S49
     19  600  327 (S31E49 L= 40)  1250    189        0 ( 515/ 301- 691/ 349)  -3.2 E57-E39 S33-S29
  

    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