Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1761 1493 (N13W69 L=  8)  3163    282        3 (1662/1416-1851/1603) -58.0 W64-W79 N05-N21
      2 1111 1533 (N35W20 L=319)  1030    292        2 ( 985/1487-1231/1563) -31.0 W11-W27 N29-N38
      3 1393 1487 (N24W37 L=336)   327     78        1 (1351/1466-1433/1511)  -8.1 W33-W40 N23-N25
      4 1526 1373 (N14W41 L=340)   605    126        2 (1484/1335-1567/1425)  11.3 W36-W46 N12-N15
      5  254 1340 (N42E59 L=240)   797    113        1 ( 239/1284- 284/1393) -60.3 E62-E54 N38-N45
      6  537 1243 (N31E27 L=272)   282     48        1 ( 513/1220- 569/1263)   0.0 E29-E24 N29-N31
      7 1010 1199 (N17W03 L=302)   480    183        0 ( 948/1144-1069/1258)  26.6 E01-W07 N15-N20
      8 1222 1152 (N10W14 L=314)   270     86        0 (1187/1130-1261/1183) -59.0 W13-W16 N07-N12
      9 1290 1148 (N08W18 L=317)   386     81        1 (1262/1111-1316/1178)  45.0 W16-W20 N06-N09
     10  832 1154 (N19E08 L=291)   463    169        1 ( 754/1138- 923/1167) -10.3 E13-E02 N17-N20
     11 1720 1038 (S10W45 L=344)   302     46        1 (1706/1010-1742/1059)  56.3 W43-W46 S11-S08
     12  291  980 (N19E52 L=248)   876    195        0 ( 261/ 893- 345/1039)  58.0 E55-E45 N13-N22
     13 1708  664 (S33W40 L=339)   483     39        2 (1688/ 634-1728/ 694) -59.0 W37-W41 S35-S30
     14  263  624 (S03E66 L=233)   524     62        2 ( 235/ 603- 291/ 643)   0.0 E70-E61 S03-S01
     15  533  333 (S26E57 L=242)   837    106        1 ( 496/ 287- 570/ 367) -90.0 E59-E53 S29-S22
  

    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