Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1337 1629 (N36W23 L=142)   824    255        3 (1217/1599-1439/1654)   6.3 W13-W31 N33-N38
      2 1505 1599 (N35W36 L=155)   288     58        0 (1488/1577-1522/1622)  45.0 W33-W37 N32-N36
      3 1585 1582 (N34W42 L=161)   318     57        0 (1563/1564-1612/1597)  18.4 W39-W45 N32-N34
      4  397 1477 (N25E46 L= 73)   839    322        3 ( 346/1354- 432/1561) -53.7 E53-E41 N16-N31
      5  925 1417 (N20E07 L=112)   539    232        1 ( 879/1302- 985/1501)  77.0 E09-E03 N13-N26
      6  223 1408 (N21E62 L= 57)   478     74        0 ( 207/1384- 247/1427) -36.9 E64-E58 N19-N22
      7 1161 1230 (N09W08 L=127)   192     64        0 (1128/1200-1187/1256) -45.0 W06-W09 N07-N10
      8  509 1122 (N02E33 L= 86)   907    235        1 ( 471/ 998- 565/1230)  72.9 E35-E29 S05-N08
      9  120 1149 (N06E72 L= 47)   710    192        3 (  90/1130- 151/1170)   0.0 E78-E66 N04-N06
     10  775 1065 (S01E15 L=104)   317     94        3 ( 757/1011- 796/1107) -78.7 E16-E13 S04-N01
     11  157 1003 (S04E65 L= 54)   490     96        3 ( 135/ 972- 175/1035) -45.0 E68-E62 S05-S01
     12 1868  854 (S11W63 L=182)  2775    492        9 (1796/ 725-1924/ 990)  54.8 W57-W70 S19-S02
     13  883  914 (S10E08 L=110)   559    168        1 ( 796/ 878- 963/ 949)  21.8 E13-E03 S12-S08
     14  626  859 (S14E25 L= 94)   634    153        4 ( 556/ 820- 690/ 893)  -6.3 E29-E20 S15-S11
     15  327  771 (S18E49 L= 70)  1155    353        6 ( 244/ 684- 418/ 854)  33.7 E57-E40 S23-S13
     16  915  781 (S18E07 L=112)   517    193        4 ( 835/ 745- 986/ 825)  18.4 E11-E02 S20-S15
     17  752  747 (S21E17 L=101)   424    188        0 ( 686/ 671- 785/ 800) -58.0 E21-E15 S25-S17
     18  967  662 (S26E03 L=115)   586    253        3 ( 843/ 628-1090/ 700)  14.9 E11-W04 S28-S23
     19  284  597 (S29E57 L= 62)   944    207        4 ( 256/ 539- 324/ 660) -90.0 E61-E53 S32-S24
     20  678  522 (S35E25 L= 93)   337    151        1 ( 641/ 478- 711/ 588)  41.2 E29-E21 S38-S30
  

    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