Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  522 1601 (N14E50 L= 57)   340     66        0 ( 508/1573- 536/1636) -59.0 E51-E48 N11-N16
      2  859 1539 (N18E25 L= 82)   615    218        0 ( 836/1450- 878/1633) -63.4 E27-E20 N12-N24
      3 1235 1537 (N29E03 L=104)   488     95        0 (1201/1483-1259/1576) -50.2 E05-W00 N25-N31
      4  961 1535 (N21E19 L= 88)   213     68        1 ( 928/1517- 994/1553)  14.0 E20-E16 N18-N21
      5 1046 1413 (N16E10 L= 97)   471    161        0 (1019/1339-1070/1492) -60.9 E13-E07 N10-N19
      6  468 1379 (S01E44 L= 63)   375    109        0 ( 431/1342- 502/1416)  -8.1 E47-E40 S02-N01
      7  835 1146 (S05E14 L= 93)   439    114        0 ( 806/1087- 856/1206) -74.1 E15-E12 S08-S01
      8 1599 1180 (N19W30 L=136)   359     97        0 (1569/1140-1635/1206)  63.4 W28-W32 N15-N21
      9  283  946 (S29E48 L= 59)  3865    736        5 ( 127/ 777- 393/1155)  52.1 E63-E40 S42-S15
     10 1593  999 (N09W34 L=140)   312     81        1 (1563/ 975-1633/1020)  45.0 W31-W36 N06-N10
     11 1011  984 (S09W00 L=107)   218    109        0 ( 975/ 926-1037/1010) -36.9 E02-W03 S11-S07
     12  591  798 (S31E21 L= 86)   832    264        2 ( 528/ 688- 662/ 919)  72.6 E23-E18 S38-S22
     13 1732  876 (N07W48 L=154)   436     99        0 (1689/ 845-1762/ 909)  56.3 W45-W49 N03-N09
     14  903  812 (S22E01 L=106)   539    185        1 ( 819/ 763- 992/ 877)  61.4 E04-W02 S26-S15
     15 1152  752 (S18W15 L=122)   413    193        0 (1068/ 710-1264/ 776)  45.0 W11-W20 S22-S13
     16 1647  730 (S04W47 L=153)   264     80        0 (1615/ 703-1677/ 748)  63.4 W44-W49 S06-S02
     17 1524  589 (S15W44 L=151)   268     79        0 (1489/ 574-1557/ 612)  45.0 W41-W46 S16-S12
     18 1704  486 (S14W65 L=172)   439     72        1 (1683/ 465-1730/ 510)  63.4 W62-W67 S15-S11
     19 1253  466 (S30W33 L=140)  1174    210        5 (1144/ 426-1372/ 499)  36.9 W27-W39 S34-S25
  

    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