Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  865 1740 (N57W15 L= 39)   481     91        1 ( 835/1715- 903/1767) -51.3 W10-W18 N53-N59
      2 1565 1688 (N29W66 L= 91)   796     96        2 (1512/1667-1615/1711) -40.6 W61-W71 N25-N31
      3 1515 1592 (N25W52 L= 77)   858    212        1 (1434/1542-1597/1629) -45.0 W47-W56 N20-N29
      4  524 1560 (N54E27 L=357)   350     61        1 ( 487/1538- 546/1584) -15.9 E31-E24 N51-N55
      5 1373 1506 (N25W37 L= 61)   610    231        0 (1288/1447-1440/1563) -63.4 W33-W39 N20-N30
      6 1333 1433 (N22W31 L= 55)   406    134        0 (1276/1406-1389/1450) -23.2 W26-W34 N19-N24
      7 1128 1246 (N17W12 L= 36)   948    260        2 (1010/1165-1200/1314) -59.7 W06-W15 N11-N23
      8  909 1207 (N20E02 L= 22)   272     91        2 ( 890/1160- 929/1249)  80.5 E04-W00 N17-N23
      9  401 1149 (N28E39 L=345)   443     95        1 ( 357/1117- 441/1176) -20.6 E43-E35 N25-N30
     10 1808 1116 (S09W55 L= 79)   397     50        0 (1787/1091-1831/1142) -53.1 W53-W57 S11-S07
     11  848 1095 (N15E09 L= 16)   268     82        1 ( 828/1054- 870/1129)  45.0 E10-E06 N13-N17
     12 1884 1016 (S18W62 L= 87)   792     58        0 (1860/ 983-1909/1051)   7.1 W58-W66 S19-S16
     13  436  994 (N18E38 L=346)   354     78        0 ( 422/ 954- 452/1037)  78.7 E39-E36 N15-N20
     14 1155  934 (S01W05 L= 30)   878    200        2 (1105/ 841-1210/1016)  41.2 W01-W10 S05-N02
     15 1855  861 (S26W57 L= 81)  1342    191        1 (1829/ 800-1896/ 953) -70.0 W53-W64 S31-S20
     16 1323  695 (S19W10 L= 34)   385    136        0 (1254/ 662-1371/ 714) -35.5 W05-W12 S22-S17
     17 1227  517 (S28E01 L= 24)   601    186        1 (1149/ 484-1312/ 563)  -5.7 E05-W05 S29-S25
     18 1515  516 (S38W20 L= 45)   749     99        1 (1479/ 471-1549/ 559)  39.8 W17-W23 S40-S34
     19 1375  398 (S42W07 L= 31)   329     47        1 (1358/ 378-1399/ 428) -90.0 W04-W08 S44-S39
     20 1282  352 (S43E02 L= 23)   306     41        0 (1268/ 327-1301/ 385) -90.0 E03-W00 S45-S39
     21  667  248 (S34E54 L=331)   447     32        0 ( 650/ 228- 688/ 271) -90.0 E56-E50 S35-S31
  

    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